Discussion :

[ThWilliam]

Bonjour,

Je vous propose un nouvel élément à utiliser : Composants palette de couleurs

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

[Roland Chastain]

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."

[Jipété]

Bonsoir,

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...

[ThWilliam]

Bonsoir.

Bizarre, j'ai pourtant mis le bon fichier en pièce jointe...

[Jipété]

Problème de droits, alors...

[ThWilliam]

Voilà qui est arrangé.

Je dois avoir oublié de cliquer sur "ajouter". Oh distraction, quand tu me tiens...

[Jipété]

Voilà qui est arrangé.

Impec !

[Jipété]

[...] 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...)

[ThWilliam]

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

[Jipété]

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 - Visualiser dans une fenêtre à part

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 !