Фон в listbox

[Черничный]

ребята, а как можно в listbox полупрозрачный фон сделать, jpg картинку затолкать туда.

[BOBAH13]

TVirtualTreeView кажется так ищим и используем

[Черничный]

Нее, у меня обычный listbox. щас же все через канву делают(в том направлении мыслю?) Хотябы не полупрозарчную, а обычную картинку? Подскажите, а то с этой канвой не въезжаю кто она и что она

[Stilet]

У него есть OnDrawItem, вот там и отрисовывай картинку, а на ней уже и текст списка

[Черничный]

ну вам вроде ясна модель, а я да же не втыкаю про OnDrawItem

[Манжосов Денис :)]

Эта такая процедура есть у объекта OnDrawItem.

я понимаю, но есть такое в моей голове - незнаю! так кто может и знает и не будет уминчать и поможет. Спасиба

Я и не унижаю, я просто пояснил.

[Черничный]

я понимаю, но есть такое в моей голове - незнаю! так кто может и знает и не будет уминчать и поможет. Спасиба

[Stilet]

Халявишь, и хелпы не чтивишь... Ну да ладно, вот пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var t:TBitmap;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 t:=TBitmap.Create;

 t.Width:=1024;t.Height:=728;
 t.LoadFromFile('D:\Мои документы\Мои рисунки\lory.bmp');

end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
if index=0 then
StretchBlt(ListBox1.Canvas.Handle,0,0,ListBox1.Width,ListBox1.Height,
 t.Canvas.Handle,0,0,t.Width,t.Height,SRCCOPY);

 ListBox1.Font.Color:=clwhite;
ListBox1.Canvas.TextOut(rect.Left,rect.Top,listbox1.Items[index]);

end;

end.

Разберешся или пояснить?

[Черничный]

тут одиним хелпом не обойтись! Мне бы теории про канаву, это я в принципе знаю где щас смотреть. А вот эти ListBox1DrawItem это вообще о чем?

Странно, почему то не отрисовывает

[Stilet]

тут одиним хелпом не обойтись!

Как раз хелп то лучшее. И примеров в самом делфи-Demos багато.

Странно, почему то не отрисовывает

У меня все пучком, чет ты не то творишь )