Навести красоту в ListBox-е

[Nez]

по-моему ListBox Называется, лень счас заново Delphi запускать.. Вобщем выпадающий список...

Дело в другом..

У меня в программе там в ListBox добавляются записи.. Вот хотелось бы, чтобы записи создавались "с картинками", приблизительно вот так: " "->" текст строчки",

где "->" - обычная картинка в Jpg, и вот в зависимости от параметров там должна то одна картинка перед строчкой помещаться, то другая.. Можно ли такое реализовать.. То есть чтобы посути эта картиночка была частью одной строкчи, а не фон общего раскрывающегося окна...

Вы поняли про что я?

Вобщем после всех добавлений при раскрытии мы должны увидеть нечто следующее:

"->" Петя
"->" Андрей
"->" Вася
"->" Коля
"->" Аня
"->" Таня
"->" Марина

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



Можно ли подобное реализовать???

[Umen]

Конечно можно! Например так:

ставим свойство Style := lbOwnerDrawFixed
В обработчике OnDrawItem описываем, как будет отрисовываться элемент, например:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if index mod 2 = 0 then
ListBox1.Canvas.StretchDraw(Rect, Image1.Picture.Graphic);
if index mod 2 = 1 then
ListBox1.Canvas.StretchDraw(Rect, Image2.Picture.Graphic);
end;

Тут у меня в Image1 и Image2 разные картинки.
В чётные элементы списка отрисовывается Image2 а в нечётные соответственно Image1.

Это только пример, под свои нужды добей самостоятельно

[Nez]

Это понятно, что не чистый код скопирую.. А вот такой вопрос, можно эти картинки "вжывить" в exe-шник, то есть, чтобы прога брала их не из папки, а вот прям из самой себя? Чтобы перетаскивать приходилось только один exe-шник??

[Nez]

Неработает.. Начну с того, что я перепутал объект)) Он нажывается ComboBox) А вот если тоже самое сотворить с комбобоксом, то в строке не получаем никакого текста, а только растянутую во всю строку стрелочку.

Предидущий вопрос, вроде, снимается

[Umen]

Поскольку мы теперь сами отрисовываем елементы комбобокса, то текст тоже вручную нужно выводить

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
if index mod 2 = 0 then
  ComboBox1.Canvas.StretchDraw(Rect, Image1.Picture.Graphic);
if index mod 2 = 1 then
  ComboBox1.Canvas.StretchDraw(Rect, Image2.Picture.Graphic);
ComboBox1.Canvas.TextOut(rect.Left, rect.Top, ComboBox1.Items[index]);
end;

А насчёт рисунков в exe, так в моём способе они именно так и хранятся, просто делаешь ImageX.visible := false, чтобы их видно не было и всё (это чтобы с ресурсами не возиться)

[Квэнди]

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

Это понятно, что не чистый код скопирую.. А вот такой вопрос, можно эти картинки "вжывить" в exe-шник, то есть, чтобы прога брала их не из папки, а вот прям из самой себя? Чтобы перетаскивать приходилось только один exe-шник??

используй ресурсы. Информации по использованию ресурсов на форуме куча.

[RSLoader]

Если с ресурсами, то можно так:
Создай в блокноте файл, например, C:\PECYPC.RC, в котором укажи все картинки, которые хочешь воткнуть в ресурс:
KARTINKA BMPFILE адрествоейкартинки
Чтобы откомпилировать его в ресурс, набери в командной строке:
brcc32 C:\PECYPC.RC
Получишь файл C:\PECYPC.RES
Чтобы пользовать его, напиши в тексте программы {$R C:\PECYPC.RES}
Ну а дальше разберёшься:

implementation
{$R *.DFM}
{$R C:\PECYPC.RES}
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ComboBox1.Style:=csOwnerDrawFixed;
  ComboBox1.Canvas.Fillrect(Rect);
  ComboBox1.Canvas.Draw(Rect.Left,Rect.Top,Image1.Picture.Graphic);
  ComboBox1.Canvas.TextOut(Rect.Left+Image1.Picture.Width,Rect.Top,ComboBox1.Items[Index]);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
  Res:TResourceStream;
begin
  Res:=TResourceStream.Create(HInstance,'KARTINKA','BMPFILE');
  Res.SavetoFile('KARTINKA.BMP');
  Res.Free;
  Image1.Picture.LoadFromFile('KARTINKA.BMP');
  ComboBox1.ItemHeight:=Image1.Picture.Height;
end;

[Nez]

Спасибо.. Завтра только попробовать смогу, сегодня времени нету((

[BOBAH13]

бог ты мой ))) а для чего тогда timagelist :D и такое нельзя делать если картинки разные будут ComboBox1.ItemHeight:=Image1.Pictur e.Height; !!! надо в обработчике OnMeasureItem ! :D удачи, и никаких jpeg и т.п. только битмапы использовать

[Nez]

А нельзя поподробнее???