david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
34 lines
683 B
ObjectPascal
34 lines
683 B
ObjectPascal
unit InPlaceEditorsDemoImage;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, InPlaceEditorsDemoFrameManager, cxControls, cxContainer,
|
|
cxEdit, cxImage, StdCtrls;
|
|
|
|
type
|
|
TfrmImageEditors = class(TEditorDemoBaseFrame)
|
|
cxImage1: TcxImage;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
procedure SetParameters(AStream: TStream);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrmImageEditors }
|
|
|
|
procedure TfrmImageEditors.SetParameters(AStream: TStream);
|
|
begin
|
|
if AStream <> nil then
|
|
cxImage1.Picture.Bitmap.LoadFromStream(AStream)
|
|
else
|
|
cxImage1.Picture.Bitmap := nil;
|
|
end;
|
|
|
|
end.
|