cs_mikevkb
Messages postés24Date d'inscriptionsamedi 8 décembre 2007StatutMembreDernière intervention16 mars 2010
-
3 févr. 2009 à 11:16
cs_mikevkb
Messages postés24Date d'inscriptionsamedi 8 décembre 2007StatutMembreDernière intervention16 mars 2010
-
5 févr. 2009 à 11:30
Bonjour, je dois créer un composant sous delphi, donc j'avais pensé créer une EditBox "Customisé", mais j'ai un petit souci:
J'aimerais changer la couleur de police dynamiquement suivant que le nombre rentré soit positif ou négatif (vert pour positif, rouge pour negatif,...)
Mais je ne sais pas où rentrer mon code pour qu'il se retrouve dans le procedure OnChange de mon Edit...
Pour bien faire, il faudrait qu'à chaque touche appuyé, une procedure vérifie le contenu de l'Edit, mais je ne sais pas comment faire...
procedure TMonCompo.Paint;
begin
InHerited;
With Canvas Do
Begin
Color:=fBackGroundColor;
Rectangle(ClientRect);
End;
end;
Procedure TMonCompo.SetMySwitch(Value:Integer);
Begin
If Value<>fMySwitch Then
Begin
If MySwitch>0 Then fBackGroundColor:=ClBlack
Else fBackGroundColor:=ClWhite;
fMySwitch:=Value;
If Assigned(fOnChange) Then fOnChange(Self);
Invalidate;
End;
End;
cs_mikevkb
Messages postés24Date d'inscriptionsamedi 8 décembre 2007StatutMembreDernière intervention16 mars 2010 5 févr. 2009 à 11:30
Re:
le " fBackGroundColor:TColor; " ne passe pas; " [Erreur] Edit_Custom.pas(14): Identificateur non déclaré : 'TColor' "
Aurais tu une solution à me proposer? Il faut dire que j'ai gardé mon Tedit, je n'ai pas encore essayé ton TCustomControl, Pourrais tu expliquer ce qu'il propose de plus, que l'Edit normal?