Mega Code Archive
Stick graphics in ListBox
<![CDATA[
Title: 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;
]]>