Текущий архив: 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.031 c
