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 : Sélectionner tout - Visualiser dans une fenêtre à part
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