?? codemanagerpropertyfrm.pas
字號:
unit CodeManagerPropertyFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SJCustomProperty, cxLookAndFeelPainters, PropStorageEh,
StdCtrls, cxButtons, ExtCtrls, fcTreeView, wwSpeedButton, wwDBNavigator,
wwclearpanel, ImgList, SJCustomCodeFrm;
type
TfrmPropertyCodeManager = class(TSJCustomPropertyForm)
NaviPanel: TPanel;
tvCode: TfcTreeView;
MainPanel: TPanel;
Bevel2: TBevel;
DBNavigator: TwwDBNavigator;
DBNavigatorFirst: TwwNavButton;
DBNavigatorPrior: TwwNavButton;
DBNavigatorNext: TwwNavButton;
DBNavigatorLast: TwwNavButton;
DBNavigatorInsert: TwwNavButton;
DBNavigatorDelete: TwwNavButton;
DBNavigatorEdit: TwwNavButton;
DBNavigatorPost: TwwNavButton;
DBNavigatorCancel: TwwNavButton;
DBNavigatorRefresh: TwwNavButton;
DBNavigatorSaveBookmark: TwwNavButton;
DBNavigatorRestoreBookmark: TwwNavButton;
ImageList: TImageList;
Image1: TImage;
labHint: TLabel;
procedure tvCodeChange(TreeView: TfcCustomTreeView; Node: TfcTreeNode);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FCodeform: TSJCustomCodeForm;
public
{ Public declarations }
end;
var
frmPropertyCodeManager: TfrmPropertyCodeManager;
implementation
uses CodeTownFrm, CodeAreaFrm, CodeBookFrm, CodeCopierFrm, CodePaymodeFrm,
CodeUsagerFrm, CodeUsersFrm;
{$R *.dfm}
procedure TfrmPropertyCodeManager.tvCodeChange(TreeView: TfcCustomTreeView;
Node: TfcTreeNode);
// 顯示當前代碼編輯器
begin
inherited;
Screen.Cursor := crHourGlass;
labHint.Caption := Node.StringData2;
try
if Assigned(FcodeForm) then
begin
FreeAndNil(FcodeForm);
DBNavigator.DataSource := nil;
end;
if Node.Level = 0 then
Exit;
if Node.StringData = 'Town' then
FcodeForm := TfrmCodeTown.Create(Application, MainPanel);
if Node.StringData = 'Area' then
FcodeForm := TfrmCodeArea.Create(Application, MainPanel);
if Node.StringData = 'Book' then
FcodeForm := TfrmCodeBook.Create(Application, MainPanel);
if Node.StringData = 'Copier' then
FcodeForm := TfrmCodeCopier.Create(Application, MainPanel);
if Node.StringData = 'Paymode' then
FcodeForm := TfrmCodePaymode.Create(Application, MainPanel);
if Node.StringData = 'Usager' then
FcodeForm := TfrmCodeUsager.Create(Application, MainPanel);
if Node.StringData = 'Users' then
FcodeForm := TfrmCodeUsers.Create(Application, MainPanel);
// 設置導航欄的數據源
FcodeForm.Show;
DBNavigator.DataSource := FcodeForm.grdBrowse.DataSource;
finally
Screen.Cursor := crDefault;
end;
end;
procedure TfrmPropertyCodeManager.FormCreate(Sender: TObject);
begin
inherited;
FcodeForm := nil;
end;
procedure TfrmPropertyCodeManager.FormDestroy(Sender: TObject);
// 釋放系統資源
begin
inherited;
if Assigned(FcodeForm) then
FreeAndNil(FcodeForm);
end;
procedure TfrmPropertyCodeManager.FormShow(Sender: TObject);
// 顯示所有的代碼
begin
inherited;
tvCode.Items.Item[0].Expand(False);
tvCode.Selected := tvCode.Items.Item[0];
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -