d_picturepropertyeditor1.pas

delphi 运行期间窗体设计

unit d_PicturePropertyEditor1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs;

type
  TForm2 = class(TForm)
    Bevel1: TBevel;
    Panel1: TPanel;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    procedure SetPicture(const Value: TPicture);
    function GetPicture: TPicture;
    { Private declarations }
  public
    { Public declarations }
    property Picture: TPicture read GetPicture write SetPicture;
    function Execute: Boolean;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

function TForm2.Execute: Boolean;
begin
  Result := (ShowModal = mrOk);
end;

procedure TForm2.SetPicture(const Value: TPicture);
begin
  Image1.Picture.Assign(Value);
end;

function TForm2.GetPicture: TPicture;
begin
  Result := Image1.Picture;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
  Image1.Picture.Graphic := nil;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
  if SavePictureDialog1.Execute then
    Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;

end.