varHfont: Thandle; logfont: TLogFont; font: Thandle; count: integer; begin
LogFont.lfheight := 30; logfont.lfwidth := 10; logfont.lfweight := 900; LogFont.lfEscapement := -200; 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); {textout(form1.canvas.handle,10,10,'Повернутый',7);} for
count := 1 to
100 do
begin
canvas.textout(Random(form1.width), Random(form1.height), 'Повернутый'); SetTextColor(form1.canvas.handle, rgb(Random(255), Random(255), Random(255))); end
; deleteobject(font); end
;