controller.pas

来自「InfoPower_Studio 2007 v5.0.1.3 banben」· PAS 代码 · 共 126 行

unit controller;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, wwdbedit, Buttons, wwintl, wwframe, Wwdotdot,
  Wwdbcomb, ComCtrls, wwriched, wwrichedspell2000, wwclearbuttongroup,
  wwradiogroup, wwcheckbox, Wwkeycb, wwdblook, Wwdbspin, wwdbdatetimepicker,
  fcCombo, fctreecombo, fcColorCombo, fcFontCombo, DB, DBTables, wwrcdpnl,
  wwDialog, wwrcdvw, wwfltdlg, Wwlocate;

type
  TForm1 = class(TForm)
    wwDBEdit1: TwwDBEdit;
    SpeedButton1: TSpeedButton;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    SpeedButton2: TSpeedButton;
    wwDBComboBox1: TwwDBComboBox;
    wwDBRichEdit1: TwwDBRichEdit;
    wwDBSpinEdit1: TwwDBSpinEdit;
    wwDBComboDlg1: TwwDBComboDlg;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwKeyCombo1: TwwKeyCombo;
    wwIncrementalSearch1: TwwIncrementalSearch;
    wwCheckBox1: TwwCheckBox;
    wwRadioGroup1: TwwRadioGroup;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBLookupCombo2: TwwDBLookupCombo;
    SpeedButton3: TSpeedButton;
    wwController1: TwwController;
    fcTreeCombo1: TfcTreeCombo;
    fcColorCombo1: TfcColorCombo;
    fcFontCombo1: TfcFontCombo;
    fcColorList1: TfcColorList;
    wwController2: TwwController;
    wwRecordViewPanel1: TwwRecordViewPanel;
    Table1: TTable;
    DataSource1: TDataSource;
    wwRecordViewDialog1: TwwRecordViewDialog;
    wwFilterDialog1: TwwFilterDialog;
    wwLocateDialog1: TwwLocateDialog;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure wwFilterDialog1AcceptFilterRecord(Sender: TObject;
      DataSet: TDataSet; var Accept, DefaultFiltering: Boolean);
    procedure wwFilterDialog1InitDialog(Dialog: TwwFilterDlg);
  private
    controller: TwwController;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 wwrecordviewpanel1.controller:= wwcontroller1;
 wwrecordviewdialog1.controller:= wwcontroller1;
 exit;
 controller:= wwController1;//TwwController.create(self);
 fctreecombo1.controller:= controller;
 fccolorcombo1.controller:=controller;
 fcfontcombo1.controller:=controller;
 exit;
 with controller do
 begin
    Frame.Enabled:=True;
    Frame.FocusBorders:= [efBottomBorder];
 end;

 wwdbedit1.Controller:= controller;
 wwdbedit2.Controller:= controller;
 wwdbedit3.Controller:= controller;
 wwdbcombobox1.Controller:= controller;
 wwdbrichedit1.controller:= controller;
 wwdbcombodlg1.controller:=controller;
 wwdbspinedit1.controller:=controller;
 wwdblookupcombo1.controller:= controller;
 wwcheckbox1.controller:=controller;
 wwradiogroup1.controller:=controller;
 wwkeycombo1.Controller:=controller;
 wwincrementalsearch1.controller:=controller;
 wwdbdatetimepicker1.controller:=controller;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
wwfilterdialog1.execute;
wwrecordviewdialog1.execute;
exit;
    wwcontroller1.Frame.NonFocusColor:=clNone;
    wwcontroller1.ButtonEffects.flat:=true;
    wwcontroller1.applyframe;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
wwdbedit1.controller:=nil;
end;

procedure TForm1.wwFilterDialog1AcceptFilterRecord(Sender: TObject;
  DataSet: TDataSet; var Accept, DefaultFiltering: Boolean);
begin
wwfilterdialog1.execute;
wwlocatedialog1.execute;
end;

procedure TForm1.wwFilterDialog1InitDialog(Dialog: TwwFilterDlg);
begin
  dialog.filtervalueedit.height:= 34;
  dialog.matchtypegroup.Top:= dialog.filtervalueedit.Top + dialog.filtervalueedit.height + 4;
  dialog.filtervalueedit.WordWrap:=true;
  dialog.Panel1.Top:=dialog.MatchTypeGroup.top+dialog.MatchTypeGroup.height-4;
end;

end.