Текущий архив: 2002.03.21;
Скачать: 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 вся ветка
Текущий архив: 2002.03.21;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.011 c
