Problem with rotated fonts

bt2000

var
LogFont: TLogFont; // I'm not familiar with this class? ?
theFont: TFont;
begin
with Form1.Canvas do
begin
Font.Name: = 'Songti';
Font.Size: = 18;
Font.Color: = clYellow;
theFont: = TFont.Create;
theFont.Assign (Font);
GetObject (theFont.Handle, Sizeof (LogFont), @LogFont); // gettobject is not
LogFont.lfEscapement: = 450; // 45 degrees ?? // load file object?
LogFont.lfOrientation: = 450; // 45 degrees ??
theFont.Handle: = CreateFontIndirect (LogFont); // ???
Font.Assign (theFont);
theFont.Free;
TextOut (X, Y, 'Hello!');
end;
end;
This piece of code can achieve font rotation in many places I don't understand
Please guide

xinmozhan

TLogFont = LOGFONT structure in WIN32 SDK

See the explanation in the SDK for yourself
typedef struct tagLOGFONT {// lf
   LONG lfHeight;
   LONG lfWidth;
   LONG lfEscapement;
   LONG lfOrientation;
   LONG lfWeight;
   BYTE lfItalic;
   BYTE lfUnderline;
   BYTE lfStrikeOut;
   BYTE lfCharSet;
   BYTE lfOutPrecision;
   BYTE lfClipPrecision;
   BYTE lfQuality;
   BYTE lfPitchAndFamily;
   TCHAR lfFaceName[LF_FACESIZE];
} LOGFONT;

Fonts are graphical objects in Windows, where GetObject is the LOGFONT structure used to return system fonts


lfEscapement
lfOrientation
The explanation is already in the SDK