d_frmpropsunit.pas

delphi 运行期间窗体设计

unit d_frmPropsUnit;

interface

uses
  Windows, Messages, SysUtils, {$IFNDEF VER130}Variants,{$ENDIF} Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, LMDDsgComboBox, Grids,
  LMDDsgPropPage, LMDDsgPropInsp, LMDDsgManager, LMDDsgClass,
  LMDDsgDesigner, Buttons, TypInfo, ExtCtrls {$IFDEF VER130},LMDDsgD5Adds{$ENDIF};

type
  TfrmProps = class(TForm)
    LMDObjectComboBox1: TLMDObjectComboBox;
    LMDPropertyInspector1: TLMDPropertyInspector;
    LMDDesigner1: TLMDDesigner;
    LMDDesignManager1: TLMDDesignManager;
    Panel1: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure LMDPropertyInspector1FilterProp(Sender: TObject;
      AInstance: TPersistent; APropInfo: PPropInfo; AIsSubProp: Boolean;
      var AIncludeProp: Boolean);
    procedure LMDDesigner1DesignFormClose(Sender: TObject;
      var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProps: TfrmProps;

implementation

uses d_frmMainUnit;

{$R *.dfm}

procedure TfrmProps.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmMain.IsDesignerSaving := True;
  try
    LMDDesigner1.SaveToFile('form.dat');
  finally
    frmMain.IsDesignerSaving := False;
  end;
  LMDDesigner1.Active := False;
end;

procedure TfrmProps.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmProps.FormCreate(Sender: TObject);
begin
  LMDDesigner1.DesignControl := frmMain;

  frmMain.IsDesignerSaving := True;
  try
    LMDDesigner1.SaveToFile('def_form.dat');
  finally
    frmMain.IsDesignerSaving := False;
  end;

  if FileExists('form.dat') then
    LMDDesigner1.LoadFromFile('form.dat');

  frmMain.Table1.Open;
  frmMain.Table2.Open;
end;

procedure TfrmProps.SpeedButton2Click(Sender: TObject);
begin
  LMDDesigner1.LoadFromFile('def_form.dat');
  
  frmMain.Table1.Open;
  frmMain.Table2.Open;
end;

procedure TfrmProps.LMDPropertyInspector1FilterProp(Sender: TObject;
  AInstance: TPersistent; APropInfo: PPropInfo; AIsSubProp: Boolean;
  var AIncludeProp: Boolean);
var
  LS: string;
begin
  if AIsSubProp then
    Exit;

  LS := APropInfo.Name;

  if (LS = 'Caption') or (LS = 'Color') or (LS = 'Font') or
     (LS = 'Visible') or (LS = 'VisibleButtons') or (LS = 'TitleFont') or
     (LS = 'FixedColor') then
    AIncludeProp := True
  else
    AIncludeProp := False;
end;

procedure TfrmProps.LMDDesigner1DesignFormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caNone;
end;

end.