Dalam pembuatan program tentunya kita menginginkan program yang kita buat memiliki kelebihan, salah satunya adalah dalam hal antar muka (interface). Biasanya suatu teks akan tampil dalam standarnya yaitu horizontal, tetapi dengan delphi kita dapat merotasikan suatu teks yang akan ditampilkan dengan sudut tertentu.
Dengan menggunakan prosedur AngleText, maka kita dapat melakukan rotasi teks dengan besaran sudut tertentu.
Berikut ini adalah contoh kode program :
procedure AngleTex(ACanvas: TCanvas; Angle, X, Y: Integer; Str: string);
var
LogRec: TLogFont;
OldFontHandle, NewFontHandle: hFont;
begin
GetObject(ACanvas.Font.Handle, SizeOf(LogRec), Addr(LogRec));
LogRec.IfEscapement := Angle * 10;
NewFontHandle := CreateFontIndirect(LogRec);
OldFontHandle := SelectObject(ACanvas.Handle, NewFontHandle);
ACanvas.TextOut(X,Y,Str);
NewFontHandle := SelectObject(ACanvas.Handle, OldFontHandle);
DeleteObject(NewFontHandle);
end;
Pada parameter Angle merupakan sudut rotasi dalam satuan derajat, searah jarum jam.
#Semoga Bermanfaat
