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