Affectation des paramètres de TFont dans une variable

Bonjour,

Je sais que je ne peux pas assigner directement les paramètres d'une Font dans une autre.

Je voudrais récupérer les paramètres d'une Font issue d'un contrôle ou de ma fiche principale pour l'affecter par défaut à une Font que j'utiliserais d'une unité séparée lors de la compilation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

unit uPrint;   {$mode ObjFPC}{$H+}   interface   uses Classes, SysUtils, Graphics, Printers;   Type TParamPrint = record MG,MD,MH,MB : Integer; // marges sur le papier ... FontTitre, FontTexte : TFont; end;   Var ParamPrint : TParamPrint;   procedure ParamPrintDef (var aPP : TParamPrint);   {===============================================================================} implementation uses FP1; // Fiche principale {===============================================================================}   procedure ParamPrintDef (var aPP : TParamPrint); begin With aPP do begin {marges papier} MG := 50; MD := 50; MH := 20; MB := 20; ... {Font titre} FontTitre := ; // Font.Assign(self.Font); FontTexte := ; end; end;   Initialization ParamPrintDef(ParamPrint); end.

---

Je n'arrive pas à assigner FontTitre et FontTexte.

Les exemples que j'ai trouvés sur les différents forums de Lazarus ne répondent pas à mon problème.
Merci pour votre aide
Jlmat

salut

Code:

---

1 2 3 4 5 6 7

Procedure MyObjet.SetFontTitre(Value : TFont); Begin if Not(assigned(FontTitre)) Then FontTitre:= TFont.Create; FontTitre.Assign(Value); end;

---

Merci anapurna pour ta réponse, mais c'est justement Value que je n'arrive pas à capter.

Je voulais récupérer les Fonts de ma fiche principale, mais finalement, c'est idiot car le code d'initialisation de la Font par défaut dans l'unité uPrint se fait dans la partie initialization, donc lors de la compilation.
J'ai pensé que ça serait mieux de capter les polices du système de Screen. J'ai donc créé une fonction pour capter dans une liste les polices du système Screen, mais je n'ai pas réussi à l'exploiter encore, voici le code en l'état :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

function GetFontsScreen : TStringList; var tStr : TStringList; begin result := Nil; Try tStr := TStringList.Create; tStr.Assign(Screen.Fonts); result := tStr; finally if Assigned(tStr) then FreeAndNil(tStr); end; end;

---

Donc normalement, je devrais récupérer le StringList dans ma procédure ParamPrintDef que j'ai modifiée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure ParamPrintDef (Var aFontsScreen : TStringList; var aPP : TParamPrint); begin With aPP do begin {marges papier} MG := 50; MD := 50; MH := 20; MB := 20; {Font titre} Try FontTitre.Assign(aFontsScreen.ValueFromIndex[0]); //FontTexte.Assign(Lf.?????); end; Finally end;   Initialization FontsScreen := GetFontsScreen; ParamPrintDef(FontsScreen,ParamPrint); end.

---

Je ne sais pas si c'est possible d'explorer la Stringlist pour trouver une Font car enregistre-t-elle un Handle, un nom de Police etc...
A suivre