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

Вниз

List Box. Owner Draw.   Найти похожие ветки 

 
Маркыч ©   (2003-03-08 09:04) [0]


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
TListBox(Control).Canvas.Brush.Style:=bsSolid;
if index=TListBox(Control).ItemIndex
then TListBox(Control).Canvas.Brush.Color:=clLime
else TListBox(Control).Canvas.Brush.Color:=clBlue;
TListBox(Control).Canvas.FillRect(rect);
Caption:=IntToStr(index)+" of "
+IntToStr(TListBox(Control).ItemIndex);


примерно так я издеваюсь над листбоксом, пытаюсь рисовать итемы в ручную. Выделеную зеленым цветом не выделеную синим. и вроде бы работает, но я выбираю одну итему все ровно, выбираю следущую - предыдущая не меняет цвет, i.e. остается зеленой. пожалста подскажите мне где ошибка.


 
Song ©   (2003-03-08 09:07) [1]

Дык а где ты сам итем рисуешь ? Я вот только вижу смену цвета и очистку клиентской области итема.


 
Маркыч ©   (2003-03-08 09:19) [2]

ну, блин, я пока тока цвет итема и меняю. пойму в чем мой ерор - исправлю и поду дальше.


 
Song ©   (2003-03-08 09:45) [3]

Ну дак чтобы было видно что у тебя меняются цвета, надо ещё итемы рисовать этими изменёнными цветами :)


 
Intell ©   (2003-03-08 15:34) [4]

А ты обойди функцию
if index=TListBox(Control).ItemIndex
then TListBox(Control).Canvas.Brush.Color:=clLime
else TListBox(Control).Canvas.Brush.Color:=clBlue;

или попробуй поработать с ItemIndex - сделай так, что если Index поменялся, то прошлая Index закрашивается.



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
4-64424
Evgeniy Startsev
2003-01-25 15:18
2003.03.20
Message LVM_SCROLL


1-64130
Alex76S
2003-03-11 10:07
2003.03.20
Необходимо запустить exe файл и выполнить код после его закрытие


4-64443
KoHe4Ho }|{e 6ot
2003-01-25 19:51
2003.03.20
Работа с памятью


3-64022
Kurt_
2003-03-01 15:01
2003.03.20
Не подскажите как в АДО фильтр на квери поставить типа name is N


14-64388
bom
2003-03-05 21:48
2003.03.20
Создание программой своей копии