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

Вниз

перерисовка listbox   Найти похожие ветки 

 
John   (2005-07-26 17:23) [0]

Значит listbox co стилем  lbOwnerDrawVariable
MultiSelect- false

При selecte которого строка закрашивается в цвет

with Control as TListBox, Canvas do
begin
if selected[index]=true then
 Brush.Color:=clReD;
 Canvas.FillRect(Rect);
 Canvas.TextOut(Rect.Left, Rect.Top,Items[Index]);
end;

Как при этом очистить остальные строки( не в смысле данные
а привести к исходному цвету).

В событие Onclick
используя  Repaint Refresh
сильно мерцает

Или как устронить это мерцание ?


 
Джо ©   (2005-07-26 17:27) [1]

Неверно делаешь. Нужно таким образом:

   Brush.Style := bsSolid;
   if odSelected in State then
   begin
     Brush.Color := clHighlight;
     Font.Color := clHighlightText
   end
   else
   begin
     Brush.Color := clWindow;
     Font.Color := clWindowText
   end;
   FillRect (Rect);


 
Джо ©   (2005-07-26 17:28) [2]


>  [1] Джо ©   (26.07.05 17:27)

То есть, еще, при необходимости добавить проверку на другие состояния в State.
Да, OnDrawItem вызывается, когда это необходимо, в том числе, и для "остальных" строк.



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

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

Наверх




Память: 0.47 MB
Время: 0.026 c
14-1121798060
Керк
2005-07-19 22:34
2005.08.14
Вся правда о Гагарине


3-1120153208
redlord
2005-06-30 21:40
2005.08.14
азы испопользования sql в delphi


9-1114402978
Slavikk
2005-04-25 08:22
2005.08.14
Сетевая игра на GLScene


1-1122238282
Galiaf
2005-07-25 00:51
2005.08.14
Проблемы с новыми компонентами.


1-1122518346
npr2
2005-07-28 06:39
2005.08.14
печать отчкта в crystal reports