Tym razem wykonamy procedurę wyświetlającą tekst pod określonym kątem. Najpierw ustawiamy parametry początkowe, następnie tworzymy nowy obiekt czcionki i przypisujemy mu uchwyt (handle) naszego formularza.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
procedure TForm1.Button1Click(Sender: TObject); var Hfont: Thandle; logfont:TLogFont; font: Thandle; count: integer; begin LogFont.lfheight:=30; logfont.lfwidth:=10; logfont.lfweight:=900; LogFont.lfEscapement:=900; // kąt logfont.lfcharset:=1; logfont.lfoutprecision:=out_tt_precis; logfont.lfquality:=draft_quality; logfont.lfpitchandfamily:=FF_Modern; font:=createfontindirect(logfont); Selectobject(Form1.canvas.handle,font); SetTextColor(Form1.canvas.handle,rgb(0,0,200)); SetBKmode(Form1.canvas.handle,transparent); // Rysuje sto napisów pod różnym kątem for count:=1 to 100 do begin canvas.textout(Random(form1.width),Random(form1.height) ,'Rotated'); SetTextColor(form1.canvas.handle,rgb(Random(255), Random(255),Random(255))); end; deleteobject(font); end; |
Autor: Nakiel