[Casper-Hacker]

Мне нужен конкретно (рабочий) код процедуры: OnDrawItems.... по изменению фона TListBox (Загрузку на фон btimapa). Заранее спасибо.

[Mealgay]

Код:

var
backround: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Create Bitmap;
  backround := TBitmap.Create;
  with backround do
   begin
    LoadFromFile(ExtractFilePath(Application.ExeName)+
    'backround.bmp');
   end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1.Canvas do
   begin
    Brush.Bitmap := backround;
    FillRect(ListBox1.ClientRect);
    Brush.Style := bsClear;
   end;
end;