main.pas

delphi编程控件

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, aoutlbar, ImgList;

type
  TFMainForm = class(TForm)
    AutoOutLookBarStore1: TAutoOutLookBarStore;
    ClientPanel: TPanel;
    CaptionPanel: TPanel;
    AutoOutLookBarStore1Item1: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item2: TAutoOutLookStoredItem;
    ImageList1: TImageList;
    AutoOutLookBarStore1Item3: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item4: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item5: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item6: TAutoOutLookStoredItem;
    Panel3: TPanel;
    AutoOutLookBar1: TAutoOutLookBar;
    AutoOutLookBarStore1Item7: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item8: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item9: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item10: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item11: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item12: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item13: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item14: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item15: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item16: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item17: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item18: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item19: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item20: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item21: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item22: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item23: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item24: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item25: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item26: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item27: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item28: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item29: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item30: TAutoOutLookStoredItem;
    AutoOutLookBarStore1Item31: TAutoOutLookStoredItem;
    procedure AutoOutLookBarStore1Item2Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item3Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item4Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item5Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item6Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item7Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item8Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item1Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item9Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item10Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item11Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item12Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item13Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item14Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item15Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item16Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item17Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item18Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item19Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item20Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item21Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item22Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item23Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item24Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item25Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item26Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item27Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item28Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item29Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item30Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure AutoOutLookBarStore1Item31Click(Sender: TObject;
      Item: TAutoOutLookItem);
    procedure FormShow(Sender: TObject);
  private
    FCurrentForm : TForm;
    procedure SetCurrentForm(AFormClass : TFormClass);
  public
    { Public declarations }
  end;

var
  FMainForm: TFMainForm;

implementation

uses uglayout, ugsorted, ugsearch, ugmemogr, ugcsdraw, uginpled, ugrfixgr,
     aplayout, upsearch, upcntrls, upform,
     ufform, afdate, aftime, uflookup,
     ulform, uafind, uincsr, ulcombo,
     dbm_main, ftm_main, urefer, uadbcomb, uadbdate, uadbtime, udbspini,
     ab_acl, ab_grid, ab_locat, ab_filt, ab_panel;

{$R *.DFM}

procedure TFMainForm.SetCurrentForm(AFormClass : TFormClass);
begin
  if(FCurrentForm = Nil) or (FCurrentForm.ClassType <> AFormClass) then begin
    if(FCurrentForm <> Nil) then
      FCurrentForm.Free;
    Application.CreateForm(AFormClass, FCurrentForm);
    CaptionPanel.Caption := FCurrentForm.Caption;
    FCurrentForm.BorderStyle := bsNone;
    FCurrentForm.Parent := ClientPanel;
    FCurrentForm.Align := alClient;
    FCurrentForm.Show;
  end;
end;

procedure TFMainForm.AutoOutLookBarStore1Item2Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFGridLayouts);
end;

procedure TFMainForm.AutoOutLookBarStore1Item3Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFSortADBGrid);
end;

procedure TFMainForm.AutoOutLookBarStore1Item4Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFDBGridSearch);
end;

procedure TFMainForm.AutoOutLookBarStore1Item5Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFADBGridMemoImage);
end;

procedure TFMainForm.AutoOutLookBarStore1Item6Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAGridInplaceEditors);
end;

procedure TFMainForm.AutoOutLookBarStore1Item7Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAGridCustomDraw);
end;

procedure TFMainForm.AutoOutLookBarStore1Item8Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFACLGridFixedGroup);
end;

procedure TFMainForm.AutoOutLookBarStore1Item1Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAboutACLGrid);
end;

procedure TFMainForm.AutoOutLookBarStore1Item9Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAboutACLPanel);
end;

procedure TFMainForm.AutoOutLookBarStore1Item10Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAPanelLayout);
end;

procedure TFMainForm.AutoOutLookBarStore1Item11Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAPanelSearch);
end;

procedure TFMainForm.AutoOutLookBarStore1Item12Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAPanelControls);
end;

procedure TFMainForm.AutoOutLookBarStore1Item13Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAPanelForm);
end;

procedure TFMainForm.AutoOutLookBarStore1Item14Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAboutACLFilters);
end;

procedure TFMainForm.AutoOutLookBarStore1Item15Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAFilterForm);
end;

procedure TFMainForm.AutoOutLookBarStore1Item16Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFADateFilter);
end;

procedure TFMainForm.AutoOutLookBarStore1Item17Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFATimeFilter);
end;

procedure TFMainForm.AutoOutLookBarStore1Item18Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFALookupFilter);
end;

procedure TFMainForm.AutoOutLookBarStore1Item19Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFABoutACLLocates);
end;

procedure TFMainForm.AutoOutLookBarStore1Item20Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFALocateForm);
end;

procedure TFMainForm.AutoOutLookBarStore1Item21Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAFindForm);
end;

procedure TFMainForm.AutoOutLookBarStore1Item22Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAIncSearch);
end;

procedure TFMainForm.AutoOutLookBarStore1Item23Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFALocateComboBox);
end;

procedure TFMainForm.AutoOutLookBarStore1Item24Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFDBMaker);
end;

procedure TFMainForm.AutoOutLookBarStore1Item25Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFFilterMaker);
end;

procedure TFMainForm.AutoOutLookBarStore1Item26Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFADBReference);
end;

procedure TFMainForm.AutoOutLookBarStore1Item27Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAutoDBCombo);
end;

procedure TFMainForm.AutoOutLookBarStore1Item28Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFADBDateControls);
end;

procedure TFMainForm.AutoOutLookBarStore1Item29Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFADBTimeEdits);
end;

procedure TFMainForm.AutoOutLookBarStore1Item30Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFADBSpinImage);
end;

procedure TFMainForm.AutoOutLookBarStore1Item31Click(Sender: TObject;
  Item: TAutoOutLookItem);
begin
  SetCurrentForm(TFAboutRSD);
end;

procedure TFMainForm.FormShow(Sender: TObject);
begin
  SetCurrentForm(TFAboutRSD);
end;

end.