fmain.pas

Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器

{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
unit fMain;
interface

uses
  Windows, fOutput, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ShellAPI, DockPanel, Menus, ImgList, DosCommand, ComCtrls,
  StdCtrls,fDoc, GrepResultsDlg, ActnList, InstanceManager, StrUtils, ClipBrd,
  synedit, math,SynEditKeyCmds,SynEditHighlighter,
  ToolWin, umyreg, SynEditRegexSearch, SynEditMiscClasses, CorelButton, IniFiles,
  Tabs, eltree, SynAutoCorrect, RegMru,
  DragFromShell, filedrag, XPMenu, HTTPGet,uTypes, SynHighlighterMulti, CPLoader,
  fBookmarks, uPluginMan;

const
  // Plugin response flags...
  plgOnStartup = 1;
  plgOnShutdown = 2;
  plgOnFocus = 4;
  plgOnLostFocus = 8;

type
  //plug in object
	TTestPlugIn = class
  	Name: String;
    Address: Integer;
    Call: Pointer;
  end;
type
	PlugInInit = procedure (Owner: Integer);
  GetNameFunction = function : PChar;
  TfrmMain = class(TForm)
    dpRight: TDockPanel;
    dpLeft: TDockPanel;
    tbStandard: TToolBar;
    tbbTabLeft: TToolButton;
    tbbTabRight: TToolButton;
    ToolButton3: TToolButton;
    tbbCommentBlock: TToolButton;
    ToolButton6: TToolButton;
    tbbPrevLine: TToolButton;
    tbbNextLine: TToolButton;
    ToolButton10: TToolButton;
    tbbToggleBookmark: TToolButton;
    tbbNextBookmark: TToolButton;
    tbbClearBookmarks: TToolButton;
    tbWeb: TToolBar;
    tbbBack: TToolButton;
    tbbForward: TToolButton;
    ToolButton23: TToolButton;
    tbbStop: TToolButton;
    ToolButton26: TToolButton;
    tbbReload: TToolButton;
    ToolButton28: TToolButton;
    tbbHome: TToolButton;
    tbbSearch: TToolButton;
    ToolButton31: TToolButton;
    tbbUncommentLine: TToolButton;
    stbMain: TStatusBar;
    tbTools: TToolBar;
    tbMacros: TToolBar;
    tbbMac1: TToolButton;
    tbbMac2: TToolButton;
    tbbMac3: TToolButton;
    tbbMac4: TToolButton;
    tbbMac5: TToolButton;
    tbbMac6: TToolButton;
    tbbMac7: TToolButton;
    tbbMac8: TToolButton;
    tbbMac9: TToolButton;
    tbbMac10: TToolButton;
    ToolButton18: TToolButton;
    tbbMacRec: TToolButton;
    cmbURL: TComboBox;
    dpBottom: TDockPanel;
    tbSearch: TToolBar;
    cmbFind: TComboBox;
    tbbFind1: TToolButton;
    ToolButton4: TToolButton;
    tbbFindNext1: TToolButton;
    tbbFindRep1: TToolButton;
    dpTop: TDockPanel;
    ctrlTab: TPanel;
    tcFiles: TTabControl;
    popTabs: TPopupMenu;
    CloseOpenDocument1: TMenuItem;
    CloseAllOpenDocuments2: TMenuItem;
    N24: TMenuItem;
    SaveDocument2: TMenuItem;
    SaveDocumentAs2: TMenuItem;
    SaveAllOpenDocuments2: TMenuItem;
    N34: TMenuItem;
    FTP2: TMenuItem;
    SaveFiletoFTP1: TMenuItem;
    OpenFilefromFTP1: TMenuItem;
    N44: TMenuItem;
    PrintSetup2: TMenuItem;
    Print2: TMenuItem;
    popProject: TPopupMenu;
    NewProject1: TMenuItem;
    OpenProject1: TMenuItem;
    N38: TMenuItem;
    SaveProject1: TMenuItem;
    SaveProjectAs1: TMenuItem;
    N39: TMenuItem;
    Insert1: TMenuItem;
    EmailAddress1: TMenuItem;
    Hyperlink1: TMenuItem;
    File2: TMenuItem;
    N41: TMenuItem;
    InsertNewFolder1: TMenuItem;
    N42: TMenuItem;
    RemoveItem1: TMenuItem;
    cntrlTop: TControlBar;
    tbrProg: TToolBar;
    tbbFormat: TToolButton;
    tbbCase: TToolButton;
    tbbAdvanced: TToolButton;
    tbbBlock: TToolButton;
    tbbLineBreak: TToolButton;
    ToolButton72: TToolButton;
    tbbPrefrences: TToolButton;
    ToolButton80: TToolButton;
    tbbFindInFiles: TToolButton;
    tbbCompile: TToolButton;
    tbbOpenFromWeb: TToolButton;
    tbbOpenFTP: TToolButton;
    ToolButton74: TToolButton;
    tbbInternalBrowser: TToolButton;
    tbbExternalBrowser: TToolButton;
    tbbHex: TToolButton;
    ToolButton46: TToolButton;
    tbbDocumentProperties: TToolButton;
    pnlPage: TPanel;
    pgTop: TPageControl;
    tbrMain: TToolBar;
    tbbNew: TToolButton;
    tbbOpen: TToolButton;
    ToolButton2: TToolButton;
    tbbSave: TToolButton;
    tbbSaveAll: TToolButton;
    ToolButton51: TToolButton;
    tbbPrint: TToolButton;
    ToolButton55: TToolButton;
    tbbUndo: TToolButton;
    tbbRedo: TToolButton;
    ToolButton58: TToolButton;
    tbbCut: TToolButton;
    tbbCopy: TToolButton;
    tbbPaste: TToolButton;
    tbbDelete: TToolButton;
    ToolButton54: TToolButton;
    tbbFind: TToolButton;
    tbbFindNext: TToolButton;
    tbbReplace: TToolButton;
    ToolButton67: TToolButton;
    tbbHelp: TToolButton;
    dlgFileSave: TSaveDialog;
    dlgFileOpen: TOpenDialog;
    mnuMain: TMainMenu;
    File1: TMenuItem;
    NewDocument1: TMenuItem;
    OpenDocument1: TMenuItem;
    OpenFromInternet1: TMenuItem;
    N4: TMenuItem;
    CloseDocument1: TMenuItem;
    CloseAllOpenDocuments1: TMenuItem;
    N5: TMenuItem;
    SaveDocument1: TMenuItem;
    SaveDocumentAs1: TMenuItem;
    SaveAllOpenDocuments1: TMenuItem;
    N6: TMenuItem;
    ShowFileInBrowser1: TMenuItem;
    N7: TMenuItem;
    Export1: TMenuItem;
    ExportToHTML1: TMenuItem;
    ExporttoRTF1: TMenuItem;
    N8: TMenuItem;
    FTP1: TMenuItem;
    OpenFromFTP1: TMenuItem;
    SaveToFTP1: TMenuItem;
    N45: TMenuItem;
    EditAccounts1: TMenuItem;
    N9: TMenuItem;
    PrintSetup1: TMenuItem;
    Print1: TMenuItem;
    PrintPreview1: TMenuItem;
    N10: TMenuItem;
    DocumentProperties1: TMenuItem;
    N11: TMenuItem;
    RecentFiles1: TMenuItem;
    N12: TMenuItem;
    Exit1: TMenuItem;
    Edit1: TMenuItem;
    Undo1: TMenuItem;
    Redo1: TMenuItem;
    N13: TMenuItem;
    Cut1: TMenuItem;
    AppendCut1: TMenuItem;
    Copy1: TMenuItem;
    AppendCopy1: TMenuItem;
    Paste1: TMenuItem;
    Delete1: TMenuItem;
    N17: TMenuItem;
    SelectAll1: TMenuItem;
    N14: TMenuItem;
    Format1: TMenuItem;
    abstoSpaces1: TMenuItem;
    SpacestoTabs1: TMenuItem;
    N30: TMenuItem;
    LeadingtabstoSpaces1: TMenuItem;
    LeadingSpacestoTabs1: TMenuItem;
    N31: TMenuItem;
    OEMtoANSI1: TMenuItem;
    AnsitoOEM1: TMenuItem;
    N32: TMenuItem;
    rimtrailingSpaces1: TMenuItem;
    Changecase1: TMenuItem;
    Uppercase1: TMenuItem;
    Lowercase1: TMenuItem;
    N33: TMenuItem;
    Capitalize1: TMenuItem;
    Sentinsize1: TMenuItem;
    Block1: TMenuItem;
    abRight1: TMenuItem;
    abLeft1: TMenuItem;
    Advanced1: TMenuItem;
    DeleteLines1: TMenuItem;
    DeletetoEOL1: TMenuItem;
    DeletetoEOL2: TMenuItem;
    DeleteWord1: TMenuItem;
    N35: TMenuItem;
    SelectLine1: TMenuItem;
    SelecttoBOL1: TMenuItem;
    SelecttoEOL1: TMenuItem;
    SelectWord1: TMenuItem;
    N36: TMenuItem;
    Joinlines1: TMenuItem;
    Splitline1: TMenuItem;
    Duplicatelines1: TMenuItem;
    N37: TMenuItem;
    Formatlines1: TMenuItem;
    LineBreak1: TMenuItem;
    DosWindows1: TMenuItem;
    Unix1: TMenuItem;
    Macintosh1: TMenuItem;
    N18: TMenuItem;
    HexEdit1: TMenuItem;
    N28: TMenuItem;
    CheckSpelling1: TMenuItem;
    DateTime1: TMenuItem;
    InsertfromFile1: TMenuItem;
    N16: TMenuItem;
    Modified1: TMenuItem;
    Readonly1: TMenuItem;
    Search1: TMenuItem;
    Find1: TMenuItem;
    FindNext1: TMenuItem;
    FindPrevious1: TMenuItem;
    Replace1: TMenuItem;
    N19: TMenuItem;
    ShowResults1: TMenuItem;
    FindInFiles1: TMenuItem;
    N20: TMenuItem;
    GotoLine1: TMenuItem;
    N21: TMenuItem;
    toggleBookmark1: TMenuItem;
    oggleBookmark1: TMenuItem;
    oggleBookmark2: TMenuItem;
    oggleBookmark3: TMenuItem;
    oggleBookmark4: TMenuItem;
    oggleBookmark5: TMenuItem;
    oggleBookmark6: TMenuItem;
    oggleBookmark7: TMenuItem;
    oggleBookmark8: TMenuItem;
    oggleBookmark9: TMenuItem;
    oggleBookmark10: TMenuItem;
    NextBookmark1: TMenuItem;
    oggleBookmark01: TMenuItem;
    oggleBookmark11: TMenuItem;
    oggleBookmark21: TMenuItem;
    oggleBookmark31: TMenuItem;
    oggleBookmark41: TMenuItem;
    oggleBookmark51: TMenuItem;
    oggleBookmark61: TMenuItem;
    oggleBookmark71: TMenuItem;
    oggleBookmark81: TMenuItem;
    oggleBookmark91: TMenuItem;
    ClearBookmarks1: TMenuItem;
    N22: TMenuItem;
    NextLine1: TMenuItem;
    PreviousLine1: TMenuItem;
    View1: TMenuItem;
    cEditPrefrences1: TMenuItem;
    N23: TMenuItem;
    Windows1: TMenuItem;
    FileView1: TMenuItem;
    QuickTags1: TMenuItem;
    ProjectView1: TMenuItem;
    SnippetsView1: TMenuItem;
    DebugOutput1: TMenuItem;
    DebugOutput2: TMenuItem;
    FindInFiles2: TMenuItem;
    oolbars1: TMenuItem;
    Main1: TMenuItem;
    Standard1: TMenuItem;
    N25: TMenuItem;
    Editor1: TMenuItem;
    Web1: TMenuItem;
    Search2: TMenuItem;
    Macro1: TMenuItem;
    ools1: TMenuItem;
    N43: TMenuItem;
    oolPalette1: TMenuItem;
    N26: TMenuItem;
    abbedView1: TMenuItem;
    N15: TMenuItem;
    StatusBar1: TMenuItem;
    Project1: TMenuItem;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    Folder1: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    Compile1: TMenuItem;
    CompileBuild1: TMenuItem;
    N27: TMenuItem;
    BuildSettings1: TMenuItem;
    Plugins1: TMenuItem;
    Tools1: TMenuItem;
    Window1: TMenuItem;
    ileHorizontally1: TMenuItem;
    ileVerticly1: TMenuItem;
    ArrangeIcons1: TMenuItem;
    Cascade1: TMenuItem;
    Help1: TMenuItem;
    Index1: TMenuItem;
    HelpOnline1: TMenuItem;
    KeyboardMap1: TMenuItem;
    N1: TMenuItem;
    Readme1: TMenuItem;
    N2: TMenuItem;
    cEditWebsite1: TMenuItem;
    N3: TMenuItem;
    About1: TMenuItem;
    xp: TXPMenu;
    DownloadLanguageFiles1: TMenuItem;
    QuickFTP1: TMenuItem;
    FileDrag1: TFileDrag;
    ExportAsXHTML1: TMenuItem;
    DownloadPlugins1: TMenuItem;
    N29: TMenuItem;
    DeleteExtraLines1: TMenuItem;
    MRU: TRegMru;
    N40: TMenuItem;
    MinimizeAll1: TMenuItem;
    MaximizeAll1: TMenuItem;
    ActionList1: TActionList;
    actInstallPackage: TAction;
    actExit: TAction;
    actCascade: TAction;
    actTile: TAction;
    ImageList1: TImageList;
    pManager: TuilPluginManager;
    procedure PopNewClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    function ShowFile(sFileName: String; nLine: Integer; bError: Boolean; bChangeProject: Boolean; mdi: TfrmDoc = nil): TfrmDoc;
    procedure FormShow(Sender: TObject);
    procedure pgTbarDockDrop(Sender: TObject; Source: TDragDockObject; X,
      Y: Integer);
    procedure FormDestroy(Sender: TObject);
    procedure ctBarTopResize(Sender: TObject);
    procedure ctBarTopEndDrag(Sender, Target: TObject; X, Y: Integer);
    procedure ctBarTopGetSiteInfo(Sender: TObject; DockClient: TControl;
      var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);
    procedure pgTbarGetSiteInfo(Sender: TObject; DockClient: TControl;
      var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);
    procedure mxPluginNewAction(Sender: TObject; Name: String; Image,
      HotImage, DisabledImage: TBitmap; Caption: String; Enabled,
      Checked: Boolean; Hint: String; ShortCut: TShortCut;
      OnAction: TNotifyEvent);
    procedure mnuTileHorClick(Sender: TObject);
    procedure MenuItemClick(Sender: TObject);
    procedure mnuTileVerClick(Sender: TObject);