Процедура DrawItem в TListBox...

[Aslan]

Неприятность при использовании DrawItem в TListBox. Моя процедура полностью отрисовывает строку в ListBox, делает всё как надо, только вот на активной строке отрисовывается пунктирный прямоугльник. Как от него избавиться? Изменение Style не помогает

[Jeni]

Действительно, что-то никак не выходит избавиться от прямоугольника. Может тогда использовать не ListBox, а DrawGrid ? Там точно можно настроить всё как надо. ListBox пусть хранит строки, но будет невидимый, а DrawGrid будет эти строки отображать при прорисовке.

[Aslan]

У меня тоже была мысль заменить объет TListBox чем то похожим. Надо подумать.
Спасибо за ответ!

[Alter]

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

Неприятность при использовании DrawItem в TListBox. Моя процедура полностью отрисовывает строку в ListBox, делает всё как надо, только вот на активной строке отрисовывается пунктирный прямоугльник. Как от него избавиться? Изменение Style не помогает

А что это даст, если небудет контура. Как покажешь что выбрано.
А контур что-то не убирается.

[Net]

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

Вот кусок из моего кода:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var List:TListBox;
begin
    List:=Control as TListBox;
    with List.Canvas, Rect do
        begin
	    if odSelected in State then
	    begin
	        Brush.Color:=clClickedColor;
	        Font.Color:=clHighlightText;
	    end
	    else
	    begin
	        Brush.Color:=clWindow;
	        Font.Color:=clWindowText;
	    end;

	    FillRect(Rect);
               if odFocused in State then Windows.DrawFocusRect(List.Canvas.Handle, Rect);
               TextOut(Left + 1, Top + 1, List.Items[Index]);
        end;  
end;

Константы цвета свои подставите, я использовал свои, т.е. системные, но смешанные в разных пропорциях для соблюдения общей цветовой схемы.

[mutabor]

Я вот посмотрел как сделано в плеерах в плейлистах. Там этот самый пунктир начинается после картинки, пикселей через 15. Но он есть. Я пробовал также сделать, не получилось.

[strelokjob]

Лучше всего, я думаю, это перекрыть TCustomListBox.CNDrawItem своим кодом. Тут никаких проблем возникнуть не должно.