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

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

TextOut Без BackGround в DirectX [Delphi, Windows]


D@rk ©   (2004-02-04 10:57:00) 

Люди хелп плиз !!!
Рисую на DxSurface TextOut-ом с помощью процедурки котораю нагло стырил из DDutil8  и изменил и рисую прямо на один из Флипающихся Surface вооющем примерно так:

Procedure DrawText(Surface:IDirectDrawSurface7; const strText : PCHAR; const dwOriginX, dwOriginY : DWORD;
               const crBackground, crForeground : COLORREF);
var
   DC : HDC;
begin
   DC := 0;
   Surface.GetDC( DC );
   SetBkColor( DC, crBackground);
   SetTextColor( DC, crForeground);
   TextOut( DC, dwOriginX, dwOriginY, strText, length(strText) );
   Surface.ReleaseDC( DC );
end;


а затем :
drawtext(FBackground, pchar('Ля-ля-ля'), 0, 0, rgb(0,0,0),rgb(10,220,10));
Но как убрть фон текста я незнаю если не указывать rgb то по Default
он будет Белым. Help !!!


Zeqfreed   (2004-02-04 13:47:00) [1]

SetBkMode(DC,TRANSPARENT);


Наверх

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