Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизПомогите пожалуйста. Я написалкод который виводит текст под углом Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c