|
|
#1
|
||||
|
||||
Нужна помощь...
Мне нужен конкретно (рабочий) код процедуры: OnDrawItems.... по изменению фона TListBox (Загрузку на фон btimapa). Заранее спасибо.
|
#2
|
||||
|
||||
Код:
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; Последний раз редактировалось Mealgay, 27.06.2009 в 04:10. |