Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

API функция для изменения шрифта TextOut


CodeMaster ©   (2008-11-13 16:47:00) 

Здраствуйте Мастера! Возникла делема с изменением шрифта API функции TextOut(DC: HDC,X,Y: Integer;Str:PAnsiChar;Count:Integer);

Как задать DC другой шрифт?
Вот моя функция:
if Succeeded(FrmMain.FDDSMenuButton.GetDC(DC)) then begin

SetBkMode(DC,TRANSPARENT);
SetTextColor(DC,RGB(153,153,153));

TextOut(DC,Width div 2,15,PChar(Txt),Length(Txt));
SetBkMode(DC,OPAQUE);
FrmMain.FDDSMenuButton.ReleaseDC(DC);
end;

FDDSMenuButton это IDirectDrawSurface7 из модуля DirectDraw компонента DirectX.
Читал про функцию EnumFonts - но толком ничего не понял - может вы мне сможете помочь?


CodeMaster   (2008-11-15 12:21:00) [1]

Спасибо - всё работает


MBo   (2008-11-13 20:19:00) [2]

SelectObject


Наверх

Титульная страница Поиск, карта сайта Написать письмо