uglayout.pas

delphi编程控件

unit uglayout;

interface

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

type
  TFGridLayouts = class(TForm)
    Panel1: TPanel;
    AutoDBGrid1: TAutoDBGrid;
    RGGridLayout: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    CheckBox3: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure RGGridLayoutClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FGridLayouts: TFGridLayouts;

implementation
uses udm;

{$R *.DFM}

procedure TFGridLayouts.FormCreate(Sender: TObject);
begin
  RGGridLayoutClick(Sender);
end;

procedure TFGridLayouts.RGGridLayoutClick(Sender: TObject);
begin
  case RGGridLayout.ItemIndex of
    0: AutoDBGrid1.GridLayout.Assign(DM.AReposGridCustoly1.GridLayout);
    1: AutoDBGrid1.GridLayout.Assign(DM.AReposGridCustoly2.GridLayout);
    2: AutoDBGrid1.GridLayout.Assign(DM.AReposGridCustoly3.GridLayout);
  end;
  CheckBox1.Checked := agoGroup in AutoDBGrid1.GridLayout.Options;
  CheckBox2.Checked := agoIndicator in AutoDBGrid1.GridLayout.Options;
  CheckBox3.Checked := agoColumnDrag in AutoDBGrid1.GridLayout.Options;  
end;

procedure TFGridLayouts.Button1Click(Sender: TObject);
begin
  AutoDBGrid1.ColumnsCustomizing;
end;

procedure TFGridLayouts.Button2Click(Sender: TObject);
begin
  case RGGridLayout.ItemIndex of
    0: DM.AReposGridCustoly1.GridLayout.Assign(AutoDBGrid1.GridLayout);
    1: DM.AReposGridCustoly2.GridLayout.Assign(AutoDBGrid1.GridLayout);
    2: DM.AReposGridCustoly3.GridLayout.Assign(AutoDBGrid1.GridLayout);
  end;
end;

procedure TFGridLayouts.CheckBox1Click(Sender: TObject);
begin
  if(CheckBox1.Checked) then
    AutoDBGrid1.GridLayout.Options := AutoDBGrid1.GridLayout.Options + [agoGroup]
  else AutoDBGrid1.GridLayout.Options := AutoDBGrid1.GridLayout.Options - [agoGroup];
end;

procedure TFGridLayouts.CheckBox2Click(Sender: TObject);
begin
  if(CheckBox2.Checked) then
    AutoDBGrid1.GridLayout.Options := AutoDBGrid1.GridLayout.Options + [agoIndicator]
  else AutoDBGrid1.GridLayout.Options := AutoDBGrid1.GridLayout.Options - [agoIndicator];
end;

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

procedure TFGridLayouts.CheckBox3Click(Sender: TObject);
begin
  if(CheckBox3.Checked) then
    AutoDBGrid1.GridLayout.Options := AutoDBGrid1.GridLayout.Options + [agoColumnDrag]
  else AutoDBGrid1.GridLayout.Options := AutoDBGrid1.GridLayout.Options - [agoColumnDrag];
end;

end.