Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.13;
Скачать: 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 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-1106899380
Mishenka
2005-01-28 11:03
2005.02.13
PopupMenu для заголовков столбцов в DbGridEh


3-1105448998
Doctor Deejay
2005-01-11 16:09
2005.02.13
Где и как прописывать алиасы при запуске на компе без Делфи


14-1106295530
Григорьев Антон
2005-01-21 11:18
2005.02.13
Зима, кажется, вернулась. Надо этим воспользоваться.


4-1103986628
uw
2004-12-25 17:57
2005.02.13
Настройка COM-порта


14-1106088305
Sphinx
2005-01-19 01:45
2005.02.13
Delphi 2005