Вниз
Скачать: CL | DM;

WriteText и белый фон   Найти похожие ветки 

 
Rem ©   (2005-01-28 19:06) [0]

При выводе текста с помощью процедуры API WriteText(), фон текста закрашивается белым. Создание новой кисти с BS_HOLLOW и последующим использованием этой кисти в контексте - не помогает. Где грабли?

DC := GetDC(Handle);
try
 LogBrush.lbStyle := BS_HOLLOW;
 BR := CreateBrushIndirect(LogBrush);
 try
   OldBrush := SelectObject(DC, BR);
   try
     Format := Format + DT_END_ELLIPSIS;
     DrawText(DC, (@Text[1]), -1, R, Format);
   finally
     SelectObject(DC, OldBrush);
   end;
 finally
   DeleteObject(BR);
 end;
finally
 ReleaseDC(Handle, DC);
end;


P.S. Надо ради DT_END_ELLIPSIS. Возможно, есть другие решения, помимо использования WriteText?


 
Rem ©   (2005-01-28 19:08) [1]

Упс... конечно же, DrawText


 
akvilon ©   (2005-01-28 19:16) [2]

SetBkMode, SetBkColor



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c
4-1103641722
juice
2004-12-21 18:08
2005.02.13
MS Word, OLEContainer


4-1104215713
Дима778
2004-12-28 09:35
2005.02.13
Delphi 6 vs Windows XP Home Edition @Sysutils@CheckWin32Version$


14-1106362768
Поручик
2005-01-22 05:59
2005.02.13
Миранда


6-1101985857
DelphiN!
2004-12-02 14:10
2005.02.13
Получить IP адрес клиента, подключившегося к TidMappedPortTCP


14-1106335897
olookin
2005-01-21 22:31
2005.02.13
Являетсли ли склонность к попсе признаком деградации?




   Наверх