Dengan prosedur berikut Anda dapat tampilan teks dengan beberapa sudut. Silahkan melihat sourcenya
procedure AngleTextOut(ACanvas: TCanvas; Angle, X, Y: Integer; Str: string);
var
LogRec: TLogFont;
OldFontHandle,
NewFontHandle: hFont;
begin
GetObject(ACanvas.Font.Handle, SizeOf(LogRec), Addr(LogRec));
LogRec.lfEscapement := Angle*10;
NewFontHandle := CreateFontIndirect(LogRec);
OldFontHandle := SelectObject(ACanvas.Handle, NewFontHandle);
ACanvas.TextOut(X, Y, Str);
NewFontHandle := SelectObject(ACanvas.Handle, OldFontHandle);
DeleteObject(NewFontHandle);
end;
sudut-sudut putarnya, searah jarum jam.
jika seseorang tahu bagaimana tampilan berputar teks dengan properti wordwrap, kemudian
kirim sumber atau link kepada saya armanefendi@gmail.com