关于FireMonkey TGrid赋值的一点小研究

FireMoneky的TStringGrid用法和VCL里面的差不多, 但是另一个TGrid实在是奇葩, 几乎找不到给单元格赋值的方法(除了使用LiveBind)

看了其源码, 发现只要给某个Column.Cell.Value赋值就可以了, 但是不知道为什么 TColumn里的GetCells和SetCells这2个方法居然没有公开出来, 导致在TGrid里没有一个方法能够像StringGrid一样给某个单元格直接赋值

继续查看源码, 发现TGrid有2个事件: OnGetValue, OnSetValue

于是联想了一下VCL里ListView的OwnerData模式, 所以写了下面一堆代码, 勉强算是能正常使用TGrid了

以下为我的测试代码:

首先在Project->Resources and Images里添加一些资源文件, 我的测试程序里添加了11个png图

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
System.Rtti, FMX.Grid, FMX.Layouts;

type
TForm1 = class(TForm)
Grid1: TGrid;
StringColumn1: TStringColumn;
ImageColumn1: TImageColumn;
procedure Grid1GetValue(Sender: TObject; const Col, Row: Integer;
var Value: TValue);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
FBmps: array[0..10] of TBitmap;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
nRS: TResourceStream;
begin
{先把资源文件都加载出来}
for i := Low(FBmps) to High(FBmps) do
begin
FBmps[i] := TBitmap.Create;
nRS := TResourceStream.Create(HInstance, pchar('PngImage_' + Inttostr(i + 1)), RT_RCDATA);
FBmps[i].LoadFromStream(nRS);
nRS.Free;
end;
TGrid
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
for i := Low(FBmps) to High(FBmps) do
FreeAndNil(FBmps[i]);
end;

procedure TForm1.Grid1GetValue(Sender: TObject; const Col, Row: Integer;
var Value: TValue);
begin
if Col = 0 then
Value := Row
else if Col = 1 then
begin
Value := FBmps[Row mod 11];
end;
end;

end.

虽然说这样可以用, 但是我写的测试代码实际运行效果特别的卡, 估计是因为100个image列导致的, 吧TImageColumn的赋值去掉以后就非常流畅了

究其原因, 看代码跟踪到TImageControl.SetData函数:

procedure TImageControl.SetData(const Value: TValue);
begin
if Value.IsEmpty then
Bitmap.SetSize(0, 0)
else if (Value.IsObject) and (Value.AsObject is TPersistent) then
Bitmap.Assign(TPersistent(Value.AsObject))
else
Bitmap.LoadFromFile(Value.ToString)
end;

发现实际运行时, Grid的OnGetValue事件被触发, 给Value赋值, 然后调用TImageControl.SetData函数

最终会执行这句: Bitmap.Assign(TPersistent(Value.AsObject))

也就是说, 每次OnGetData一个图像列, 都要经历一次图像复制.....难怪卡的厉害

个人猜测还是因为当前使用的不是正统赋值方法, 但是看代码, 又没什么public方法可以使用....纠结啊