Sabtu, 13 September 2008

MENULIS TEXT MIRING PADA DELPHI

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

Tidak ada komentar: