Color, Font, SizeRésolu

Question

Suivant une instruction, je changes la couleur, taille, fonte de certains edit, label, ... 
Pour cla, je fais : 

with Edit4 do 
Begin 
Font.Name:=FontName; 
Font.Color:=FontColor; 
Font.Size:=FontSize; 
end; 
with Label11 do 
Begin 
Font.Name:=FontName; 
Font.Color:=FontColor; 
Font.Size:=FontSize; 
end; 

J'en ai pas mal comme ca ... Connaissez vous une instruction du style : 
With Font.Name:=FontName and Font.Color:=FontColor and Font.Size:=FontSize do 
Begin 
Edit1 .... 
Label1 .... 
End;

Cirec · Accepted Answer

D&#233;sol&#233; mais toutes mes tentatives sont rest&#233;es vaines

il semblerait que cette couleur reste invariable peut importe la methode utilis&#233;
@+
Cire

Cirec · Answer

Salut,
tu peux faire comme &#231;a :
        For i :=  1  To  4 Do
          With TEdit(FindComponent('Edit' + IntToStr(I))) Do
     Begin
      Font.Name: =FontName; 
      Font.Color:= FontColor; 
      Font.Size:=FontSize; 
      End ;

        For i : = 1 To 11 Do
          With TLabel(FindComponent('Label' + IntToStr(I))) Do
     Begin
      Font.Name:=FontName; 
      Font.Color:=FontColor; 
      Font.Size:=FontSize; 
     End;
@+
Cirec

Cirec · Answer

et m&#234;me
        For i :=  1  To  4 Do
          With TEdit(FindComponent('Edit' + IntToStr(I))).Font Do
     Begin
      Name: =FontName; 
      Color:= FontColor; 
      Size:=FontSize; 
      End ;

        For i : = 1 To 11 Do
          With TLabel(FindComponent('Label' + IntToStr(I))).Font Do
     Begin
      Name:=FontName; 
      Color:=FontColor; 
      Size:=FontSize; 
     End;

@+
Cirec

yannba · Answer

Toujours aussi efficace mon cher Cirec ! Merci
ET sais tu comment on fait pour Color, Name, Size d'un dateTimePicker.
Effectivement, avec ce composant, il reste fixe. J'ai essay&#233; avec la m&#233;thode (grace au F1) MsgSetCalColors, mais j'avoue sans succes !!

Cirec · Answer

euh la il faut que je regarde de plus pr&#232;s 
je n'ai jamais changer de couleur dans un DateTimePicker

@+
cirec

Cirec · Answer

voila,
tu fais ceci :

With  DateTimePicker1.CalColors do
Begin
   BackColor := clgreen;
   TextColor := clBlue ;
   TitleBackColor := clLime;
   TitleTextColor := clgray;
   MonthBackColor := clyellow;
   TrailingTextColor := clred;
End;

@+
Cirec

yannba · Answer

Ca, je savais le faire. Ca influence sur le calendrier lorsque tu clique sur la fl&#232;che du DateTimePicker. Moi c'est &#224; gauche de la fleche et non le clendrier, que je veux modifier !!

Cirec · Answer

alors essaye &#231;a

With  DateTimePicker1.Font do
Begin
  size := 12;
  Name := 'Comic sans MS';
End;

@+
Cirec

yannba · Answer

Justement, c'est ce que je fais. Pour la taille et la fonte ca marche. C'est la couleur o&#249; je suis bloqu&#233;  !!!!

yannba · Answer

C'est ce que je craignais ..... Merci qd meme !

Color, Font, Size

10 réponses

Votre réponse

Discussions similaires