퀀텀그리드의 특정 컬럼에 이미지를 넣는 방법.

procedure TForm1.Button2Click(Sender: TObject);
var
  P : TStringStream;
begin

  cxGrid1TableView1.DataController.RecordCount := 10;

  if OpenPictureDialog1.Execute then
  begin
    cxGrid1TableView1Column4.DataBinding.ValueType:= 'Variant';
    cxGrid1TableView1Column4.PropertiesClassName := 'TcxImageProperties';
    TcxImageProperties( cxGrid1TableView1Column4.Properties ).GraphicClassName := 'TdxSmartImage';
    try
      P := TStringStream.Create;
      P.LoadFromFile( OpenPictureDialog1.FileName );
      cxGrid1TableView1.DataController.Values[ 1, cxGrid1TableView1Column4.Index ] := P.Bytes;
    finally
      P.Free;
    end;

  end;


end;