J'ai un peu galèré pour pouvoir sauvegarder les paramètres d'une fonte et éviter d'avoir des messages d'erreurs c'est pour çà que je mets cette petite source sans prétention mais qui pourra sans doute être utile a certains Delphinautes.
J' ai fait la même chose que toi à la difference que je garde chaque fonte dans une string (pour pouvoir la garder dans un champ d' une table), les parametres etant separés par un point virgule (;).
Donc j' ai 2 fonctions dans le genre :
LoadFont(StrFont: String; toFont: TFont);
et
maFonte := SaveFont(aFont: TFont): String;
ou
Table1CHAMP1.Value := SaveFont(aFont: TFont): String;
Sinon c bien !
A au fait, moi je ne garde pas CharSet ...
31 mai 2004 à 17:31
Donc j' ai 2 fonctions dans le genre :
LoadFont(StrFont: String; toFont: TFont);
et
maFonte := SaveFont(aFont: TFont): String;
ou
Table1CHAMP1.Value := SaveFont(aFont: TFont): String;
Sinon c bien !
A au fait, moi je ne garde pas CharSet ...
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.