untmain.~pas

delphi7,源代码 主要的是进行DELPHI7的源代码进行管理和维护

{*******************************************************}
{                                                       }
{       单元名称: UntMain                               }
{       创建日期: 2007-08-01                            }
{       摘要说明: 系统界面主窗口                        }
{                                                       }
{       详细说明:                                       }
{                                                       }
{       参　　阅:                                       }
{                                                       }
{       已知问题:                                       }
{                                                       }
{       待作事项:                                       }
{                                                       }
{       作　　者: 洪汉辉                                }
{       Copyright (C) 2007 FdAuto                       }
{       当前版本: 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;
    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;
    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;
    N4: TMenuItem;
    N18: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    ActionList1: TActionList;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    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;

  {==========================================================================
                          单元实现部分
  ==========================================================================}

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
  功  能:    打开代码添加编辑窗口
  参　数:    PID: integer，代码ID
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

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
  功  能:    打开代码添加编辑窗口
  参　数:    PID: integer，代码ID
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

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
  功  能:    显示关于窗体
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

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

{==========================================================================
  过程名:    TFormMain.FormCreate
  功  能:    创建IDLIST
  参　数:
  作　者:    洪汉辉
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Self.PgcMain.ActivePageIndex := 0;
  IDList := Tstringlist.Create;
  IDTipList := Tstringlist.Create;
  Self.Tag := 0;
  DBGridFunc.Tag := 1;
  self.FM := -1;
end;

procedure TFormMain.SBtnAddFuncClick(Sender: TObject);