Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.05.20;
Скачать: CL | DM;

Вниз

Запретить DrawFocusRect. при отрисовке строк Listbox   Найти похожие ветки 

 
Maksim V.   (2009-11-01 23:58) [0]

Здравствуйте. Необходимо запретить отрисовку рамки у выделенных элементов ListBox когда его окно сфокусировано. Вполне вероятно данная рамка рисуется через DrawFocusRect. если в родительском окне возвращать 0 в WM_DRAWITEM, можно убрать рамку. Интересует способ удаления этой рамки когда используется сабклассинг только самого элемента управления и WM_DRAWITEM в родительском окне не меняется. Спасибо.


 
Leonid Troyanovsky ©   (2009-11-02 10:18) [1]


> Maksim V.   (01.11.09 23:58)  

> Здравствуйте. Необходимо запретить отрисовку рамки у выделенных
> элементов ListBox когда его окно сфокусировано


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with (Control as TListBox), Canvas do
   begin
     FillRect(Rect);
     TextOut(Rect.Left, Rect.Top, Items[Index]);
     if odFocused in State then
       DrawFocusRect(Rect);
   end;
end;

Только, нехорошо это, прятать фокус.

--
Regards, LVT.



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

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

Наверх




Память: 0.46 MB
Время: 0.008 c
15-1326447033
aka
2012-01-13 13:30
2012.05.20
SSH+Delphi


15-1326400202
Юрий
2012-01-13 00:30
2012.05.20
С днем рождения ! 13 января 2012 пятница


2-1326739475
Anthony
2012-01-16 22:44
2012.05.20
Коррекция ширины колонки в TStringGrid - не работает...


15-1326702784
картман
2012-01-16 12:33
2012.05.20
массив случайных чисел заданной суммы


15-1326056648
Dmitry1987
2012-01-09 01:04
2012.05.20
обновление данных при multi-user работе