Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c