Color, Font, Size [Résolu]

yannba 139 Messages postés mercredi 4 janvier 2006Date d'inscription 7 septembre 2010 Dernière intervention - 8 févr. 2006 à 12:42 - Dernière réponse : yannba 139 Messages postés mercredi 4 janvier 2006Date d'inscription 7 septembre 2010 Dernière intervention
- 8 févr. 2006 à 16:14
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;
Afficher la suite 

Votre réponse

10 réponses

Meilleure réponse
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 8 févr. 2006 à 16:11
3
Merci
Désolé mais toutes mes tentatives sont restées vaines

il semblerait que cette couleur reste invariable peut importe la methode utilisé
@+
Cire

Merci Cirec 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de Cirec
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 8 févr. 2006 à 13:03
0
Merci
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
Commenter la réponse de Cirec
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 8 févr. 2006 à 13:05
0
Merci
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
Commenter la réponse de Cirec
yannba 139 Messages postés mercredi 4 janvier 2006Date d'inscription 7 septembre 2010 Dernière intervention - 8 févr. 2006 à 13:18
0
Merci
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 !!
Commenter la réponse de yannba
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 8 févr. 2006 à 13:37
0
Merci
euh la il faut que je regarde de plus près
je n'ai jamais changer de couleur dans un DateTimePicker

@+
cirec
Commenter la réponse de Cirec
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 8 févr. 2006 à 14:56
0
Merci
voila,
tu fais ceci :

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

@+
Cirec
Commenter la réponse de Cirec
yannba 139 Messages postés mercredi 4 janvier 2006Date d'inscription 7 septembre 2010 Dernière intervention - 8 févr. 2006 à 15:09
0
Merci
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 !!
Commenter la réponse de yannba
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscription 3 août 2018 Dernière intervention - 8 févr. 2006 à 15:18
0
Merci
alors essaye ça

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

@+
Cirec
Commenter la réponse de Cirec
yannba 139 Messages postés mercredi 4 janvier 2006Date d'inscription 7 septembre 2010 Dernière intervention - 8 févr. 2006 à 15:26
0
Merci
Justement, c'est ce que je fais. Pour la taille et la fonte ca marche. C'est la couleur où je suis bloqué !!!!
Commenter la réponse de yannba
yannba 139 Messages postés mercredi 4 janvier 2006Date d'inscription 7 septembre 2010 Dernière intervention - 8 févr. 2006 à 16:14
0
Merci
C'est ce que je craignais ..... Merci qd meme !
Commenter la réponse de yannba

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.