Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Вниз

Иконки в 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]

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

---

← →
Palladin   (2003-09-27 22:25) [7]

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

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

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

---

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

:) Спасибо!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Наверх

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