Видоизменение выделенной строки в ListBox Delphi

[SoftKoc]

!Здравствуйте!

Подскажите пожалуйста как мне реализовать вот такую вот штуку:

combo_ListBox002.png

1 - А точнее изменить вид выделение строки.
Я вас очень прошу, очень нужно.

!Заранее очень благодарен!

[raxp]

либо готовыми компонентами, поищите buisnessskin либо самому.

[mihali4]

Создайте такую картинку.
Теперь вам в помощь - стандартный хэлп.
OnDrawItem event (TCustomListBox) - там есть пример, как рисовать в строке листбокса картинку.
А чтобы вывести текст поверх нее, вам нужно убрать красное в строке:
TextOut(Rect.Left + Offset, Rect.Top,...

[SoftKoc]

Извините но я в этих делах полный ламер!
Я выложу исходник того что у меня получилось.
Помогите пожалуйста.
А то он глючит по страшному.

ListBox.rar

[raxp]

используйте событие ondrawitem (вам уже указал - mihali4):

var
  Form1: TForm1;
  BMP: TBitmap;

implementation

{$R *.dfm}

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with (control as tlistbox).Canvas do begin
  FillRect(Rect);
  Draw(Rect.Left + 1, Rect.Top,BMP);
  Brush.Style:= bsClear;

  TextOut(Rect.left + 19, Rect.Top+1,(Control as TListBox).Items[Index])
 end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 BMP:= TBitmap.Create;
 BMP.LoadFromFile('1.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 bmp.Free
end;

не забудьте свойство listbox поставить в otherdrawfixed... впрочем см. вложение
(выделение сетки убрать через offset... это вы уже сами)

[mihali4]

Я бы только добавил, что нужно ввести проверку
if (Control as TListBox).Selected[Index] then
а потом
else
то же самое, но с "пустой" картинкой.

P.S. И еще одна тонкость - с листбоксом что ни делай, он, собака такая, никак не реагирует.
Я знаю только один способ заставить его среагировать:

ListBox1.Visible:=False;
ListBox1.Visible:=True;

[SoftKoc]

Спасибо всем большое!!! =-)

[SoftKoc]

А как можно или убрать ScrollBar или изменить его вид?

[mihali4]

Одна тема - один вопрос.
Читаем правила.
Закрыто.