Главная страница
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.029 c
4-1103568902
KOMBAS
2004-12-20 21:55
2005.02.13
Как отловить содержимое Edit ов в форме IE ?


11-1090485554
DJ DIZzY
2004-07-22 12:39
2005.02.13
А где у Button a Flat ???


4-1103981421
moor38
2004-12-25 16:30
2005.02.13
WinNT как "подвесить"


3-1105891955
KristinA
2005-01-16 19:12
2005.02.13
Delphi vikidivat tabli4ku --> "Bitmap image is not valid."


1-1106803697
Demir
2005-01-27 08:28
2005.02.13
Тема Excel