Вывод надписи под углом
Вывод надписи под углом
Вывод надписи под углом procedure TForm2.Button1Click(Sender: TObject); var Hfont: Thandle; logfont:TLogFont; font: Thandle; count: integer; begin LogFont.lfheight:=30; logfont.lfwidth:=20; logfont.lfweight:=900; LogFont.lfEscapement:=200; LogFont.lfStrikeOut:=0; logfont.lfcharset:=ANSI_CHARSET; logfont.lfoutprecision:=out_tt_precis; logfont.lfquality:=draft_quality; logfont.lfpitchandfamily:=FF_ROMAN; font:=createfontindirect(logfont); Selectobject(Form2.canvas.handle,font); SetTextColor(Form2.canvas.handle,rgb(0,0,200)); SetBKmode(Form2.canvas.handle,transparent); for count:=1 to 10 do begin canvas.textout(Random(form2.width),Random(form2.height),'Rotated'); SetTextColor(form2.canvas.handle,rgb(Random(255),Random(255),Random(255))); end; deleteobject(font); end;
