?? untmain.pas

?? 使用的第三方組件包括：ADOBACKUP、XPMENU CoolTrayIcon、SYNEDIT等
?? PAS
?? 第 1 頁 / 共 3 頁
字號(hào):
12 3 下一頁
{*******************************************************}
{                                                       }
{       單元名稱: UntMain                               }
{       創(chuàng)建日期: 2005-08-26                            }
{       摘要說明: 系統(tǒng)界面主窗口                        }
{                                                       }
{       詳細(xì)說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項(xiàng):                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       當(dāng)前版本: 2.3                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

unit UntMain;

{==========================================================================
                        單元接口部分
==========================================================================}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, Menus, XPMenu, StdCtrls, Grids, DBGrids,
  Buttons, ImgList, ToolWin, DBCtrls, CoolTrayIcon, Clipbrd,
  SynEdit, SynMemo, SynEditor, SynEditHighlighter, SynHighlighterPas,
  SynEditActions, ActnList, StdActns;

type
  TFormMain = class(TForm)
    PgcMain: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    StatBar: TStatusBar;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    H1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PanelLeft: TPanel;
    PanelLTop: TPanel;
    ComboType: TComboBox;
    ListFunc: TListBox;
    PanelRight: TPanel;
    PanelType: TPanel;
    Panel1: TPanel;
    SBtnDelType: TSpeedButton;
    SBtnEditType: TSpeedButton;
    SBtnAddType: TSpeedButton;
    ListType: TListBox;
    PanelFunc: TPanel;
    Panel2: TPanel;
    SBtnDelFunc: TSpeedButton;
    SBtnEditFunc: TSpeedButton;
    SBtnAddFunc: TSpeedButton;
    DBGridFunc: TDBGrid;
    Panel3: TPanel;
    Label2: TLabel;
    EditUses: TEdit;
    Panel4: TPanel;
    Splitter1: TSplitter;
    Panel5: TPanel;
    MemRemark: TMemo;
    V1: TMenuItem;
    EdtType: TEdit;
    EdtKey: TEdit;
    SBtnSearch: TSpeedButton;
    Splitter2: TSplitter;
    Splitter3: TSplitter;
    Timer2: TTimer;
    SBtnAll: TSpeedButton;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButtonFunc: TToolButton;
    ToolButtonLib: TToolButton;
    ToolButtonLink: TToolButton;
    ToolButtonAbout: TToolButton;
    ImageList1: TImageList;
    ToolButton5: TToolButton;
    ToolButtonAdd: TToolButton;
    ToolButton7: TToolButton;
    EditFKey: TEdit;
    SBtnFSearch: TSpeedButton;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ToolButtonBAK: TToolButton;
    N8: TMenuItem;
    DBNavFunc: TDBNavigator;
    ChkBox: TCheckBox;
    ToolBtnComP: TToolButton;
    Timer3: TTimer;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    NAdd: TMenuItem;
    NShow: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    PopupMenu2: TPopupMenu;
    NCopy: TMenuItem;
    NAll: TMenuItem;
    N17: TMenuItem;
    XPMenu1: TXPMenu;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Panel6: TPanel;
    Splitter4: TSplitter;
    Panel7: TPanel;
    Label1: TLabel;
    EditUses2: TEdit;
    CheckBoxTip: TCheckBox;
    Panel8: TPanel;
    Panel9: TPanel;
    MemoTip: TMemo;
    Panel10: TPanel;
    Panel11: TPanel;
    SBtSearchTip: TSpeedButton;
    ComboTipType: TComboBox;
    EditTipKey: TEdit;
    ListTip: TListBox;
    Splitter5: TSplitter;
    Panel12: TPanel;
    Panel13: TPanel;
    SBtnDelTips: TSpeedButton;
    SBtnEditTips: TSpeedButton;
    SbtnAddTip: TSpeedButton;
    SBtnSearchTips: TSpeedButton;
    SBtnAllTips: TSpeedButton;
    EditKeyTips: TEdit;
    DBNavigatorTips: TDBNavigator;
    DBGridTips: TDBGrid;
    Panel14: TPanel;
    Panel15: TPanel;
    SBtnDelTipType: TSpeedButton;
    SBtnEditTipType: TSpeedButton;
    SBtnAddTipType: TSpeedButton;
    EditTipType: TEdit;
    ListTipType: TListBox;
    Splitter6: TSplitter;
    TBtnTipsView: TToolButton;
    TBtnTips: TToolButton;
    TBtnAddTips: TToolButton;
    MemoFunc: TSynEditor;
    N4: TMenuItem;
    N18: TMenuItem;
    SynPasSyn1: TSynPasSyn;
    N22: TMenuItem;
    N23: TMenuItem;
    RichEditTip: TSynEditor;
    ActionList1: TActionList;
    aSynFind1: TaSynFind;
    aSynFindNext1: TaSynFindNext;
    aSynCopy1: TaSynCopy;
    aSynSelectAll1: TaSynSelectAll;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    aSynReplace1: TaSynReplace;
    aSynReplaceNext1: TaSynReplaceNext;
    aSynUndo1: TaSynUndo;
    aSynRedo1: TaSynRedo;
    SynPasSyn2: TSynPasSyn;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    procedure Timer1Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SBtnAddFuncClick(Sender: TObject);
    procedure SBtnEditFuncClick(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure ListTypeClick(Sender: TObject);
    procedure ComboTypeChange(Sender: TObject);
    procedure SBtnAddTypeClick(Sender: TObject);
    procedure SBtnDelTypeClick(Sender: TObject);
    procedure SBtnEditTypeClick(Sender: TObject);
    procedure SBtnDelFuncClick(Sender: TObject);
    procedure SBtnSearchClick(Sender: TObject);
    procedure ComboTypeDropDown(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ListFuncClick(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure ShowFunc(PID,St: integer);
    procedure ShowFuncD(PID,St: integer);
    procedure ListFuncDblClick(Sender: TObject);
    procedure SBtnAllClick(Sender: TObject);
    procedure EdtKeyClick(Sender: TObject);
    procedure MemRemarkDblClick(Sender: TObject);
    procedure ToolButtonFuncClick(Sender: TObject);
    procedure ToolButtonLibClick(Sender: TObject);
    procedure ToolButtonLinkClick(Sender: TObject);
    procedure EditFKeyClick(Sender: TObject);
    procedure SBtnFSearchClick(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure DBGridFuncTitleClick(Column: TColumn);
    procedure DBGridFuncDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure TabSheet2Exit(Sender: TObject);
    procedure EditUsesDblClick(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure CoolTrayIcon1DblClick(Sender: TObject);
    procedure CoolTrayIcon1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure ChkBoxClick(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure PopupMenu2Popup(Sender: TObject);
    procedure MemoFuncDblClick(Sender: TObject);
    procedure TBtnAddTipsClick(Sender: TObject);
    procedure TBtnTipsViewClick(Sender: TObject);
    procedure TBtnTipsClick(Sender: TObject);
    procedure SBtSearchTipClick(Sender: TObject);
    procedure ComboTipTypeChange(Sender: TObject);
    procedure ComboTipTypeDropDown(Sender: TObject);
    procedure ListTipClick(Sender: TObject);
    procedure ListTipDblClick(Sender: TObject);
    procedure MemoTipDblClick(Sender: TObject);
    procedure EditTipKeyClick(Sender: TObject);
    procedure EditUses2DblClick(Sender: TObject);
    procedure ListTipTypeClick(Sender: TObject);
    procedure SBtnAddTipTypeClick(Sender: TObject);
    procedure SBtnEditTipTypeClick(Sender: TObject);
    procedure SBtnDelTipTypeClick(Sender: TObject);
    procedure SBtnEditTipsClick(Sender: TObject);
    procedure SBtnDelTipsClick(Sender: TObject);
    procedure EditKeyTipsClick(Sender: TObject);
    procedure SBtnSearchTipsClick(Sender: TObject);
    procedure SBtnAllTipsClick(Sender: TObject);
    procedure DBGridTipsDblClick(Sender: TObject);
    procedure DBGridTipsDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGridTipsTitleClick(Column: TColumn);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet4Exit(Sender: TObject);
    procedure CheckBoxTipClick(Sender: TObject);
    procedure NAddClick(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure TimerEnable(Tg : integer);
    procedure FormShow(Sender: TObject);
    procedure RichEditTipDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FM                : integer;
  end;

var
  FormMain          : TFormMain;
  IDList            : Tstrings;
  IDTipList         : Tstrings;

  {==========================================================================
                          單元實(shí)現(xiàn)部分
  ==========================================================================}

implementation

{==========================================================================
                        引用的單元
==========================================================================}

uses UntFaceD, UntDM, UntFunc, UntAbout, UntSysFaceD, UntFuncD;

{$R *.dfm}

procedure TFormMain.TimerEnable(Tg : integer);
begin
  if Tg = 1 then
  begin
    FormMain.Timer1.Enabled := true;
    FormMain.Timer2.Enabled := true;
    FormMain.Timer3.Enabled := true;
  end;
  if Tg = 0 then
  begin
    FormMain.Timer1.Enabled := false;
    FormMain.Timer2.Enabled := false;
    FormMain.Timer3.Enabled := false;
  end;
end;

{==========================================================================
  過程名:    TFormMain.ShowFunc
  功  能:    打開代碼添加編輯窗口
  參　數(shù):    PID: integer，代碼ID
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFormMain.ShowFunc(PID,St: integer);
var
  FrmFunc : TFrmFunc;
begin
  FrmFunc := TFrmFunc.Create(Application);
  FrmFunc.Tag := PID;
  if St = 0 then
    begin
      FrmFunc.Width := 725;
      FrmFunc.Height := 480;
      FrmFunc.WindowState := wsNormal;
    end;
  if St = 1 then
    begin
      FrmFunc.WindowState := wsMaximized;
    end;
  FrmFunc.ShowModal;
  FrmFunc.Free;

  if FormMain.FM = 8 then
  begin
    FormMain.FM := -1;
    FormMain.ShowFuncD(0,0);
  end;
  if FormMain.FM = 9 then
  begin
    FormMain.FM := -1;
    FormMain.ShowFuncD(0,1);
  end;
end;

{==========================================================================
  過程名:    TFormMain.ShowFuncD
  功  能:    打開代碼添加編輯窗口
  參　數(shù):    PID: integer，代碼ID
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFormMain.ShowFuncD(PID,St: integer);
var
  FrmFuncD : TFrmFuncD;
begin
  FrmFuncD := TFrmFuncD.Create(Application);
  FrmFuncD.Tag := PID;
  if St = 0 then
    begin
      FrmFuncD.Width := 725;
      FrmFuncD.Height := 480;
      FrmFuncD.WindowState := wsNormal;
    end;
  if St = 1 then
    begin
      FrmFuncD.WindowState := wsMaximized;
    end;
  FrmFuncD.ShowModal;
  FrmFuncD.Free;

  if FormMain.FM = 8 then
  begin
    FormMain.FM := -1;
    FormMain.ShowFunc(0,0);
  end;
  if FormMain.FM = 9 then
  begin
    FormMain.FM := -1;
    FormMain.ShowFunc(0,1);
  end;
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
 try
  Self.StatBar.Panels[1].Text := DateTimeToStr(Now);
 except
  Timer1.Enabled := false;
 end;
end;

procedure TFormMain.N1Click(Sender: TObject);
begin
  Close;
end;

{==========================================================================
  過程名:    TFormMain.N3Click
  功  能:    顯示關(guān)于窗體
  參　數(shù):
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFormMain.N3Click(Sender: TObject);
begin
  with TFrmAbout.Create(Application) do
    begin
      ShowModal;
      Free;
    end;
end;

{==========================================================================
  過程名:    TFormMain.FormCreate
  功  能:    創(chuàng)建IDLIST
  參　數(shù):
  作　者:    胡孟杰
  日　期:    2005.08.26
==========================================================================}

procedure TFormMain.FormCreate(Sender: TObject);
begin
12 3 下一頁
?? 文件大小 2878 K
?? 上傳用戶 joyman
?? 所屬分類 Delphi控件源碼
??? 相關(guān)標(biāo)簽

#CoolTrayIcon #ADOBACKUP #SYNEDIT #XPMENU
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? untmain.pas

?? 快捷鍵說明
