Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Beka © (2002-03-05 11:51:00)
Помогите пожалуйста. Я написалкод который виводит текст под углом

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:00) [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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »