Show image in Firemonkey TListBox
Display images in Firemonkey TListBox
Introduce how to display in OnList event of TListBoxItem and how to display by placing TImage component on TListBoxItem.
How to display in the OnPaint event of TListBoxItem
Place a TButton component and a TListBox component on the form.
Describe the OnClick event of the TButton component.
procedure TForm2.Button1Click(Sender: TObject);
var
Item: TListBoxItem;
begin
Item := TListBoxItem.Create(nil);
Item.Parent := ListBox1;
Item.Height := 200;
Item.OnPaint := ListBoxItemPaint;
end;
When the button is pressed, an item will be added to ListBox1.
The items of ListBox1 are drawn using the ListBoxItemPaint method of the form.
Add the ListBoxItemPaint method to the form.
type
TForm2 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ private Declaration }
procedure ListBoxItemPaint(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
public
{ public Declaration }
end;
Use the ListBoxItemPaint method to draw the image.
procedure TForm2.ListBoxItemPaint(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
const
IMAGEFILE_PATH =
‘C:\Program Files (x86)\Embarcadero\Studio\16.0\Images\Splash\256Color\CHEMICAL.BMP’;
var
Bitmap: TBitmap;
SrcRect, DstRect: TRectF;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(IMAGEFILE_PATH);
SrcRect.Left := 0;
SrcRect.Top := 0;
SrcRect.Width := Bitmap.Width;
SrcRect.Height := Bitmap.Height;
DstRect.Left := 0;
DstRect.Top := 0;
DstRect.Width := Bitmap.Width;
DstRect.Height := Bitmap.Height;
Canvas.DrawBitmap(Bitmap, SrcRect, DstRect, 1.0, True);
Bitmap.Free;
end;
listbox01
How to place the TImage component at the top of the TListBoxItem
Place a TButton component and a TListBox component on the form.
Describe the OnClick event of the TButton component.
procedure TForm2.Button1Click(Sender: TObject);
const
IMAGEFILE_PATH =
‘C:\Program Files (x86)\Embarcadero\Studio\16.0\Images\Splash\256Color\CHEMICAL.BMP’;
var
Item: TListBoxItem;
Image: TImage;
begin
Item := TListBoxItem.Create(nil);
Item.Parent := ListBox1;
Item.Height := 200;
Image := TImage.Create(Item);
Image.Parent := Item;
Image.Width := 240;
Image.Height := 180;
Image.Bitmap.LoadFromFile(IMAGEFILE_PATH);
end;
When the button is pressed, an item will be added to ListBox1.
Put the TImage component on the added item, and display the image in the TImage component.
