╩αΩ Γ√Σα≥ⁿ ≥σΩ±≥ ∩εΣ φαΩδεφε∞?

╫≥εß√ Γ√Γσ±≥Φ ∩εΣ δ■ß√∞ ≤πδε∞ ≥σΩ±≥ φσεß⌡εΣΦ∞ε Φ±∩εδⁿτεΓα≥ⁿ TrueType Fonts (φα∩≡Φ∞σ≡ "Arial"). ═α∩≡Φ∞σ≡: 

var 
  LogFont : TLogFont;

...
  GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
  { ┬√Γσ±≥Φ ≥σΩ±≥ 1/10 π≡αΣ≤±α ∩≡ε≥ΦΓ ≈α±εΓεΘ ±≥≡σδΩΦ }
  LogFont.lfEscapement := Angle*10; 
  Canvas.Font.Handle := CreateFontIndirect(LogFont);


╧≡Φ∞σ≡ (3Ωß)



╤εΓσ≥√ φα≈Φφα■∙Φ∞