퀀텀그리드의 특정 컬럼에 이미지를 넣는 방법.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
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; |
최신 댓글