Creer une FONT

salut

en quoi la creation d'une font est HS

voila un morceau de code te permetant de creer une font
dans son appli

il existe deux solution pour generer des font dans une appli
soit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Font1:=CreateFont(
    -12,                           // Height
    0,                             // Width
    0,                             // Angle of Rotation
    0,                             // Orientation
    FW_NORMAL,                     // Weight
    0,                             // Italic
    0,                             // Underline
    0,                             // Strike Out
    ANSI_CHARSET,                  // Char Set
    OUT_DEFAULT_PRECIS,            // Precision
    CLIP_DEFAULT_PRECIS,           // Clipping
    DEFAULT_QUALITY,               // Render Quality
    VARIABLE_PITCH or FF_SWISS,    // Pitch & Family
    'MS Sans Serif');              // Font Name

ou utiliser CreateFontIndirect en remplisant l'enregistrement de type
LOGFONT

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
var
  DefFontLog1: TLogFont;
 
with DefFontLog1 do
  begin
  lfHeight := -12;
  lfWidth := 0;
  lfEscapement := 0;
  lfOrientation := 0;
  lfWeight := 0;
  lfItalic := 0;
  lfUnderline := 0;
  lfStrikeOut := 0;
  lfCharSet := DEFAULT_CHARSET;
  lfFaceName := 'MS Sans Serif';
  lfOutPrecision := OUT_DEFAULT_PRECIS;
  lfClipPrecision := CLIP_DEFAULT_PRECIS;
  lfQuality := DEFAULT_QUALITY;
  lfPitchAndFamily := DEFAULT_PITCH;
  end;
FontHandle := CreateFontIndirect(DefFontLog1);
 
with DefFontLog1 do
  begin
  lfHeight := -14;
  lfWidth := 0;
  lfItalic := 0;
  lfWeight := FW_BOLD;
  lfCharSet := DEFAULT_CHARSET;
  lfOutPrecision := OUT_TT_PRECIS;
  lfClipPrecision := CLIP_DEFAULT_PRECIS;
  lfQuality := {DEFAULT_QUALITY}ANTIALIASED_QUALITY;
  lfPitchAndFamily := VARIABLE_PITCH or FF_ROMAN;
  lfFaceName := 'Times New Roman';
  end;
Font2 := CreateFontIndirect(DefFontLog1);
 
with DefFontLog1 do
  begin
  lfHeight := -20;
  lfWidth := 0;
  lfItalic := 1;
  lfWeight := FW_NORMAL;
  lfPitchAndFamily := VARIABLE_PITCH or FF_DECORATIVE{FF_SCRIPT}{FF_SWISS};
   lfFaceName := 'v8j9k2a5';
  end;
Font3 := CreateFontIndirect(DefFontLog1);
 
with DefFontLog1 do
  begin
  lfHeight := -14;
  lfWidth := 0;
  lfItalic := 0;
  lfEscapement := 200;
  lfOrientation := lfEscapement;
  lfPitchAndFamily := VARIABLE_PITCH or FF_SWISS;
  lfFaceName := 'Arial';
  end;
Font4 := CreateFontIndirect(DefFontLog1);
 
with DefFontLog1 do
  begin
  lfHeight := -14;
  lfEscapement := 3400;
  lfOrientation := lfEscapement;
  end;
Font5 := CreateFontIndirect(DefFontLog1);
 
with DefFontLog1 do
  begin
  lfHeight := -16;
  lfWeight := 0;
  lfEscapement := 900;
  {this font is rotated 90 degrees}
  lfOrientation := lfEscapement;
  end;
Font6 := CreateFontIndirect(DefFontLog1);
 
with DefFontLog1 do
  begin
  lfHeight := -16;
  lfEscapement := 2700;
  lfOrientation := lfEscapement;
  lfPitchAndFamily := VARIABLE_PITCH or FF_ROMAN;
  lfFaceName := 'Times New Roman';
  end;
Font7 := CreateFontIndirect(DefFontLog1);

@+ phil