FireMonkgyのTGridに画像を表示するにはTImageColumnを使用します。
GridにTImageColumnを追加して、GridのOnGetValueイベントで表示する画像を引数Valueに設定します。
procedure TForm1.Grid1GetValue(Sender: TObject; const Col, Row: Integer;
var Value: TValue);
begin
if Col = 0 then
begin
//グリッドに表示する画像を設定する
Value := FImages[Row];
end;
end;
サンプルプログラム
type
TForm1 = class(TForm)
…
private
{ private 宣言 }
/// <summary>
/// 表示する画像
/// </summary>
FImages: array [0 .. 4] of TBitmap;
…
end;
implementation
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
//グリッドに表示する画像を読み込む
Grid1.RowCount := 5;
for I := Low(FImages) to High(FImages) do
begin
FImages[I] := TBitmap.Create;
FImages[I].LoadFromFile(Format('C:\data\%d.bmp', [I]));
end;
end;
procedure TForm1.Grid1GetValue(Sender: TObject; const Col, Row: Integer;
var Value: TValue);
begin
if Col = 0 then
begin
//グリッドに表示する画像を設定する
Value := FImages[Row];
end;
end;