Color, Font, Size [Résolu]

Signaler
Messages postés
133
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
7 septembre 2010
-
Messages postés
133
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
7 septembre 2010
-
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;

10 réponses

Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
Désolé mais toutes mes tentatives sont restées vaines

il semblerait que cette couleur reste invariable peut importe la methode utilisé
@+
Cire
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
Salut,
tu peux faire comme ç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
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
et mê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
Messages postés
133
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
7 septembre 2010

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é avec la méthode (grace au F1) MsgSetCalColors, mais j'avoue sans succes !!
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
euh la il faut que je regarde de plus près
je n'ai jamais changer de couleur dans un DateTimePicker

@+
cirec
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
voila,
tu fais ceci :

With DateTimePicker1.CalColors do
Begin
BackColor := clgreen;
TextColor := clBlue ;
TitleBackColor := clLime;
TitleTextColor := clgray;
MonthBackColor := clyellow;
TrailingTextColor := clred;
End;

@+
Cirec
Messages postés
133
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
7 septembre 2010

Ca, je savais le faire. Ca influence sur le calendrier lorsque tu clique sur la flèche du DateTimePicker. Moi c'est à gauche de la fleche et non le clendrier, que je veux modifier !!
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
alors essaye ça

With DateTimePicker1.Font do
Begin
size := 12;
Name := 'Comic sans MS';
End;

@+
Cirec
Messages postés
133
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
7 septembre 2010

Justement, c'est ce que je fais. Pour la taille et la fonte ca marche. C'est la couleur où je suis bloqué !!!!
Messages postés
133
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
7 septembre 2010

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