Salut
Comment creer sa propre fonte,e
t quelle sont les programme que vous me conseiller.
Merci.
Salut
Comment creer sa propre fonte,e
t quelle sont les programme que vous me conseiller.
Merci.
il y a high-logic font creator qui est pas trop mal
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
ou utiliser CreateFontIndirect en remplisant l'enregistrement de type
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 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
LOGFONT
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
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
Partager