Вертикальный текст

Советы » Canvas » Вертикальный текст

var

Hfont: 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com