delphi XE8在Firemonkey TListBox中显示图像

如何使用Delphi XE8在Firemonkey TListBox中显示图像

介绍如何在TListBoxItem的OnList事件中显示以及如何通过在TListBoxItem上放置TImage组件进行显示。

如何在TListBoxItem的OnPaint事件中显示

在窗体上放置一个TButton组件和一个TListBox组件。

描述TButton组件的OnClick事件。

procedure TForm2.Button1Click(Sender: TObject);

var

Item: TListBoxItem;

begin

Item := TListBoxItem.Create(nil);

Item.Parent := ListBox1;

Item.Height := 200;

Item.OnPaint := ListBoxItemPaint;

end;

当按下按钮时，一个项目将添加到ListBox1。

ListBox1的项目是使用表单的ListBoxItemPaint方法绘制的。

将ListBoxItemPaint方法添加到窗体。

type

TForm2 = class(TForm)

Button1: TButton;

ListBox1: TListBox;

procedure Button1Click(Sender: TObject);

private

{ private 宣言 }

procedure ListBoxItemPaint(Sender: TObject; Canvas: TCanvas;

const ARect: TRectF);

public

{ public 宣言 }

end;

使用ListBoxItemPaint方法绘制图像。

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

如何将TImage组件放置在TListBoxItem的顶部

在窗体上放置一个TButton组件和一个TListBox组件。

描述TButton组件的OnClick事件。

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;

当按下按钮时，一个项目将添加到ListBox1。

将TImage组件放在添加的项目上，并在TImage组件中显示图像。

推荐分享