Column Archives - EagleSoft

컬럼에 이미지 넣기.

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

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;

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;

EagleSoft

[태그:] Column

컬럼에 이미지 넣기.

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글