Composants palette de couleurs

Présentation
Bonjour.
Vous trouverez deux composants dans l'unité ThColorspal :

TThPalette : palette de couleurs sous forme de grille.
  • ajout et suppression de couleurs
  • ordonnancement des couleurs par drag and drop
  • sauvegarde et chargement des palettes créées

TThColorCreator : création de nouvelles nuances, composant contenant une barre de plage de couleurs, une barre de luminosité, 3 barres RGB

Testé sous Win7, Win8, Linux mint

Les deux composants peuvent être utilisés conjointement pour se confectionner un dialogue de couleurs personnalisé.
Le zip contient un programme demo (rien à installer, les composants sont créés dynamiquement) ainsi qu'un programme "pipette" (dialogue de couleurs avec prélèvement possible d'une couleur écran. Ne marche pas sous Linux dans l'état).

Merci d'avance pour vos commentaires...
Thierry
Nos ressources disponibles
Téléchargement
Compatibilité
Linux Windows
2  0 
Téléchargé 20 fois Voir les 9 commentaires
Détails
Avatar de Thierry Dehant
Membre chevronné
Voir tous les téléchargements de l'auteur
Licence : Libre
Date de mise en ligne : 6 janvier 2015




Avatar de Roland Chastain Roland Chastain - Rédacteur/Modérateur https://www.developpez.com
le 06/01/2015 à 22:18
Bonjour !

Avant même d'avoir essayé le programme, j'aime bien le fait qu'il n'y ait rien à installer.

Par contre il semble y avoir un problème avec le fichier ZIP. Le programme que j'ai l'habitude d'utiliser (7-ZIP) me dit : "le fichier ThColorsPal.zip ne peut être ouvert comme une archive."
Avatar de Jipété Jipété - Expert éminent sénior https://www.developpez.com
le 06/01/2015 à 22:50
Bonsoir,
Citation Envoyé par Roland Chastain Voir le message
Bonjour !

Avant même d'avoir essayé le programme, j'aime bien le fait qu'il n'y ait rien à installer.

Par contre il semble y avoir un problème avec le fichier ZIP. Le programme que j'ai l'habitude d'utiliser (7-ZIP) me dit : "le fichier ThColorsPal.zip ne peut être ouvert comme une archive."
Normal (enfin, manière de dire ) : le fichier .zip pèse 0 byte ! Doit y avoir un souci quelque part...
Avatar de ThWilliam ThWilliam - Membre chevronné https://www.developpez.com
le 06/01/2015 à 22:57
Bonsoir.

Bizarre, j'ai pourtant mis le bon fichier en pièce jointe...
Avatar de Jipété Jipété - Expert éminent sénior https://www.developpez.com
le 06/01/2015 à 22:58
Problème de droits, alors...
Avatar de ThWilliam ThWilliam - Membre chevronné https://www.developpez.com
le 06/01/2015 à 23:13
Voilà qui est arrangé.

Je dois avoir oublié de cliquer sur "ajouter". Oh distraction, quand tu me tiens...
Avatar de Jipété Jipété - Expert éminent sénior https://www.developpez.com
le 06/01/2015 à 23:16
Citation Envoyé par ThWilliam Voir le message
Voilà qui est arrangé.
Impec !
Avatar de Jipété Jipété - Expert éminent sénior https://www.developpez.com
le 06/01/2015 à 23:41
Citation Envoyé par ThWilliam Voir le message
[...] un programme "pipette" (dialogue de couleurs avec prélèvement possible d'une couleur écran. Ne marche pas sous Linux dans l'état).

Merci d'avance pour vos commentaires...

Thierry
En première approche ultra-rapide, j'ai vu dans le code que tu joues avec la transparence, et je me suis rendu compte il y a pas mal de temps que la transparence sous Linux était fonction de l'environnement de bureau ! Exemple : sous lxde pas de transparence possible, alors que sous xfce c'est bon, par contre les curseurs perdent leurs 3 petits traits verticaux (du coup ils ressemblent à rien...)
Avatar de ThWilliam ThWilliam - Membre chevronné https://www.developpez.com
le 06/01/2015 à 23:56
Oui, je me doutais bien que cela ne pouvait être qu'un problème lié à l'alphablend.
Sous Windows, je suis obligé de masquer la fenêtre avant de la rendre presque totalement transparente et de la maximiser.
Sous Linux mint, lorsque je fais cela, la fenêtre garde sa taille d'origine, ce qui me donne un rectangle blanc au milieu de l'écran, normal puisque j'ai aussi caché le panel.

Cordialement
Thierry
Avatar de Jipété Jipété - Expert éminent sénior https://www.developpez.com
le 07/01/2015 à 8:15
Citation Envoyé par ThWilliam Voir le message
Sous Linux mint, lorsque je fais cela, la fenêtre garde sa taille d'origine, ce qui me donne un rectangle blanc au milieu de l'écran, normal puisque j'ai aussi caché le panel.
Bienvenue au club du Linux sur Desktop c'est Tchernobyl

Code : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.PipetteBtnClick(Sender: TObject);
begin
   Hide;
   Panel1.Hide;
   Alphablend:= true;
   WindowState:= wsMaximized; // non pris en compte sous Xfce (ça se voit au curseur qui reste en "pipette" dans une zone wsNormal)
   Show;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
// prélèvement d'une couleur écran par la pipette
begin
   Hide;
   FCanvas.Handle := LCLIntf.GetDC(0);
   ColorCreator.SelectedColor:= FCanvas.Pixels[Mouse.CursorPos.X, Mouse.CursorPos.Y];
   ReleaseDC(0, FCanvas.Handle); // obligatoire ?
   Panel1.Show;
   WindowState:= wsNormal; // non pris en compte sous Lxde : reste wsMaximized
   AlphaBlend:= false;
   Show; // ne fonctionne pas sous Xfce : une fois la form cachée, elle le reste ! :-(
end;
Par ailleurs Application.Minimize du bouton "Réduire" ne fonctionne pas dans mes deux environnements !
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.