Manipulation des Couleurs Système...
Résolu
astrosug44
Messages postés
29
Date d'inscription
samedi 21 mai 2005
Statut
Membre
Dernière intervention
3 février 2007
-
6 juin 2005 à 09:08
astrosug44 Messages postés 29 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 3 février 2007 - 6 juin 2005 à 11:37
astrosug44 Messages postés 29 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 3 février 2007 - 6 juin 2005 à 11:37
A voir également:
- Manipulation des Couleurs Système...
- Système de cache - Conseils pratiques -PHP
- Système de pointage - Forum PHP
- Systeme reducteur loto foot ✓ - Forum Visual Basic
- Système de ticket ✓ - Forum PHP
- Inverser les couleurs photoshop - Forum Visual Basic
3 réponses
cs_Kenavo
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
5
6 juin 2005 à 10:41
6 juin 2005 à 10:41
Salut,
Je ne vois pas d'où tu sors SetSysColor, Dans l'API il y a SetSysColors et GetSysColor que tu peux utiliser comme suit :
var
TabSysColor : Array[0..
COLOR_ENDCOLORS
] of TColor;
TabIndexColor : Array [0..
COLOR_ENDCOLORS
] of Integer;
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
// Création de la table des couleurs systèmes
for i := 0 to COLOR_ENDCOLORS do
begin
TabSysColor[i] : = GetSysColor(i);
TabIndexColor[i] := i;
end ;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
// Restauration des couleurs systèmes
SetSysColors(COLOR_ENDCOLORS+1,TabIndexColor,TabSysColor);
end;
Ken@vo
<hr size ="2" width="100%">Code, Code, Codec !
http://www.pourflorenceethussein.org/
[%3C/body ]
Je ne vois pas d'où tu sors SetSysColor, Dans l'API il y a SetSysColors et GetSysColor que tu peux utiliser comme suit :
var
TabSysColor : Array[0..
COLOR_ENDCOLORS
] of TColor;
TabIndexColor : Array [0..
COLOR_ENDCOLORS
] of Integer;
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
// Création de la table des couleurs systèmes
for i := 0 to COLOR_ENDCOLORS do
begin
TabSysColor[i] : = GetSysColor(i);
TabIndexColor[i] := i;
end ;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
// Restauration des couleurs systèmes
SetSysColors(COLOR_ENDCOLORS+1,TabIndexColor,TabSysColor);
end;
Ken@vo
<hr size ="2" width="100%">Code, Code, Codec !
http://www.pourflorenceethussein.org/
[%3C/body ]
astrosug44
Messages postés
29
Date d'inscription
samedi 21 mai 2005
Statut
Membre
Dernière intervention
3 février 2007
6 juin 2005 à 10:46
6 juin 2005 à 10:46
Ouppsss je me suis trompé tu as raison j'utilise pas SetSysColor mais SetColor(4, clWhite) par exemple....
Bon j'essaye ta solution et je te dis si ca marche....
Merci,
Guillaume
Bon j'essaye ta solution et je te dis si ca marche....
Merci,
Guillaume
astrosug44
Messages postés
29
Date d'inscription
samedi 21 mai 2005
Statut
Membre
Dernière intervention
3 février 2007
6 juin 2005 à 11:37
6 juin 2005 à 11:37
C'est Bon ton code marche parfaitement....
Encore merci pour ton aide !!!!!!
A++
Guillaume
Encore merci pour ton aide !!!!!!
A++
Guillaume
