Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

Подскажите про CreateFontIndirect   Найти похожие ветки 

← →
k2 ©   (2003-07-21 09:05) [0]

var ...
lf: TLogFontA;
hf, hfntPrev: HFONT;
( hdc, TRANSPARENT) var ...
lf: TLogFontA;
hf, hfntPrev: HFONT;
hdc: THandle;
begin
...
hdc:=Handle;
lf.lfEscapement:=900;
lf.lfUnderline:=0;
lf.lfStrikeOut:=0;
lf.lfHeight:=-14;
SetBkMode(hdc, TRANSPARENT);
hf:=CreateFontIndirect(lf);
hfntPrev:=SelectObject(hdc,hf);
TextOut(rx,ry,s);
SelectObject(hdc,hfntPrev);
DeleteObject(hf);
SetBkMode(hdc, OPAQUE);
...
end;

все чудно, текст под углом, однако при изменении lf.lfHeight:=-11; текст выводится горизонтально :( не могу сообразить почему :(

---

← →
Dimaxx ©   (2003-07-22 01:19) [1]

Лучче бери просто СreateFont - он попроще, а результат тот же.

---

← →
Игорь Шевченко ©   (2003-07-22 12:14) [2]

> при изменении lf.lfHeight:=-11

После изменения Font заново пересоздается ?

---

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

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.084 c