Discussion :

[throzet]

Bonjour,
Je voudrais changer dynamiquement la couleur de la fonte (TFont) d'affichage de controles (soit des TGroupBox, soit des TRadiogroup).
Le code myTestComponent.Font.Color := clRed; ne fonctionne pas!
Y aurait-il des subtilités qui m'échappent?
De plus, dans un petit programme de test je l'ai fait au 'design time' et l'affichage est identique???
Si vous avez une bonne idée, je prends!

[foetus]

Avec la VCL, il y a une c*nn*ri* de booléen qui s'appelle ParentFont mets lui false

[ShaiLeTroll]

Ce n'est pas ParentFont qui pose problème, ni la VCL

ParentFont est automatiquement modifié par les Setter de TFont via OnChange géré par le TControl qui contient la propriété Font

la preuve sur un TGroupBox grp1

Code :

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

1
2
3
4
5
6
7
8
 
procedure TZooShaiVCLMainForm.grp1DblClick(Sender: TObject);
begin
  grp1.ParentFont := True;
  ShowMessage(BoolToStr(grp1.ParentFont, True));
  grp1.Font.Color := clRed;
  ShowMessage(BoolToStr(grp1.ParentFont, True));
end;

la VCL subie les restrictions lié à WindowsXP, dès que l'on inclue le TXPManifest, l'unité XPMan où que l'on active les styles dans les options de projet (tout ça provoque l'inclusion d'un Manifest XML dans l'exe changeant la version des CommCtrls),
c'est Windows qui ignore les modifications de couleur pour respecter le thème en cours (XP, Aero ...)

La preuve, le TLabel, un composant Delphi fonctionne très bien !

Depuis, l'introduction des styles et des style hook, tout ça permet de contourner toutes ces limitations lié au style de l'OS pour un style libre !
Cela permet d'avoir un même visuel lorsque l'on a un parc hétéroclyte avec du XP, Seven, Win8 ou du Citrix Win2008 Win2012 (avec le vieux thème système)

[anapurna]

salut

voici un code qui te permet de modifier les "control" interne d'un "radiogroup"

Code :

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

1
2
3
4
5
6
7
8
9
 
     function RadioGroupButton(itemIndex : integer; radioGroup : TRadioGroup) : TRadioButton; overload; 
     begin  
             if (itemIndex < 0) OR (itemIndex >= radioGroup.Items.Count) then    
             begin  
                result := nil;      Exit;   
             end;    
            result := radioGroup.Controls[itemIndex] as TRadioButton; 
     end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var    rb : TRadioButton;
  ....
 
  //Change back color   
  rb := RadioGroupButton(0,RadioGroup1) ;  
  if assigned(rb)  then    
     rb.Color := clRed;    
 
  //Change font color  
  rb := RadioGroupButton(2,RadioGroup1) ;  
  if assigned(rb)  then    
       rb.Font.Color := clGreen;

PS voir aussi ici

[ShaiLeTroll]

En Delphi 7, on avait pas accès au Buttons d'où l'astuce d'anapurna

Maintenant c'est une propriété Buttons[]