Главная страница
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.033 c
1-1106743509
Eyfel
2005-01-26 15:45
2005.02.13
ECO + Delphi 2005


1-1107176888
Andarkl
2005-01-31 16:08
2005.02.13
Курсор из файла?


1-1106730868
K@rt
2005-01-26 12:14
2005.02.13
Удаление из TFileStream


1-1107157612
Алекс.Т
2005-01-31 10:46
2005.02.13
Предотвращение появления черного окошка при запуске консольного п


3-1105535446
Виталий Панасенко
2005-01-12 16:10
2005.02.13
Определение параметров драйверов в БДЕ