Delphi XE5でFireMonkgyのTGridに画像を表示する

FireMonkgyのTGridに画像を表示するにはTImageColumnを使用します。

GridにTImageColumnを追加して、GridのOnGetValueイベントで表示する画像を引数Valueに設定します。

004

procedure TForm1.Grid1GetValue(Sender: TObject; const Col, Row: Integer;
  var Value: TValue);
begin
  if Col = 0 then
  begin
    //グリッドに表示する画像を設定する
    Value := FImages[Row];
  end;
end;

サンプルプログラム

005

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;

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください