| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите про CreateFontIndirect
k2 © (2003-07-21 09:05:00)
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; текст выводится горизонтально :( не могу сообразить почему :(
Игорь Шевченко (2003-07-22 12:14:00) [1]
> при изменении lf.lfHeight:=-11
После изменения Font заново пересоздается ?
Dimaxx (2003-07-22 01:19:00) [2]
Лучче бери просто СreateFont - он попроще, а результат тот же.
| |
