Иконки в TListBox

← →
Micke_real (2003-09-27 21:56) [0]

У меня есть ListBox со списком, мне необходимо чтобы рядом с текстом была иконка у всех одна. Сначала иконка, а рядом текст.

← →
Palladin © (2003-09-27 21:59) [1]

И что? Какие затруднения?
Понимаешь когда люди высказывают сдесь желания, а не вопрос, все это кончается плачевно.

← →
Micke_real (2003-09-27 22:05) [2]

Я понимаю, что это тупой вопрос, но именно с такой проблемой я и сталкнулся. Пишу каталог со страницами.
Кстати, есть типа строчка, имя файла с расширением, как отделить имя от расшерения?

← →
Palladin © (2003-09-27 22:13) [3]

если только имя файла без пути то
function GetFileExt(const p_strFileName:string):string; var i:integer; begin Result:=p_strFileName; if Pos(".",p_strFileName)=0 then exit; i:=Length(p_strFileName); while p_strFileName[i]<>"." do i:=i-1; Result:=Copy(Result,1,i-1); end;

касаемо твоей проблемы то есть событие TListBox.OnDrawItem
там и реализуй рисование картинки и вывод текста

← →
Micke_real (2003-09-27 22:16) [4]

За разделение имени от расшерения спасибо, но вот с иконками вопрос не закрыт. Если можно маааленький примерчик. Я уже долго с этим вожусь и весь процесс тормозит из-за этого. Ну что никто не может помочь?

← →
Palladin © (2003-09-27 22:21) [5]

смотри в справке

← →
Micke_real (2003-09-27 22:22) [6]

Ну подскажите плз... Я в этой справке уже столько копался! Я ВСЁ перепробовал... Я умру

и что? ненашел примера чтоли?
по англицки пример будет Example

идешь в справку по индексу
TListBox.OnDrawItem
и там наверху написано Example

кстати как раз с картинками

← →
Micke_real (2003-09-27 22:31) [8]

:) Спасибо!

Иконки в TListBox Найти похожие ветки