TListBox и Canvas

[NEoMASTERR]

Здравствуйте, при нажатии на итем в листбоксе он заполняется цветом, при нажатии на другой итем на первом всё равно остаётся выделение, как мне его убрать? Подскажите пожалуйста.



Заполняется так (перед этим загружается картинка в фон листбокса):

procedure TListbox.CNDrawItem(var Message: TWMDrawItem);
var
 State: TOwnerDrawState;
begin
  with Message.DrawItemStruct^ do
  begin
 //.... 
      if (odSelected in State) then
      begin
        Brush.Color := $00FFD2A6;
        canvas.FillRect(Rect(ItemHeight,itemid*itemheight,width,itemid*itemheight+itemheight));
      end;
//...
end;

Думал копировать кусочек картинки поверх старого выделения но по моему это бред, при Resize формы и листбокса выделение пропадает, но это не выход.

[northener]

Сообщение от NEoMASTERR

Здравствуйте, при нажатии на итем в листбоксе он заполняется цветом, при нажатии на другой итем на первом всё равно остаётся выделение, как мне его убрать? Подскажите пожалуйста.

Если выделенным всегда должен быть только один (ну прям горец какой-то), то вспомни если забыл или узнай если не знал, что у конструкции if...then есть еще необязательный блок else.

[NEoMASTERR]

Сообщение от northener

Если выделенным всегда должен быть только один (ну прям горец какой-то), то вспомни если забыл или узнай если не знал, что у конструкции if...then есть еще необязательный блок else.

Попросил не показать ваш уровень мастерства острить, а помочь.. Попробуй с else и покажи рабочий код

Программно итем не выделен, выделение остаётся потому что canvas не очищает за собой. Оно только визуальное. .refresh и .repaint в onClick не подходят

procedure TForm3.lst1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  InvalidateRect(lst1.Handle,nil,true);                // Так всё мерцает :(
end;

[evg_m]

выделение остаётся потому что canvas не очищает за собой.

FillRect это не рисование, а очистка поля перед рисованием.

[NEoMASTERR]

Сообщение от evg_m

FillRect это не рисование, а очистка поля перед рисованием.

Странное очищение если оно рисует (fill (анг) - заливка)...
Будем считать переделал на:

        Canvas.Rectangle(Rect(ItemHeight,itemid*itemheight,width,itemid*itemheight+itemheight));
        //canvas.FillRect(Rect(ItemHeight,itemid*itemheight,width,itemid*itemheight+itemheight));

Ничего не изменилось результат тот же, еще предложения?

[Пепел Феникса]

Сообщение от NEoMASTERR

Странное очищение если оно рисует (fill (анг) - заливка)...

очищение есть рисование фона.

[NEoMASTERR]

Сообщение от evg_m

FillRect это не рисование

Сообщение от Пепел Феникса

очищение есть рисование фона.

Помогите мне выделить (залить, зарисовать, закрасить) выделенный итем и снять выделение со старого без изменения в размере формы (пока только так сбрасывается отрисованное ранее)

Вот это тоже как вариант, но это извращение

procedure TListbox.WMMOUSEWHEEL(var Message: TWMMOUSEWHEEL);
begin
 if GetFocus = Handle then
   begin
     LockWindowUpdate(Handle);
     inherited;
     LockWindowUpdate(0);
     InvalidateRect(Handle, nil, true);
   end
 else
   inherited;
end;

procedure TForm3.lst1Click(Sender: TObject);
begin
  SendMessage(lst1.Handle,WM_MOUSEWHEEL,0,0);
end;

[evg_m]

Снять выделение = нарисовать фон невыделенным цветом (та самая ветка else)
и на этом невыделенном фоне нарисовать все прочее.

Все InvalidateRect как раз и делают ту самую заливку невыделенным цветом.

[NEoMASTERR]

Всё по старому, заливка остаётся

      
procedure TListbox.CNDrawItem(var Message: TWMDrawItem);
///...
if (odSelected in State) then
      begin
        Canvas.Font.Color := clred;
        Brush.Color := $00FFFF00;
       // Canvas.DrawFocusRect(rcitem);
        //Canvas.Rectangle(Rect(ItemHeight,itemid*itemheight,width,itemid*itemheight+itemheight));
        canvas.FillRect(Rect(ItemHeight,itemid*itemheight,width,itemid*itemheight+itemheight));
      end
      else
      begin
        InvalidateRect(hDC,@rcitem,true);
        //Brush.Style:=bsClear;
      end;
    end;

Неужели никто не сталкивался?

[evg_m]

InvalidateRect(hDC,@rcitem,true);

Это что? рисование фона?
Рисование-это использование тех или функций Canvas.