Скачать: CL | DM;

Помогите пожалуйста. Я написалкод который виводит текст под углом   Найти похожие ветки 

← →
Beka ©   (2002-03-05 11:51) [0]

Помогите пожалуйста. Я написалкод который виводит текст под углом

procedure TForm1.Button1Click(Sender: TObject);
var
lf: TLogFont;
begin
with lf do begin
lfHeight := 15;
lfWidth := 20;
lfEscapement := 100;
lfWeight := 1000;
lfCharSet := RUSSIAN_CharSet;
StrCopy(lfFaceName, "Arial");
end;
with image1.Canvas do begin
FillRect(ClipRect);
Font.Handle := CreateFontIndirect(lf);
TextOut(0, 100, "It is a text string");
end;

После етого как сделать так чтоби на Button2.click выводилось обычный текст , т. е. Не TLogFont а String.

---

← →
MBo ©   (2002-03-05 12:58) [1]

oldh:thandle;

with image1.Canvas do begin
FillRect(ClipRect);
oldh:=font.handle;
Font.Handle := CreateFontIndirect(lf);
TextOut(0, 30, "It is a text string");
font.handle:=oldh;
end;
и еще не забудь DeleteObject

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c