|
Stick graphics in ListBox
Use OnDrawItem event for inserting graphics into Listbox or Combobox.
Change ItemHeight property for changing size of picture.
Don't forget change Style property to lbOwnerDrawFixed.
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
Bitmap: TBitmap;
R: TRect;
Mas: array[1..3] of string;
i: Integer;
begin
Mas[1]:='Pict1.bmp';
Mas[2]:='Pict2.bmp';
Mas[3]:='Pict3.bmp';
with (Control as TListBox).Canvas do
begin
Bitmap:=TBitmap.Create;
FillRect(Rect);
Bitmap.LoadFromFile('C:\Pictures\'+Mas[Index+1]);
if Bitmap<>nil then
begin
R:=Bounds(
Rect.Left+2,
Rect.Top+2,
Rect.Bottom-Rect.Top-2,
Rect.Bottom-Rect.top-2);
StretchDraw(R,Bitmap);
end;
TextOut(Rect.Left+100,Rect.Top,Mas[Index+1]);
Bitmap.Free;
end;
end;
- Related topics
-
Set a color lines in ListBox
- For more
-
Delphi Help
- Download source
|
