aplayout.pas

来自「delphi编程控件」· PAS 代码 · 共 74 行

unit aplayout;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, DBCtrls, StdCtrls, ExtCtrls, adbpanel;

type
  TFAPanelLayout = class(TForm)
    Panel1: TPanel;
    AutoDBPanel1: TAutoDBPanel;
    RGPanelLayout: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    procedure RGPanelLayoutClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FAPanelLayout: TFAPanelLayout;

implementation

uses udm;

{$R *.DFM}

procedure TFAPanelLayout.RGPanelLayoutClick(Sender: TObject);
begin
  case RGPanelLayout.ItemIndex of
    0: AutoDBPanel1.PanelLayout.Assign(DM.AReposPanel1.PanelLayout);
    1: AutoDBPanel1.PanelLayout.Assign(DM.AReposPanel2.PanelLayout);
    2: AutoDBPanel1.PanelLayout.Assign(DM.AReposPanel3.PanelLayout);
  end;
end;

procedure TFAPanelLayout.Button1Click(Sender: TObject);
begin
  AutoDBPanel1.ControlsCustomizing;
end;

procedure TFAPanelLayout.Button2Click(Sender: TObject);
begin
  case RGPanelLayout.ItemIndex of
    0: DM.AReposPanel1.PanelLayout.Assign(AutoDBPanel1.PanelLayout);
    1: DM.AReposPanel2.PanelLayout.Assign(AutoDBPanel1.PanelLayout);
    2: DM.AReposPanel3.PanelLayout.Assign(AutoDBPanel1.PanelLayout);
  end;
end;

procedure TFAPanelLayout.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  FAPanelLayout := Nil;
end;

procedure TFAPanelLayout.FormCreate(Sender: TObject);
begin
  RGPanelLayoutClick(Sender);
end;

end.