Discussion :

[cincap]

Bonjour à toutes et à tous,

J'essaye depuis un certain temps de pouvoir modifier la couleur de l'afficheur digital et de son fond.

Voici les couleurs disponibles de cet afficheur :

Couleurs du composant TvrMatrix

Pour chaque couleur il y a 2 propriétés :

Low et Hight

Choix de la couleur de base disponible

Red

Blue

Green

Cyan

Purple

Yellow

Il faut noter que si je choisis la couleur ClRed pour High, Low sera ClMaroon automatiquement.

Comme j'utiliserai un TcolorDialog je ne sais choisir qu'une seule couleur.

J'avais d'abord imaginé avec les 6 choix de couleurs disponible de déterminer la couleur High et Low à l'avance.

Qu'en pensez vous ?

Merci d'avance.

@+,

cincap

[tourlourou]

Bonjour,
Je ne vois pas comment faire avec un ColorDialog, qu'il faudrait restreindre à des couleurs imposées.
Pourquoi ne pas proposer un panel de boutons aux couleurs pour le choix ? Avec un fonctionnement style RadioButton.

[cincap]

Bonjour à toutes et à tous,

@ tourlourou, merci pour ta suggestion, avec les TRadioButton cela fonctionne mais avec les items du TRadioGroup je patine.

Sinon voici le résultat de mon test avec un TRadioButton nommé "Rb1":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure TForm1.Rb1Click(Sender: TObject);
begin
vr1.palette.High := clred ;
vr1.Palette.Low := clmaroon;
end;

Le résultat est sauvé à la fermeture de mon application dans mon fichier *.ini.

Je testerai encore dans la journée avec un TRadioGroup avant de fermer le topic.

@+,

cincap

[cincap]

@ tous, le topic est fermé, cela fonctionne avec le TRadioGroup et ses Items.

Merci.

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

Je m'excuse de revenir sur ce sujet, voici mon code pour déterminer les couleurs du fond et de l'afficheur mais serait t'il possible plutôt que d'utiliser un TRadioGroup de pouvoir le faire avec un seul click et un seul TButton.

A chaque appui du TButton les couleurs changent sur l'afficheur vr1.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
 
procedure TForm1.Rg1Click(Sender: TObject);
begin
 
case RG1.ItemIndex OF
 
 0 : begin 
vr1.palette.High := clred ;
vr1.Palette.Low := clmaroon;
      end;
 1 : begin 
vr1.palette.High := clblue ;
vr1.Palette.Low := clnavy;
      end;
 2 : begin 
vr1.palette.High := claqua ;
vr1.Palette.Low := clteal;
      end;
 3 : begin 
vr1.palette.High := clfuchsia ;
vr1.Palette.Low := clpurple;
      end;
 
 4 : begin 
vr1.palette.High := clyellow ;
vr1.Palette.Low := clolive;
      end;
 5 : begin 
vr1.palette.High := cllime ;
vr1.Palette.Low := clgreen;
      end;
 
end;
 
 end;

Peut être en utilisant la propriété tag ?

Merci d'avance.

@+,

cincap

[SergioMaster]

Bonjour,

si Rg1 est un bouton alors oui, tag pourrait être utile, quelque chose comme :
suppose qu'au design vr1.palette.High := clred et vr1.Palette.Low := clmaroon et Rg1.tag:=0

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
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.Rg1Click(Sender: TObject);
begin
inc(RG1.tag);
if RG1.Tag>5 then RG1.Tag:=0; 
case RG1.tag OF
 
 0 : begin 
vr1.palette.High := clred ;
vr1.Palette.Low := clmaroon;
      end;
 1 : begin 
vr1.palette.High := clblue ;
vr1.Palette.Low := clnavy;
      end;
 2 : begin 
vr1.palette.High := claqua ;
vr1.Palette.Low := clteal;
      end;
 3 : begin 
vr1.palette.High := clfuchsia ;
vr1.Palette.Low := clpurple;
      end;
 
 4 : begin 
vr1.palette.High := clyellow ;
vr1.Palette.Low := clolive;
      end;
 5 : begin 
vr1.palette.High := cllime ;
vr1.Palette.Low := clgreen;
      end;
 
end;
 
 end;

[ShaiLeTroll]

et cela peut se condenser

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
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
type
  TPaletteColors =  record
    ColorLow: TColor;
    ColorHigh: TColor;
  end;
const
  COLORS: array [0..5] of TPaletteColors =
    (
      (ColorLow: clmaroon; ColorHigh: clred ),
      (ColorLow: clnavy; ColorHigh: clblue),
      (ColorLow: clteal; ColorHigh: claqua),
      (ColorLow: clpurple; ColorHigh: clfuchsia ),
      (ColorLow: clolive; ColorHigh: clyellow ),
      (ColorLow: clgreen; ColorHigh: cllime)
    );
begin
  if Button1.Tag >= High(COLORS) then
    Button1.Tag := Low(COLORS)
  else
    Button1.Tag := Button1.Tag + 1 ;
 
  vr1.palette.High := COLORS[Button1.Tag].ColorHigh;
  vr1.Palette.Low := COLORS[Button1.Tag].ColorLow;
end;

ou plus court si maintenir deux tableaux ne rebutent pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
const
  COLORS_LOW: array [0..5] of TColor = (clmaroon, clnavy, clteal, clpurple, clolive, clgreen);
  COLORS_HIGH: array [0..5] of TColor = (clred, clblue, claqua, clfuchsia , clyellow , cllime);
begin
  if Button1.Tag >= High(COLORS) then
    Button1.Tag := Low(COLORS)
  else
    Button1.Tag := Button1.Tag + 1 ;
 
  vr1.palette.High := COLORS_HIGH [Button1.Tag];
  vr1.Palette.Low := COLORS_LOW [Button1.Tag];
end;

[cincap]

@ SergioMaster et ShaiLeTroll merci à vous deux pour l'excellente modification.

@ ShaiLeTroll, j'ai testé les 2 solutions et impeccables la dernière me plait bien, réduite à l'extrême.

J'ai du juste modifier l'erreur de retranscription :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
begin
  if Button1.Tag >= High(COLORS_LOW) then
    Button1.Tag := Low(COLORS_HIGH)

Il me reste à vérifier si je sais sauver l'état du mode couleur aussi dans mon fichier .ini lors de la fermeture de l'application.

Bonne fin de journée,

@+,
cincap