?? controller.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -