unit main; { EPlus: a text editor with built-in features for HTML editing and Syntax Highlighting for several text formats (html, xml, css, javascript, pascal, c/c++, perl, python, php, bat, ini, diff, po) Copyright (C) 2011, 2012 by Bart Broersma & Flying Sheep Inc. http://home.tiscali.nl/~knmg0017/ This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version with the following modification: As a special exception, the copyright holders of this library give you permission to link this library with independent modules to produce an executable, regardless of the license terms of these independent modules,and to copy and distribute the resulting executable under terms of your choice, provided that you also meet, for each linked independent module, the terms and conditions of the license of that module. An independent module is a module which is not derived from or based on this library. If you modify this library, you may extend this exception to your version of the library, but you are not obligated to do so. If you do not wish to do so, delete this exception statement from your version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. } {$mode objfpc}{$H+} interface uses {$ifdef windows}Win9xWSManager,{$endif} Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, LCLProc, Menus, ActnList, ClipBrd, LclIntf, LMessages, {for overridden IsShortCut} SynEdit, SynEditTypes, EditorPageControl, EPlus_Commons, EPlus_Config, HtmlCode, HtmlDialogs, CopyLeft{ MyFileUtils, Fcl_Misc, MruLists, MyGetOpt, ExtAbout, NlAutoTranslation}; type TIoResult = (ioSuccess, ioFail, ioCancel); { TEPlusForm } TEPlusForm = class(TForm) HtmlActionList: TActionList; acInsertAnchor: TAction; acInsertPicture: TAction; acInsertUList: TAction; acInsertNlist: TAction; acInsertListItem: TAction; acInsertTable: TAction; acInsertLineBreak: TAction; acInsertNbSpace: TAction; acInsertAmpersand: TAction; acInsertLesser: TAction; acInsertGreater: TAction; acInsertCopyright: TAction; acInsertTradeMark: TAction; acLayoutBold: TAction; acLayoutItalic: TAction; acLayoutUnderline: TAction; acLayoutSub: TAction; acLayoutSup: TAction; acLayoutEmphasis: TAction; acLayoutStrong: TAction; acLayoutAlignLeft: TAction; acLayoutAlignRight: TAction; acLayoutAlignCenter: TAction; acLayoutAlignJustify: TAction; acLayoutH1: TAction; acLayoutH2: TAction; acLayoutH3: TAction; acLayoutH4: TAction; acLayoutH5: TAction; acLayoutH6: TAction; acGroupingParagraph: TAction; acGroupingDiv: TAction; acGroupingSpan: TAction; FileActionList: TActionList; acFileOpen: TAction; acFileNewPlain: TAction; acFileNewFromTemplate: TAction; acFileSave: TAction; acFileSaveAll: TAction; acAbout: TAction; EditActionList: TActionList; acEditCopy: TAction; acEditPaste: TAction; acEditFind: TAction; acEditFindPrevious: TAction; acEditFindNext: TAction; FindDialog: TFindDialog; HtmlToolbarImageList: TImageList; MainToolbarImageList: TImageList; MainMenu: TMainMenu; mnuEditPasteTableContentTab: TMenuItem; mnuEditPasteSpecial: TMenuItem; mnuAbout: TMenuItem; mnuViewFont: TMenuItem; //File menu mnuFile: TMenuItem; mnuFileOpen: TMenuItem; mnuFileNewFromTemplate: TMenuItem; mnuFileNew: TMenuItem; mnuFileNewText: TMenuItem; mnuFileNewHtml: TMenuItem; mnuFileNewXml: TMenuItem; mnuFileNewCss: TMenuItem; mnuFileNewJS: TMenuItem; mnuFileNewFpc: TMenuItem; mnuFileNewC: TMenuItem; mnuFileNewPy: TMenuItem; mnuFileNewPhp: TMenuItem; mnuFileNewPerl: TMenuItem; mnuFileNewShellScript: TMenuItem; mnuFileNewBat: TMenuItem; mnuFileNewIni: TMenuItem; mnuFileSave: TMenuItem; mnuFileSaveAs: TMenuItem; mnuFileSaveAll: TMenuItem; mnuFileCloseCurrent: TMenuItem; mnuSep1: TMenuItem; mnuFileOpenInBrowser: TMenuItem; mnuSepAboveMru: TMenuItem; mnuFileMru0: TMenuItem; mnuFileMru1: TMenuItem; mnuFileMru2: TMenuItem; mnuFileMru3: TMenuItem; mnuFileMru4: TMenuItem; mnuFileMru5: TMenuItem; mnuSep3: TMenuItem; mnuFileCloseApp: TMenuItem; //Edit menu mnuEdit: TMenuItem; mnuEditUndo: TMenuItem; mnuEditRedo: TMenuItem; mnuSep11: TMenuItem; mnuEditCopy: TMenuItem; mnuEditCut: TMenuItem; mnuEditPaste: TMenuItem; mnuEditSelectAll: TMenuItem; mnuSep12: TMenuItem; mnuEditReplace: TMenuItem; mnuEditFindNext: TMenuItem; mnuEditFind: TMenuItem; //Insert menu mnuInsert: TMenuItem; mnuInsertAnchor: TMenuItem; mnuInsertList: TMenuItem; mnuInsertUList: TMenuItem; mnuInsertNList: TMenuItem; mnuInsertWordList: TMenuItem; mnuInsetListItem: TMenuItem; mnuInsertWordTerm: TMenuItem; mnuInsertWordDefinition: TMenuItem; mnuInsertTable: TMenuItem; mnInsertNewTable: TMenuItem; mnuInsertTableCell: TMenuItem; mnuInsertTableRow: TMenuItem; mnuInsertPicture: TMenuItem; mnuInsertSpecialChars: TMenuItem; mnuInsertLineBreak: TMenuItem; mnuInsertSep1: TMenuItem; mnuInsertHtmlComment: TMenuItem; mnuInsertJS: TMenuItem; mnuInsertCssStyle: TMenuItem; //Layout menu mnuLayout: TMenuItem; mnuLayoutBold: TMenuItem; mnuLayoutAlignJustify: TMenuItem; mnuLayoutItalic: TMenuItem; mnuLayoutUnderline: TMenuItem; mnuLayoutSub: TMenuItem; mnuLayoutSup: TMenuItem; mnuLayoutEmphasis: TMenuItem; mnuLayoutStrong: TMenuItem; mnuLayoutHeadings: TMenuItem; mnuLayoutH1: TMenuItem; mnuLayoutH2: TMenuItem; mnuLayoutH3: TMenuItem; mnuLayoutH4: TMenuItem; mnuLayoutH5: TMenuItem; mnuLayoutH6: TMenuItem; mnuLayoutAlign: TMenuItem; mnuLayoutAlignLeft: TMenuItem; mnuLayoutAlignRight: TMenuItem; mnuLayoutAlignCenter: TMenuItem; mnuLayoutCode: TMenuItem; mnuLayoutQuote: TMenuItem; mnuLayoutBlockQuote: TMenuItem; mnuLayoutPreformatted: TMenuItem; //Grouping menu mnuGrouping: TMenuItem; mnuGroupingParagraph: TMenuItem; mnuGroupingDiv: TMenuItem; mnuGroupingSpan: TMenuItem; //View menu mnuView: TMenuItem; mnuViewFontsize: TMenuItem; mnuViewFontSizeUp: TMenuItem; mnuViewFontsizeDown: TMenuItem; mnuViewHighlighter: TMenuItem; //these menu items MUST have names that are built like this: //'mnuViewHL' + eftNames[SomeIndex] mnuViewHLeftNone: TMenuItem; mnuViewHLeftHtml: TMenuItem; mnuViewHLeftXml: TMenuItem; mnuViewHLeftCss: TMenuItem; mnuViewHLeftJS: TMenuItem; mnuViewHLeftFpc: TMenuItem; mnuViewHLeftLfm: TMenuItem; mnuViewHLeftC: TMenuItem; mnuViewHLeftPy: TMenuItem; mnuViewHLeftPhp: TMenuItem; mnuViewHLeftPerl: TMenuItem; mnuViewHLeftUNIXShell: TMenuItem; mnuViewHLeftBat: TMenuItem; mnuViewHLeftDiff: TMenuItem; mnuViewHLeftIni: TMenuItem; mnuViewHLeftPo: TMenuItem; //Popup menus //Popup menu for editor EditorPopupMenu: TPopupMenu; mnuEditPopupSelectAll: TMenuItem; mnuEditPopupPaste: TMenuItem; mnuEditPopupCut: TMenuItem; mnuEditPopupCopy: TMenuItem; //Dropdownmenu for HeadingBtn HeadingDropDownMenu: TPopupMenu; mnuPopupLayoutH6: TMenuItem; mnuPopupLayoutH5: TMenuItem; mnuPopupLayoutH4: TMenuItem; mnuPopupLayoutH3: TMenuItem; mnuPopupLayoutH2: TMenuItem; mnuPopupLayoutH1: TMenuItem; MainToolbar: TToolBar; NewFromTemplateBtn: TToolButton; NewPlainBtn: TToolButton; OpenBtn: TToolButton; ReplaceDialog: TReplaceDialog; SaveBtn: TToolButton; SaveAllBtn: TToolButton; tbSep1: TToolButton; CopyBtn: TToolButton; PasteBtn: TToolButton; tbSep2: TToolButton; FindBtn: TToolButton; tbSep3: TToolButton; InfoBtn: TToolButton; HtmlToolbar: TToolBar; AnchorBtn: TToolButton; ImageBtn: TToolButton; tbSep5: TToolButton; UListBtn: TToolButton; NListBtn: TToolButton; ListItemBtn: TToolButton; tbSep4: TToolButton; TableBtn: TToolButton; tbSep6: TToolButton; BoldBtn: TToolButton; ItalicBtn: TToolButton; UnderlineBtn: TToolButton; EmBtn: TToolButton; StrongBtn: TToolButton; SubBtn: TToolButton; SupBtn: TToolButton; tbSep7: TToolButton; HeadingBtn: TToolButton; tbSep8: TToolButton; LeftAlignBtn: TToolButton; RightAlignBtn: TToolButton; CenterAlignBtn: TToolButton; JustifyAlignBtn: TToolButton; tbSep9: TToolButton; ParaBtn: TToolButton; DivBtn: TToolButton; SpanBtn: TToolButton; OpenDialog: TOpenDialog; SaveDialog: TSaveDialog; FontDialog: TFontDialog; StatusBar: TStatusBar; //FileActions procedure acAboutExecute(Sender: TObject); procedure acFileNewFromTemplateExecute(Sender: TObject); procedure acFileNewPlainExecute(Sender: TObject); procedure acFileOpenExecute(Sender: TObject); procedure acFileSaveAllExecute(Sender: TObject); procedure acFileSaveExecute(Sender: TObject); //EditActions procedure acEditCopyExecute(Sender: TObject); procedure acEditFindExecute(Sender: TObject); procedure acEditPasteExecute(Sender: TObject); procedure acEditFindNextExecute(Sender: TObject); procedure acEditFindPreviousExecute(Sender: TObject); procedure acInsertAmpersandExecute(Sender: TObject); //HtmlActions procedure acInsertAnchorExecute(Sender: TObject); procedure acInsertCopyrightExecute(Sender: TObject); procedure acInsertGreaterExecute(Sender: TObject); procedure acInsertLesserExecute(Sender: TObject); procedure acInsertLineBreakExecute(Sender: TObject); procedure acInsertListItemExecute(Sender: TObject); procedure acInsertNbSpaceExecute(Sender: TObject); procedure acInsertOlistExecute(Sender: TObject); procedure acInsertPictureExecute(Sender: TObject); procedure acInsertTableExecute(Sender: TObject); procedure acInsertTradeMarkExecute(Sender: TObject); procedure acInsertUListExecute(Sender: TObject); procedure acLayoutAlignCenterExecute(Sender: TObject); procedure acLayoutAlignJustifyExecute(Sender: TObject); procedure acLayoutAlignLeftExecute(Sender: TObject); procedure acLayoutAlignRightExecute(Sender: TObject); procedure acLayoutBoldExecute(Sender: TObject); procedure acGroupingDivExecute(Sender: TObject); procedure acLayoutEmphasisExecute(Sender: TObject); procedure acLayoutH1Execute(Sender: TObject); procedure acLayoutH2Execute(Sender: TObject); procedure acLayoutH3Execute(Sender: TObject); procedure acLayoutH4Execute(Sender: TObject); procedure acLayoutH5Execute(Sender: TObject); procedure acLayoutH6Execute(Sender: TObject); procedure acLayoutItalicExecute(Sender: TObject); procedure acGroupingParagraphExecute(Sender: TObject); procedure acGroupingSpanExecute(Sender: TObject); procedure acLayoutStrongExecute(Sender: TObject); procedure acLayoutSubExecute(Sender: TObject); procedure acLayoutSupExecute(Sender: TObject); procedure acLayoutUnderlineExecute(Sender: TObject); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormDropFiles(Sender: TObject; const FileNames: array of String); procedure FormShow(Sender: TObject); //Main menu events procedure TopLevelMenuClick(Sender: TObject); //Menu File procedure mnuFileCloseAppClick(Sender: TObject); procedure mnuFileCloseCurrentClick(Sender: TObject); procedure mnuFileSaveAsClick(Sender: TObject); procedure mnuFileNewBatClick(Sender: TObject); procedure mnuFileNewHtmlClick(Sender: TObject); procedure mnuFileNewCClick(Sender: TObject); procedure mnuFileNewCssClick(Sender: TObject); procedure mnuFileNewFpcClick(Sender: TObject); procedure mnuFileNewIniClick(Sender: TObject); procedure mnuFileNewJSClick(Sender: TObject); procedure mnuFileNewPerlClick(Sender: TObject); procedure mnuFileNewPhpClick(Sender: TObject); procedure mnuFileNewPyClick(Sender: TObject); procedure mnuFileNewShellScriptClick(Sender: TObject); procedure mnuFileNewXmlClick(Sender: TObject); procedure mnuFileMruClick(Sender: TObject); procedure mnuFileOpenInBrowserClick(Sender: TObject); //Menu Edit procedure mnuEditUndoClick(Sender: TObject); procedure mnuEditRedoClick(Sender: TObject); procedure mnuEditCutClick(Sender: TObject); procedure mnuEditSelectAllClick(Sender: TObject); procedure mnuFindNextClick(Sender: TObject); procedure mnuEditReplaceClick(Sender: TObject); procedure mnuEditPasteTableContentTabClick(Sender: TObject); //Menu Insert procedure mnuInsertCssStyleClick(Sender: TObject); procedure mnuInsertHtmlCommentClick(Sender: TObject); procedure mnuInsertJSClick(Sender: TObject); procedure mnuInsertSpecialCharsClick(Sender: TObject); procedure mnuInsertTableCellClick(Sender: TObject); procedure mnuInsertTableRowClick(Sender: TObject); procedure mnuInsertWordDefinitionClick(Sender: TObject); procedure mnuInsertWordListClick(Sender: TObject); procedure mnuInsertWordTermClick(Sender: TObject); //Menu Layout procedure mnuLayoutBlockQuoteClick(Sender: TObject); procedure mnuLayoutCodeClick(Sender: TObject); procedure mnuLayoutPreformattedClick(Sender: TObject); procedure mnuLayoutQuoteClick(Sender: TObject); //Menu View procedure mnuViewFontClick(Sender: TObject); procedure mnuViewFontsizeDownClick(Sender: TObject); procedure mnuViewFontSizeUpClick(Sender: TObject); procedure mnuSetHighlighterClick(Sender: TObject); procedure AboutEPlus; procedure DoFind(Sender: TObject); //callback for FindDialog procedure DoReplace(Sender: TObject); //callback for ReplaceDialog public //overridden public form methods //prevent propagating shortcuts from non-modal windows (menu's, actions etc.) function IsShortcut(var Message: TLMKey): boolean; override; private { private declarations } NoteBook: TEditorPageControl; OpenSaveFilter: String; TemplateFilter: String; ConfigFileName: String; ConfigFileDir: String; FindText: String; ReplaceText: String; FindOptions: TSynSearchOptions; ReplaceOptions: TSynSearchOptions; AppOptions: TEPlusOptions; MruList: TStringList; MruMenuItems: Array[0..MruEntries-1] of TMenuItem; procedure SetUpAndConfigureEPlus; procedure SaveEplusConfiguration; procedure CleanUp; function GetDefaultAppOptions: TEPlusOptions; procedure ApplyAppOptions(const Options: TEplusOptions); procedure GatherAppOptions(var Options: TEplusOptions); procedure TagMenuItemsAndActions; procedure UpdateMenuItems; procedure CreateMruMenuItemsArray; function TryHlMenuTagToFileType(ATag: PtrInt; out AFileType: TEditorFileType): Boolean; procedure ConstructOpenDialogFileFilters; procedure ShowError(const Msg: String); //Helper functions for editor; function TryMarkSelection(const Pre, Post: String): Boolean; //File procedures function AskFileNameOpen: String; function AskFileNameOpenTemplate: String; function AskFileNameSave(const Fn: String; const FileType: TEditorFileType): String; function AskFileNameSaveTemplate: String; function TryFileOpen(const Fn: String; const AsTemplate: Boolean = False): Boolean; function TryFileSave(Editor: TEditor; Fn: String): TIoResult; function CloseCurrentEditor: Boolean; function TryFileSaveAll(out Failures: String): Boolean; procedure DoFileOpen; procedure DoMruOpen(const Index: Integer); procedure DoTemplateOpen; procedure DoFileSave(Editor: TEditor); procedure DoFileSaveAs(Editor: TEditor); procedure DoFileSaveAsTemplate(Editor: TEditor); procedure DoFileSaveAll; procedure DoFileNewByType(const AFileType: TEditorFileType; const InitialText: String = ''); procedure DoFileNewHtml; procedure FileOpenInBrowser; //Edit procedures procedure EditUndo; procedure EditRedo; procedure EditCopy; procedure EditPaste; procedure EditCut; procedure EditSelectAll; procedure EditFind; procedure EditFindNext; procedure EditFindPrevious; procedure EditReplace; procedure EditPasteTableContentTab; //Insert and layout procedures procedure InsertAnchor; procedure InsertPicture; procedure InsertTable; procedure InsertSpecialChars; procedure InsertSpecial(const AValue: String); procedure LayoutHeading(const Level: Integer); //View procedures procedure SetHighlighter(const AFileType: TEditorFileType); procedure EditorSelectFont; procedure EditorFontSizeUp; procedure EditorFontSizeDown; procedure ParseCommandlineFilenames(Dummy: PtrInt); //Dummy is needed for QueueAsyncCall() procedure ParseCommandLineSwitches; //NoteBook and Editor Events procedure OnEditorStatusChange(Sender: TObject; Changes: TSynStatusChanges); procedure OnBeforeCloseEditor(Sender: TTabSheet; var Cancel: Boolean); procedure OnCharsetChange(Sender: TEditor; const OldCharset, NewCharset: String; const LineNr: Integer); procedure OnMruListChange(Sender: TObject); //CharMap events procedure OnHtmlCharMapInsertText(AValue: String); public { public declarations } end; var EPlusForm: TEPlusForm; implementation {$R *.lfm} const pXY = 0; //Panels constanten pMod = 1; pIns = 2; pName = 3; SLine = 'Rg'; SCol = 'Kol'; SModified = 'Gewijzigd'; SIns = 'INS'; SOvr = 'OVR'; tgNeedsEditor = $01; tgNeedsSelection = $02; tgNeedsClipPaste = $04; msgOpenError = 'Fout bij openen van bestand:'^m'%s'; msgSaveError = 'Fout bij opslaan van bestand:'^m'%s'; msgSaveAllError = 'De volgende bestanden zijn niet opgeslagen:'^m'%s'; msgFileIsNotText = 'Dit bestand lijkt geen tekstbestand te zijn'^m'%s'^m'Wilt u het toch openen?'; msgFileNotFound = 'Bestand niet gevonden:'^m'%s'; msgModifiedSave = 'Bestand is gewijzigd:'^m'%s'^m'Bestand opslaan?'; msgMruIndexOutOfBound = 'Index voor recent geopende bestanden ligt buiten de grenzen [%d]'^m+ 'Dit is uiteraard een fout van de programmeur'; msgFileTypeNotForBrowser = 'Dit bestandstype lijkt niet geschikt om te openen in een browser.'^m+ 'Wilt u toch doorgaan?'; msgFileHasNoName = 'Dit bestand heeft nog geen naam.'^m + 'U moet het bestand eerst opslaan om het in de browser te openen.'; msgErrorBrowser = 'Er is een fout opgetreden tijdens het openen van'^m+ '%s'^m'in de browser.'; msgTextNotFound = 'Tekst niet gevonden:'^m'"%s"'; //Initial text for FileNew commands itXml = ''; itBat = '@echo off'; itUnixShellScript = '#!/bin/bash'; //Commandline options opt_long_PCP = 'pcp'; //--pcp=path/to/configfile opt_short_blankpage = 'n'; { TEPlusForm } { ************************** [ Form event handlers] ***********************************} procedure TEPlusForm.FormCreate(Sender: TObject); begin SetUpAndConfigureEPlus; end; procedure TEPlusForm.FormDestroy(Sender: TObject); begin CleanUp; end; procedure TEPlusForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin SaveEplusConfiguration; end; procedure TEPlusForm.FormCloseQuery(Sender: TObject; var CanClose: boolean); begin While NoteBook.PageCount > 0 do begin if not NoteBook.ClosePage(NoteBook.PageCount - 1) then //ClosePage invokes OnBeforeCloseEditor, which sets Cancel = True if file is not saved //this in turn will make ClosePage() return false begin CanClose := False; Break; end; end; end; procedure TEPlusForm.FormDropFiles(Sender: TObject; const FileNames: array of String); var i: Integer; begin for i := Low(FileNames) to High(FileNames) do begin if FileExistsUtf8(FileNames[i]) then begin if not TryFileOpen(FileNames[i]) then ShowError(Format('Fout bij openen van bestand'^m,[FileNames[i]])); end else ShowError(Format(msgFileNotFound,[FileNames[i]])); end; end; procedure TEPlusForm.FormShow(Sender: TObject); begin //This needs to be done only after the mainform has become visible on the screen Application.QueueAsyncCall(@ParseCommandLineFileNames, 0); end; { ********************** [ Menu OnClick Handlers ] ************************ } procedure TEPlusForm.mnuFileOpenInBrowserClick(Sender: TObject); begin FileOpenInBrowser; end; procedure TEPlusForm.mnuEditPasteTableContentTabClick(Sender: TObject); begin EditPasteTableContentTab; end; procedure TEPlusForm.mnuInsertCssStyleClick(Sender: TObject); begin TryMarkSelection(style_start, style_end); end; procedure TEPlusForm.mnuInsertHtmlCommentClick(Sender: TObject); begin TryMarkSelection(comment_start, comment_end); end; procedure TEPlusForm.mnuInsertJSClick(Sender: TObject); begin TryMarkSelection(script_start, script_end); end; procedure TEPlusForm.mnuInsertSpecialCharsClick(Sender: TObject); begin InsertSpecialChars; end; procedure TEPlusForm.mnuInsertTableCellClick(Sender: TObject); begin TryMarkSelection(col_start, col_end); end; procedure TEPlusForm.mnuInsertTableRowClick(Sender: TObject); begin TryMarkSelection(row_start, row_end); end; procedure TEPlusForm.mnuInsertWordDefinitionClick(Sender: TObject); begin TryMarkSelection(worddef_start, worddef_end); end; procedure TEPlusForm.mnuInsertWordListClick(Sender: TObject); begin TryMarkSelection(wordlist_start, wordlist_end); end; procedure TEPlusForm.mnuInsertWordTermClick(Sender: TObject); begin TryMarkSelection(wordterm_start, wordterm_end); end; procedure TEPlusForm.mnuLayoutBlockQuoteClick(Sender: TObject); begin TryMarkSelection(blockquote_start, blockquote_end); end; procedure TEPlusForm.mnuLayoutCodeClick(Sender: TObject); begin TryMarkSelection(code_start, code_end); end; procedure TEPlusForm.mnuLayoutPreformattedClick(Sender: TObject); begin TryMarkSelection(pre_start, pre_end); end; procedure TEPlusForm.mnuLayoutQuoteClick(Sender: TObject); begin TryMarkSelection(quote_start, quote_end); end; procedure TEPlusForm.mnuViewFontClick(Sender: TObject); begin EditorSelectFont; end; procedure TEPlusForm.mnuViewFontsizeDownClick(Sender: TObject); begin EditorFontSizeDown; end; procedure TEPlusForm.mnuViewFontSizeUpClick(Sender: TObject); begin EditorFontSizeUp; end; procedure TEPlusForm.TopLevelMenuClick(Sender: TObject); begin UpdateMenuItems; end; procedure TEPlusForm.mnuEditCutClick(Sender: TObject); begin EditCut; end; procedure TEPlusForm.mnuFileCloseAppClick(Sender: TObject); begin Close; end; procedure TEPlusForm.mnuFileCloseCurrentClick(Sender: TObject); begin CloseCurrentEditor; end; procedure TEPlusForm.mnuFileSaveAsClick(Sender: TObject); begin DoFileSaveAs(NoteBook.CurrentEditor); end; procedure TEPlusForm.mnuFindNextClick(Sender: TObject); begin EditFindNext; end; procedure TEPlusForm.mnuFileNewBatClick(Sender: TObject); begin DoFileNewByType(eftBat, itBat); end; procedure TEPlusForm.mnuFileNewHtmlClick(Sender: TObject); begin DoFileNewHtml; end; procedure TEPlusForm.mnuFileNewCClick(Sender: TObject); begin DoFileNewByType(eftC); end; procedure TEPlusForm.mnuFileNewCssClick(Sender: TObject); begin DoFileNewByType(eftCss); end; procedure TEPlusForm.mnuFileNewFpcClick(Sender: TObject); begin DoFileNewByType(eftFpc); end; procedure TEPlusForm.mnuFileNewIniClick(Sender: TObject); begin DoFileNewByType(eftIni); end; procedure TEPlusForm.mnuFileNewJSClick(Sender: TObject); begin DoFileNewByType(eftJS); end; procedure TEPlusForm.mnuFileNewPerlClick(Sender: TObject); begin DoFileNewByType(eftPerl); end; procedure TEPlusForm.mnuFileNewPhpClick(Sender: TObject); begin DoFileNewByType(eftPerl); end; procedure TEPlusForm.mnuFileNewPyClick(Sender: TObject); begin DoFileNewByType(eftPy); end; procedure TEPlusForm.mnuFileNewShellScriptClick(Sender: TObject); begin DoFileNewByType(eftUnixShell, itUnixShellScript); end; procedure TEPlusForm.mnuFileNewXmlClick(Sender: TObject); begin DoFileNewByType(eftXml, itXml); end; procedure TEPlusForm.mnuFileMruClick(Sender: TObject); var Index: Integer; begin Index := ((Sender as TMenuItem).Tag) shr 4; //debugln('Menu->File->',(Sender as TMenuItem).Caption,' Index = ',Dbgs(Index)); DoMruOpen(Index); end; procedure TEPlusForm.mnuEditRedoClick(Sender: TObject); begin EditRedo; end; procedure TEPlusForm.mnuEditReplaceClick(Sender: TObject); begin EditReplace; end; procedure TEPlusForm.mnuSetHighlighterClick(Sender: TObject); var AFileType: TEditorFileType; begin if TryHlMenuTagToFileType((Sender as TMenuItem).Tag, AFileType) then SetHighlighter(AFileType) else debugln(Format('Error: Invalid tag for MenuItem %s: %x',[(Sender as TMenuItem).Name,(Sender as TMenuItem).Tag])); end; procedure TEPlusForm.mnuEditSelectAllClick(Sender: TObject); begin EditSelectAll; end; procedure TEPlusForm.mnuEditUndoClick(Sender: TObject); begin EditUndo; end; { ******************** [Action OnExecute Handlers ] *********************** } procedure TEPlusForm.acFileOpenExecute(Sender: TObject); begin DoFileOpen; end; procedure TEPlusForm.acFileSaveAllExecute(Sender: TObject); begin DoFileSaveAll; end; procedure TEPlusForm.acFileNewFromTemplateExecute(Sender: TObject); begin DoTemplateOpen; end; procedure TEPlusForm.acAboutExecute(Sender: TObject); begin AboutEplus; end; procedure TEPlusForm.acEditFindNextExecute(Sender: TObject); begin EditFindNext; end; procedure TEPlusForm.acEditFindPreviousExecute(Sender: TObject); begin EditFindPrevious; end; procedure TEPlusForm.acInsertAmpersandExecute(Sender: TObject); begin InsertSpecial(Ampersand); end; procedure TEPlusForm.acInsertAnchorExecute(Sender: TObject); begin InsertAnchor; end; procedure TEPlusForm.acInsertCopyrightExecute(Sender: TObject); begin InsertSpecial(CopyRight); end; procedure TEPlusForm.acInsertGreaterExecute(Sender: TObject); begin InsertSpecial(Greater); end; procedure TEPlusForm.acInsertLesserExecute(Sender: TObject); begin InsertSpecial(Lesser); end; procedure TEPlusForm.acInsertLineBreakExecute(Sender: TObject); begin InsertSpecial(LineBreak); end; procedure TEPlusForm.acInsertListItemExecute(Sender: TObject); begin TryMarkSelection(listitem_start, listitem_end); end; procedure TEPlusForm.acInsertNbSpaceExecute(Sender: TObject); begin InsertSpecial(NbSpace); end; procedure TEPlusForm.acInsertOlistExecute(Sender: TObject); begin TryMarkSelection(numberedlist_start, numberedlist_end); end; procedure TEPlusForm.acInsertPictureExecute(Sender: TObject); begin InsertPicture; end; procedure TEPlusForm.acInsertTableExecute(Sender: TObject); begin InsertTable; end; procedure TEPlusForm.acInsertTradeMarkExecute(Sender: TObject); begin InsertSpecial(TradeMark); end; procedure TEPlusForm.acInsertUListExecute(Sender: TObject); begin TryMarkSelection(unnumberedlist_start, unnumberedlist_end); end; procedure TEPlusForm.acLayoutAlignCenterExecute(Sender: TObject); begin TryMarkSelection(centeralign_start, centeralign_end); end; procedure TEPlusForm.acLayoutAlignJustifyExecute(Sender: TObject); begin TryMarkSelection(justifyalign_start, justifyalign_end); end; procedure TEPlusForm.acLayoutAlignLeftExecute(Sender: TObject); begin TryMarkSelection(leftalign_start, leftalign_end); end; procedure TEPlusForm.acLayoutAlignRightExecute(Sender: TObject); begin TryMarkSelection(rightalign_start, rightalign_end); end; procedure TEPlusForm.acLayoutBoldExecute(Sender: TObject); begin TryMarkSelection(bold_start, bold_end); end; procedure TEPlusForm.acGroupingDivExecute(Sender: TObject); begin TryMarkSelection(div_start, div_end); end; procedure TEPlusForm.acLayoutEmphasisExecute(Sender: TObject); begin TryMarkSelection(emphasis_start, emphasis_end); end; procedure TEPlusForm.acLayoutH1Execute(Sender: TObject); begin LayoutHeading(1); end; procedure TEPlusForm.acLayoutH2Execute(Sender: TObject); begin LayoutHeading(2); end; procedure TEPlusForm.acLayoutH3Execute(Sender: TObject); begin LayoutHeading(3); end; procedure TEPlusForm.acLayoutH4Execute(Sender: TObject); begin LayoutHeading(4); end; procedure TEPlusForm.acLayoutH5Execute(Sender: TObject); begin LayoutHeading(5); end; procedure TEPlusForm.acLayoutH6Execute(Sender: TObject); begin LayoutHeading(6); end; procedure TEPlusForm.acLayoutItalicExecute(Sender: TObject); begin TryMarkSelection(italic_start, italic_end); end; procedure TEPlusForm.acGroupingParagraphExecute(Sender: TObject); begin TryMarkSelection(paragraph_start, paragraph_end); end; procedure TEPlusForm.acGroupingSpanExecute(Sender: TObject); begin TryMarkSelection(span_start, span_end); end; procedure TEPlusForm.acLayoutStrongExecute(Sender: TObject); begin TryMarkSelection(strong_start, strong_end); end; procedure TEPlusForm.acLayoutSubExecute(Sender: TObject); begin TryMarkSelection(sub_start, sub_end); end; procedure TEPlusForm.acLayoutSupExecute(Sender: TObject); begin TryMarkSelection(sup_start, sup_end); end; procedure TEPlusForm.acLayoutUnderlineExecute(Sender: TObject); begin TryMarkSelection(underline_start, underline_end); end; procedure TEPlusForm.acEditCopyExecute(Sender: TObject); begin EditCopy; end; procedure TEPlusForm.acEditFindExecute(Sender: TObject); begin EditFind; end; procedure TEPlusForm.acEditPasteExecute(Sender: TObject); begin EditPaste; end; procedure TEPlusForm.acFileNewPlainExecute(Sender: TObject); begin DoFileNewByType(eftNone); end; procedure TEPlusForm.acFileSaveExecute(Sender: TObject); begin DoFileSave(NoteBook.CurrentEditor); end; { ********************** [ Form Methods ] ***************************** } function TEPlusForm.IsShortcut(var Message: TLMKey): boolean; begin if Active then Result := inherited IsShortcut(Message) else Result := False; end; { ********************** [ Initializing and cleaning up ] ************* } procedure TEPlusForm.SetUpAndConfigureEPlus; begin ConfigFileDir := GetDefaultIniDir; ParseCommandLineSwitches; if (not DirectoryExists(ConfigFileDir)) and (ConfigFileDir <> '') then begin if not ForceDirectories(ConfigFileDir) then begin if (CompareFilenames(ConfiGFileDir, GetDefaultIniDir) <> 0) then begin debugln('Error creating directory: ',ConfigFileDir); debugln('Trying ',GetDefaultIniDir,' instead.'); ConfigFileDir := GetDefaultIniDir; end; end; end; ConfigFileName := IncludeTrailingPathDelimiter(ConfigFileDir) + GetDefaultIniNameOnly; //DebugLn('ConfigFileName = ',ConfigFileName); // REMOVE !! //ConfigFileName := 'F:\LazarusProjecten\EPlus\EPlus.ini'; //debugln('Temporarily using: ',ConfigFileName); //^^^^^^^^^^^^^^ Caption := AppName; TagMenuItemsAndActions; CreateMruMenuItemsArray; //Create the notebook NoteBook := TEditorPageControl.Create(Self); NoteBook.Align := alClient; NoteBook.Parent := Self; NoteBook.OnStatusChange := @OnEditorStatusChange; NoteBook.OnBeforeCloseEditor := @OnBeforeCloseEditor; NoteBook.OnEditorCharsetChange := @OnCharsetChange; //Creating dialogs HtmlCharMapDlg := THtmlCharMapDlg.Create; HtmlCharMapDlg.OnHtmlCharClick := @OnHtmlCharMapInsertText; NewHtmlDlg := TNewHtmlDlg.Create; AnchorDlg := TAnchorDlg.Create; PictureDlg := TPictureDlg.Create; TableDlg := TTableDlg.Create; //MruList MruList := TStringList.Create(); //MruList.MaxEntries := MruEntries; //Configurable options AppOptions := GetDefaultAppOptions; if not LoadOptions(AppOptions, ConfigFileName) then DebugLn('Fout bij laden van opties:',LineEnding,' ',ConfigFileName) else ApplyAppOptions(AppOptions); ConstructOpenDialogFileFilters; //Attach the OnChange handler after filling the list (in LoadOptions) //MruList.OnChange := @OnMruListChange; //Update the MRU menu entries OnMruListChange(Self); end; procedure TEPlusForm.SaveEplusConfiguration; begin GatherAppOptions(AppOptions); if not EPlus_Config.SaveOptions(AppOptions, ConfigFileName) then DebugLn('Fout bij opslaan van opties:',LineEnding,' ',ConfigFileName); end; procedure TEPlusForm.CleanUp; begin HtmlCharMapDlg.OnHtmlCharClick := nil; HtmlCharMapDlg.Free; NewHtmlDlg.Free; AnchorDlg.Free; PictureDlg.Free; TableDlg.Free; end; { ********************** [ Configuration ] ************************** } function TEPlusForm.GetDefaultAppOptions: TEPlusOptions; var i: Integer; begin Result.FileTypeMaskList := DefaultFileTypeMaskList; Result.MainForm.Position := Rect(-1, -1, -1, -1); Result.MainForm.InitialDir := ''; Result.AnchorDlg.Position := Point(-1,-1); Result.HtmlCharMapDlg.Position := Point(-1,-1); Result.NewHtmlDlg.Position := Point(-1,-1); Result.PictureDlg.Position := Point(-1,-1); Result.PictureDlg.InitialDir := ''; Result.TableDlg.Position := Point(-1,-1); for i := 0 to MruEntries - 1 do Result.RecentFiles[i] := ''; Result.EditorOptions := NoteBook.EditorOptions; Result.TemplateMaskList := DefaultTemplateMaskList; end; procedure TEPlusForm.ApplyAppOptions(const Options: TEplusOptions); function ValidPos(const New, Old: Integer): Integer; begin if (New < 0) then Result := Old else Result := New; end; var ALeft, ATop, AWidth, AHeight: Integer; //ftIndex: TEditorFileType; i: Integer; EdOpt: TEditorOptions; begin EdOpt := NoteBook.EditorOptions; if (Options.EditorOptions.FontName <> '') or (Options.EditorOptions.FontSize <> 0) then begin //debugln('NoteBook.EditorOptions <> default'); EdOpt.FontName := Options.EditorOptions.FontName; EdOpt.FontSize := Options.EditorOptions.FontSize; NoteBook.EditorOptions := EdOpt; end; ALeft := ValidPos(Options.MainForm.Position.Left,Left); ATop := ValidPos(Options.MainForm.Position.Top,Top); AWidth := ValidPos(Options.MainForm.Position.Right,Width); AHeight := ValidPos(Options.MainForm.Position.Bottom,Height); SetBounds(ALeft, ATop, AWidth, AHeight); { for ftIndex := Low(TEditorFileType) to High(TEditorFileType) do begin DebugLn(eftNames[ftIndex],'=',Options.FileTypeMaskList[ftIndex]); end; } //FileTypeMaskList := Options.FileTypeMaskList; if Options.MainForm.InitialDir <> '' then OpenDialog.InitialDir := Options.MainForm.InitialDir; //Dialogs NewHtmlDlg.Top := Options.NewHtmlDlg.Position.y; NewHtmlDlg.Left := Options.NewHtmlDlg.Position.x; NewHtmlDlg.InitialDir := Options.NewHtmlDlg.InitialDir; AnchorDlg.Top := Options.AnchorDlg.Position.y; AnchorDlg.Left := Options.AnchorDlg.Position.x; HtmlCharMapDlg.Top := Options.HtmlCharMapDlg.Position.y; HtmlCharMapDlg.Left := Options.HtmlCharMapDlg.Position.x; PictureDlg.Top := Options.PictureDlg.Position.y; PictureDlg.Left := Options.PictureDlg.Position.x; PictureDlg.InitialDir := Options.PictureDlg.InitialDir; PictureDlg.DefaultFolderPrefix := Options.PictureDlg.DefaultFolderPrefix; TableDlg.Top := Options.TableDlg.Position.y; TableDlg.Left := Options.TableDlg.Position.x; //uses downto loop because TMruList.Add stores item at index = 0 for i := MruEntries - 1 downto 0 do begin if (Options.RecentFiles[i] <> '') then MruList.Add(Options.RecentFiles[i]); end; end; procedure TEPlusForm.GatherAppOptions(var Options: TEplusOptions); var i: Integer; begin if (Self.WindowState = wsNormal) then Options.MainForm.Position := Rect(Left, Top, Width, Height); OpenDialog.InitialDir := Options.MainForm.InitialDir; SaveDialog.InitialDir := Options.MainForm.InitialDir; Options.EditorOptions := NoteBook.EditorOptions; //Options.FileTypeMaskList := FileTypeMaskList; //Dialogs Options.NewHtmlDlg.Position.y := NewHtmlDlg.Top; Options.NewHtmlDlg.Position.x := NewHtmlDlg.Left; Options.NewHtmlDlg.InitialDir := NewHtmlDlg.InitialDir; Options.AnchorDlg.Position.y := AnchorDlg.Top; Options.AnchorDlg.Position.x := AnchorDlg.Left; Options.HtmlCharMapDlg.Position.y := HtmlCharMapDlg.Top; Options.HtmlCharMapDlg.Position.x := HtmlCharMapDlg.Left; Options.PictureDlg.Position.y := PictureDlg.Top; Options.PictureDlg.Position.x := PictureDlg.Left; Options.PictureDlg.InitialDir := PictureDlg.InitialDir; Options.PictureDlg.DefaultFolderPrefix := PictureDlg.DefaultFolderPrefix; Options.TableDlg.Position.y := TableDlg.Top; Options.TableDlg.Position.x := TableDlg.Left; for i := 0 to MruEntries - 1 do begin if MruList.Count > i then Options.RecentFiles[i] := MruList.Strings[i] else Options.RecentFiles[i] := ''; end; end; procedure TEPlusForm.ConstructOpenDialogFileFilters; function AddWilds(const S: String): String; //S has the form of '.pp;.pas;.inc' //This function will add '*' in front of every extension in the list var SL: TStringList; i: Integer; begin Result := ''; SL := TStringList.Create; try SL.Delimiter := ';'; SL.StrictDelimiter := True; SL.DelimitedText := S; for i := 0 to SL.Count - 1 do begin if (Length(SL.Strings[i]) > 0) then Result := Result + '*' + SL.Strings[i] + ';'; end; if (Length(Result) > 0) and (Result[Length(Result)] = ';') then System.Delete(Result,Length(Result),1); finally SL.Free; end; end; var Filter, SubFilter, WildFilter: String; Index: Integer; FileType: TEditorFileType; begin //First filter for OpenSave Filter := ''; for Index := fiEftFirst to fiEftLast do begin FileType := TEditorFileType(Index); //DbgOut(eftNames[FileType],' -> '); WildFilter := AddWilds(AppOptions.FileTypeMaskList[FileType]); //DebugLn(WildFilter); SubFilter := eftFilterNames[FileType] + ' (' + WildFilter + ')|'+ WildFilter; Filter := Filter + '|' + SubFilter; end; Filter := Filter + '|' + FilterText; WildFilter := AddWilds(AppOptions.TemplateMaskList); //Also add template filter to Open/SaveFilter Filter := Filter + '|' + STemplate + ' (' + WildFilter + ')|' + WildFilter; Filter := Filter + '|' + FilterAll; while (Length(Filter) > 0) and (Filter[1] = '|') do System.Delete(Filter,1,1); OpenSaveFilter := Filter; //Now filter for Open/Save as Template TemplateFilter := STemplate + ' (' + WildFilter + ')|' + WildFilter + '|' + FilterAll; end; { ********************** [ Commandline options ] ******************************** } procedure TEPlusForm.ParseCommandlineFilenames(Dummy: PtrInt); var i: Integer; S: String; begin //debugln('ParseCommandlineFilenames, FileNamesCount = ',DbgS(FileNamesCount)); if Dummy = 12345 then Exit; //Get rid of annoying hint { for i := 1 to MyGetOpt.FileNamesCount do begin S := MyGetOpt.FileNameStr(i); if (S <> EmptyStr) then begin //it is a file to open S := ExpandFileNameUtf8(S); //we want full filename here, e.g. for filename in statusbar if FileExistsUtf8(S) then begin if not TryFileOpen(S) then ShowError(Format(msgOpenError,[S])); end else ShowError(Format(msgFileNotFound,[S])); end end; if (MyGetOpt.FileNamesCount = 0) and MyGetOpt.HasOption(opt_short_blankpage,False) then DoFileNewByType(eftNone); } end; procedure TEPlusForm.ParseCommandLineSwitches; var S: String; begin //debugln('ParseCommandlineSwitches'); { if MyGetOpt.HasOption(opt_long_PCP, False, S) then begin if (S <> EmptyStr) then begin S := ExcludeTrailingPathdelimiter(ExpandFileName(S)); //MyGetOpt returns parameters as UTF8 //inifiles uses system-encoding ConfigFileDir := Utf8ToSys(S); end; end;} end; { ***************** [ Menu-related Helper functions/procedures ] ************************ } procedure TEPlusForm.CreateMruMenuItemsArray; var i, Nr: Integer; C: TComponent; N: TComponentName; begin for i := 0 to ComponentCount - 1 do begin C := Components[i]; if (C is TMenuItem) then begin N := UpperCase(C.Name); if Pos('MNUFILEMRU',N) = 1 then begin System.Delete(N,1,Length('mnuFileMru')); if TryStrToInt(N, Nr) then begin if (Nr in [0..MruEntries - 1]) then begin MruMenuItems[Nr] := TMenuItem(C); MruMenuItems[Nr].Tag := MruMenuItems[Nr].Tag or (Nr shl 4); //Debugln('Menu: ',C.Name,' -> MruMenuItems[',DbgS(Nr),']'); end; end; end; end; end; end; function TEPlusForm.TryHlMenuTagToFileType(ATag: PtrInt; out AFileType: TEditorFileType): Boolean; begin AFileType := eftNone; //dbgout('Tg = ',IntToHex(Tg,8),' -> '); ATag := ATag and $FF00; //dbgout('Tg = ',IntToHex(Tg,8),' -> '); ATag := ATag shr 8; //debugln('Tg = ',IntToHex(Tg,8)); Result := not (ATag < Ord(Low(TEditorFileType))) or (ATag > Ord(High(TEditorFileType))); if Result then AFileType := TEditorFileType(ATag); end; procedure TEPlusForm.TagMenuItemsAndActions; var i: Integer; C: TComponent; N: TComponentName; //NE: Boolean; //NS: Boolean; Index: TEditorFileType; begin for i := 0 to self.ComponentCount - 1 do begin C := Self.Components[i]; N := C.Name; if (C is TAction) or (C is TMenuItem) then begin //Things that need an open editor if Pos('LAYOUT',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; if Pos('EDIT',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; if Pos('INSERT',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; if Pos('FILESAVE',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; if Pos('CURRENT',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; if Pos('GROUPING',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; if Pos('HIGHLIGHTER',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; if Pos('FONT',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; if Pos('VIEWHL',UpperCase(N)) > 0 then begin C.Tag := C.Tag or tgNeedsEditor; for Index := Low(TEditorFileType) to High(TEditorFileType) do begin //need exact match! if ('MNUVIEWHL' + UpperCase(eftNames[Index]) = UpperCase(N)) then begin C.Tag := C.Tag or (Ord(Index) shl 8); //debugln(Format('%-25s',[N]),' ->', IntToHex(C.Tag,8)); end; end; end; //Things that need text on the clipboard if Pos('PASTE',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsClipPaste; //Things that need a selection in the editor if Pos('COPY', UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsSelection; if Pos('CUT', UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsSelection; //Things that don't need an open editor if Pos('FILENEW',UpperCase(N)) > 0 then C.Tag := C.Tag and (not tgNeedsEditor); if Pos('FILEOPEN',UpperCase(N)) > 0 then C.Tag := C.Tag and (not tgNeedsEditor); if Pos('APP',UpperCase(N)) > 0 then C.Tag := C.Tag and (not tgNeedsEditor); //Exceptions and fixes aftre the applied rules above //needs to be _after_ 'OPEN' if Pos('BROWSER',UpperCase(N)) > 0 then C.Tag := C.Tag or tgNeedsEditor; end; //Top level menus mnuFile.Tag := 0; mnuEdit.Tag := 0; mnuInsert.Tag := 0; mnuGrouping.Tag := 0; mnuView.Tag := 0; mnuAbout.Tag := 0; { if (C is TMenuItem) or (C is TAction) then begin NE := (C.Tag and tgNeedsEditor) > 0; NS := (C.Tag and tgNeedsSelection) > 0; debugln(C.Name,' -> NeedsEditor = ',DbgS(NE),' NeedsSelection = ',DbgS(NS)); end; } end; //Doesn't work in OI on Win9x acEditCopy.Caption := 'Kopiëren'; end; procedure TEPlusForm.UpdateMenuItems; var i: Integer; C: TComponent; HasEditor, HasSelection, HasClipPaste: Boolean; NeedsEditor, NeedsSelection, NeedsClipPaste: Boolean; begin HasEditor := Assigned(NoteBook.CurrentEditor); HasSelection := HasEditor and (NoteBook.CurrentEditor.SelAvail); HasClipPaste := (ClipBoard.AsText <> EmptyStr); for i := 0 to ComponentCount - 1 do begin C := Components[i]; if (C is TMenuItem) then begin NeedsEditor := (C.Tag and tgNeedsEditor) > 0; NeedsSelection := (C.Tag and tgNeedsSelection) > 0; NeedsClipPaste := (C.Tag and tgNeedsClipPaste) > 0; TMenuItem(C).Enabled := ((NeedsEditor and HasEditor) or (not NeedsEditor)) and ((NeedsSelection and HasSelection) or (not NeedsSelection)) and ((NeedsClipPaste and HasClipPaste) or (not NeedsClipPaste)); end; end; end; { ******************** [ NoteBook / Editor event handlers ] ************************ } procedure TEPlusForm.OnBeforeCloseEditor(Sender: TTabSheet; var Cancel: Boolean); var Ed: TEditor; Fn: String; Res: TModalResult; begin Cancel := False; Ed := NoteBook.EditorAtPage(Sender); if Assigned(Ed) then begin if (Ed.Modified) {or (Ed.FileName = EmptyStr)} then begin Fn := Ed.FileName; if Fn = EmptyStr then Fn := Sender.Caption; //this will differentiate between Noname and Noname [2] Res := MessageDlg(AppName, Format(msgModifiedSave,[Fn]), mtConfirmation, [mbYes,mbNo,mbCancel], 0); case Res of mrNo: Cancel := False; mrCancel: Cancel := True; mrOk: Cancel := (TryFileSave(Ed, Ed.FileName) <> IoSuccess); end; end; end; end; procedure TEPlusForm.OnEditorStatusChange(Sender: TObject; Changes: TSynStatusChanges); var Line, Col: LongInt; begin if (Sender = nil) or (not (Sender is TEditor)) then begin StatusBar.Panels[pXY].Text := ''; StatusBar.Panels[pMod].Text := ''; StatusBar.Panels[pIns].Text := ''; StatusBar.Panels[pName].Text := ''; Exit; end; with (Sender as TEditor) do begin if (scCaretX in Changes) or (scCaretY in Changes) then begin Col := CaretX; Line := CaretY; StatusBar.Panels[pXY].Text := Format('%s %-3d %s %-3d',[SLine,Line,SCol,Col]); end; if (scModified in Changes) then begin if Modified then StatusBar.Panels[pMod].Text := SModified else StatusBar.Panels[pMod].Text := ''; end; if (scInsertMode in Changes) then begin if InsertMode then StatusBar.Panels[pIns].Text := SIns else StatusBar.Panels[pIns].Text := SOvr; end; if (scFileName in Changes) then begin StatusBar.Panels[pName].Text := FileName; end; end; end; procedure TEPlusForm.OnCharsetChange(Sender: TEditor; const OldCharset, NewCharset: String; const LineNr: Integer); begin MessageDlg(Format('Let op: html charset is gewijzigd van %s naar %s'^m'(Regel %d)',[OldCharset, NewCharset, LineNr]), mtInformation, [mbOk], 0); end; procedure TEPlusForm.OnMruListChange(Sender: TObject); var i: Integer; MnuItem: TMenuItem; Fn: String; begin { for i := 0 to MruList.Count - 1 do begin MnuItem := MruMenuItems[i]; Fn := ExtractFileName(MruList.Items[i]); MnuItem.Caption := Format('&%d %s',[i+1,Fn]); MnuItem.Hint := MruList.Items[i]; MnuItem.Enabled := True; MnuItem.Visible := True; end; //Empty entries for i := MruList.Count to MruEntries - 1 do begin MnuItem := MruMenuItems[i]; MnuItem.Caption := ''; MnuItem.Hint := ''; MnuItem.Enabled := False; MnuItem.Visible := False; end; mnuSepAboveMru.Enabled := MruList.Count > 0; mnuSepAboveMru.Visible := MruList.Count > 0;} end; { ********************* [ CharMap event handlers ] ***************************** } procedure TEPlusForm.OnHtmlCharMapInsertText(AValue: String); var Ed: TEditor; begin //Debugln('TForm1.HtmlCharMapInsertText: AValue = ',AValue); Ed := NoteBook.CurrentEditor; if Assigned(Ed) and (AValue <> '') then begin Ed.SelText := AValue; end; end; { ******************** [ General procedures/functions ] ************************ } procedure TEPlusForm.ShowError(const Msg: String); begin MessageDlg(AppName, Msg, mtError, [mbOk], 0); end; function TEPlusForm.TryMarkSelection(const Pre, Post: String): Boolean; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Ed.MarkSelection(Pre, Post); Result := True; end else Result := False; end; { *********************** [ File handling ] *************************** } function TEPlusForm.AskFileNameOpen: String; begin OpenDialog.Filter := OpenSaveFilter; OpenDialog.FilterIndex := 0; if OpenDialog.Execute then begin Result := OpenDialog.FileName; AppOptions.MainForm.InitialDir := ExtractFileDir(OpenDialog.FileName); end else Result := EmptyStr; end; function TEPlusForm.AskFileNameOpenTemplate: String; begin OpenDialog.Filter := TemplateFilter; OpenDialog.FilterIndex := 0; if OpenDialog.Execute then begin Result := OpenDialog.FileName; AppOptions.MainForm.InitialDir := ExtractFileDir(OpenDialog.FileName); end else Result := EmptyStr; end; function TEPlusForm.AskFileNameSave(const Fn: String; const FileType: TEditorFileType): String; begin SaveDialog.Filter := OpenSaveFilter; SaveDialog.FilterIndex := 0; if (Fn <> EmptyStr) then begin SaveDialog.FileName := ExtractFileName(Fn); SaveDialog.InitialDir := ExtractFileDir(Fn); //f/SaveDialog.FilterIndex := GetFilterIndexFromFileName(SaveDialog.Filter, Fn); //f/SaveDialog.DefaultExt := GetExtensionFromFilterAtIndex(SaveDialog.Filter, SaveDialog.FilterIndex); end else begin if (FileType <> eftNone) then SaveDialog.FilterIndex := Ord(FileType); //f/SaveDialog.DefaultExt := GetExtensionFromFilterAtIndex(SaveDialog.Filter, SaveDialog.FilterIndex); end; //debugln('SaveDialog.FilterIndex = ',dbgs(SaveDialog.FilterIndex)); //debugln('SaveDialog.DefaultExt = ',SaveDialog.DefaultExt); if SaveDialog.Execute then begin Result := SaveDialog.FileName; AppOptions.MainForm.InitialDir := ExtractFileDir(SaveDialog.FileName); end else Result := EmptyStr; end; function TEPlusForm.AskFileNameSaveTemplate: String; begin SaveDialog.Filter := TemplateFilter; SaveDialog.FilterIndex := 0; if SaveDialog.Execute then begin Result := SaveDialog.FileName; AppOptions.MainForm.InitialDir := ExtractFileDir(SaveDialog.FileName); end else Result := EmptyStr; end; function TEPlusForm.TryFileOpen(const Fn: String; const AsTemplate: Boolean = False): Boolean; var Ed: TEditor; begin //Return False only on Errors {if not IsASCIIFileUtf8(Fn) then begin if MessageDlg(AppName, Format(msgFileIsNotText,[Fn]), mtConfirmation, [mbYes, mbNo], 0, mbNo) <> mrYes then begin Result := True; //not an Error Exit; end; end;} Ed := NoteBook.AddPage; if Assigned(Ed) then begin try Ed.LoadFromFileUtf8(Fn, AsTemplate); //OnEditorStatusChange(Ed, scAll); MruList.Add(Fn); Result := True; except Result := False; //OnEditorStatusChange(nil, scAll); end; end else Result := False; end; function TEPlusForm.TryFileSave(Editor: TEditor; Fn: String): TIoResult; begin if Assigned(Editor) then begin if (Fn = EmptyStr) then begin Fn := AskFileNameSave(EmptyStr, Editor.FileType); if (Fn = EmptyStr) then Exit(IoCancel); end; try Editor.SaveToFileUtf8(Fn); //OnEditorStatusChange(Editor, scAll); MruList.Add(Fn); Result := IoSuccess; except Result := IoFail; //OnEditorStatusChange(nil, scAll); end; end else Result := IoFail; end; function TEPlusForm.CloseCurrentEditor: Boolean; var Idx: Integer; begin if (NoteBook.PageCount = 0) then Exit(True); Idx := NoteBook.ActivePageIndex; Result := NoteBook.ClosePage(Idx); end; function TEPlusForm.TryFileSaveAll(out Failures: String): Boolean; var i: Integer; Ed: TEditor; Success: Boolean; begin Result := True; Failures := ''; for i := 0 to NoteBook.PageCount - 1 do begin Ed := NoteBook.EditorAtPage(i); if Assigned(Ed) then begin if Ed.Modified or (Ed.FileName = EmptyStr) then //TryFileSave will prompt for a filename if necessary begin Success := TryFileSave(Ed, Ed.FileName) = IoSuccess; //Debugln('TryFileSaveAll: i = ',dbgs(i),' Caption = ',NoteBook.Pages[i].Caption,' Success = ',dbgs(success)); if not Success then Failures := Failures + NoteBook.Pages[i].Caption + LineEnding; Result := Result and Success; end; end; end; end; procedure TEPlusForm.DoFileOpen; var Fn: String; begin Fn := AskFileNameOpen; if (Fn = EmptyStr) then Exit; if FileExistsUtf8(Fn) then begin if not TryFileOpen(Fn, False) then ShowError(Format(msgOpenError,[Fn])); end else ShowError(Format(msgFileNotFound,[Fn])); end; procedure TEPlusForm.DoMruOpen(const Index: Integer); var Fn: String; begin if (Index < 0) or (Index > MruList.Count - 1) then begin ShowError(Format(msgMruIndexOutOfBound,[Index])); end; Fn := MruList.Strings[Index]; if (Fn <> '') then begin if not TryFileOpen(Fn, False) then ShowError(Format(msgOpenError,[Fn])); end end; procedure TEPlusForm.DoTemplateOpen; var Fn: String; begin Fn := AskFileNameOpenTemplate; if (Fn = EmptyStr) then Exit; if FileExistsUtf8(Fn) then begin if not TryFileOpen(Fn, True) then ShowError(Format(msgOpenError,[Fn])); end else ShowError(Format(msgFileNotFound,[Fn])); end; procedure TEPlusForm.DoFileSave(Editor: TEditor); begin if Assigned(Editor) then begin if (TryFileSave(Editor, Editor.FileName) = IoFail) then ShowError(Format(msgSaveError,[Editor.FileName])); end; end; procedure TEPlusForm.DoFileSaveAs(Editor: TEditor); var Fn: String; begin if Assigned(Editor) then begin Fn := AskFileNameSave(Editor.FileName, Editor.FileType); if (Fn <> EmptyStr) then begin if (TryFileSave(Editor, Fn) = IoFail) then ShowError(Format(msgSaveError,[Fn])); end; end; end; procedure TEPlusForm.DoFileSaveAsTemplate(Editor: TEditor); var Fn: String; begin if Assigned(Editor) then begin Fn := AskFileNameSaveTemplate; if (Fn <> EmptyStr) then begin if (TryFileSave(Editor, Fn) = IoFail) then ShowError(Format(msgSaveError,[Fn])); end; end; end; procedure TEPlusForm.DoFileSaveAll; var S: String; begin if NoteBook.PageCount = 0 then Exit; if not TryFileSaveAll(S) then begin S := Trim(S); //get rid of trailing LineEndings ShowError(Format(msgSaveAllError,[S])); end; end; procedure TEPlusForm.DoFileNewByType(const AFileType: TEditorFileType; const InitialText: String = ''); var Ed: TEditor; begin Ed := NoteBook.AddPage; if Assigned(Ed) then begin Ed.FileType := AFileType; if (InitialText <> EmptyStr) then Ed.TextBetweenPoints[Point(0,0),Point(0,0)] := InitialText else Ed.Modified := False; end; end; procedure TEPlusForm.DoFileNewHtml; begin if NewHtmlDlg.Execute then DoFileNewByType(eftHtml, NewHtmlDlg.Text); end; procedure TEPlusForm.FileOpenInBrowser; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if (Ed.FileName = EmptyStr) then begin ShowError(msgFileHasNoName); Exit; end; if not (Ed.FileType in [eftHtml, eftXml]) then begin if (MessageDlg(AppName, msgFileTypeNotForBrowser, mtConfirmation, [mbYes,mbNo], 0, mbNo) <> mrYes) then Exit; end; if not OpenUrl(Ed.FileName) then ShowError(Format(msgErrorBrowser, [Ed.FileName])); end; end; { ********************* [ Edit ] ********************************* } procedure TEPlusForm.EditUndo; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if Ed.CanUndo then Ed.Undo; end; end; procedure TEPlusForm.EditRedo; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if Ed.CanRedo then Ed.Redo; end; end; procedure TEPlusForm.EditCopy; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if not Ed.SelAvail then Ed.SelectWord; Ed.CopyToClipboard; end; end; procedure TEPlusForm.EditPaste; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Ed.PasteFromClipboard; end; end; procedure TEPlusForm.EditCut; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if Ed.SelAvail then Ed.CutToClipboard; end; end; procedure TEPlusForm.EditSelectAll; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Ed.SelectAll; end; end; procedure TEPlusForm.EditFind; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin FindDialog.Execute; end; end; procedure TEPlusForm.EditFindNext; var sOpt: TSynSearchOptions; Ed: TEditor; begin if (FindText = EmptyStr) then Exit; Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin sOpt := FindOptions; sOpt := sOpt - [ssoBackWards]; if Ed.SearchReplace(FindText,'',sOpt) = 0 then ShowError(Format(msgTextNotFound,[FindText])); end; end; procedure TEPlusForm.EditFindPrevious; var sOpt: TSynSearchOptions; Ed: TEditor; begin if (FindText = EmptyStr) then Exit; Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin sOpt := FindOptions; sOpt := sOpt + [ssoBackWards]; if Ed.SearchReplace(FindText,'',sOpt) = 0 then ShowError(Format(msgTextNotFound,[FindText])); end; end; procedure TEPlusForm.EditReplace; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin ReplaceDialog.Execute; end; end; procedure TEPlusForm.EditPasteTableContentTab; var Ed: TEditor; TabbedText: String; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin TabbedText := ClipBoard.AsText; if (TabbedText <> EmptyStr) then Ed.SelText := TabbedTextToHtmlTableContent(TabbedText); end; end; procedure TEPlusForm.DoFind(Sender: TObject); var Ed: TEditor; Dlg: TFindDialog; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Dlg := (Sender as TFindDialog); ReplaceOptions := []; if not (frDown in Dlg.Options) then ReplaceOptions := ReplaceOptions + [ssoBackWards]; //if frFindNext in Options then sOptions := sOptions + []; if frMatchCase in Dlg.Options then ReplaceOptions := ReplaceOptions + [ssoMatchCase]; //if frReplace in Options then sOptions := sOptions + []; //if frReplaceAll in Options then sOptions := sOptions + []; if frWholeWord in Dlg.Options then ReplaceOptions := ReplaceOptions + [ssoWholeWord]; FindText := Dlg.FindText; if Ed.SearchReplace(FindText,'',FindOptions) = 0 then ShowError(Format(msgTextNotFound,[FindText])); end; end; procedure TEPlusForm.DoReplace(Sender: TObject); var Ed: TEditor; Dlg: TReplaceDialog; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Dlg := (Sender as TReplaceDialog); FindOptions := []; if not (frDown in Dlg.Options) then FindOptions := FindOptions + [ssoBackWards]; if frMatchCase in Dlg.Options then FindOptions := FindOptions + [ssoMatchCase]; if frWholeWord in Dlg.Options then FindOptions := FindOptions + [ssoWholeWord]; if frReplace in Dlg.Options then ReplaceOptions := ReplaceOptions + [ssoReplace]; if frReplaceAll in Dlg.Options then ReplaceOptions := ReplaceOptions + [ssoReplaceAll]; if frFindNext in Dlg.Options then ReplaceOptions := ReplaceOptions - [ssoReplace,ssoReplaceAll]; if Ed.SelAvail then ReplaceOptions := ReplaceOptions + [ssoSelectedOnly]; FindText := Dlg.FindText; ReplaceText := Dlg.ReplaceText; if Ed.SearchReplace(FindText,ReplaceText,ReplaceOptions) = 0 then ShowError(Format(msgTextNotFound,[FindText])) else if (ssoReplace in ReplaceOptions) and not (ssoReplaceAll in ReplaceOptions) then begin ReplaceOptions := ReplaceOptions - [ssoReplace]; Ed.SearchReplace(FindText,'',ReplaceOptions); //Search and select next occurence end; end; end; { **************************** [ Insert ] ************************** } procedure TEPlusForm.InsertAnchor; var Ed: TEditor; SStart, SLen: Integer; OldSelMode: TSynSelectionMode; OldDescr, NewDescr: String; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin OldDescr := Ed.SelText; AnchorDlg.Description := OldDescr; if AnchorDlg.Execute then begin NewDescr := AnchorDlg.Description; if (OldDescr <> NewDescr) then begin OldSelMode := Ed.SelectionMode; Ed.SelectionMode := smNormal; //save SelStart SStart := Ed.SelStart; Ed.SelText := NewDescr; SLen := Utf8Length(NewDescr); //Select inserted text Ed.SelStart := SStart; Ed.SelEnd := SStart + SLen; Ed.SelectionMode := OldSelMode; end; //Add html tags Ed.MarkSelection(AnchorDlg.LinkRef, anchor_end) end; end; end; procedure TEPlusForm.InsertPicture; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if PictureDlg.Execute then begin Ed.BlockEnd := Ed.BlockBegin; Ed.SelText := Img(PictureDlg.FileName, PictureDlg.DomId, PictureDlg.DomClass, PictureDlg.FloatStyle, PictureDlg.PicWidth, PictureDlg.PicHeight, PictureDlg.Alt, PictureDlg.Title); end; end; end; procedure TEPlusForm.InsertTable; var Ed: TEditor; TableText: String; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if TableDlg.Execute then begin TableText := CreateTable(TableDlg.DomId, TableDlg.DomClass, TableDlg.Summary, TableDlg.ColCount, TableDlg.RowCount); Ed.SelEnd := Ed.SelStart; Ed.Seltext := TableText; end; end; end; procedure TEPlusForm.InsertSpecialChars; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin HtmlCharMapDlg.Execute; end; end; procedure TEPlusForm.InsertSpecial(const AValue: String); var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Ed.SelText := AValue; end; end; { *************************** [ Layout ] **************************** } procedure TEPlusForm.LayoutHeading(const Level: Integer); begin if not (Level in [1..6]) then Exit; TryMarkSelection(Format('',[Level]),Format('',[Level])); end; { ************************** [ View ] ********************************* } procedure TEPlusForm.SetHighlighter(const AFileType: TEditorFileType); var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin //debugln('Setting Highlighter to ',eftNames[AFileType]); Ed.SetHighlighterByFileType(AFileType, True); end; end; procedure TEPlusForm.EditorSelectFont; var EO: TEditorOptions; begin if Assigned(NoteBook.CurrentEditor) then begin EO := NoteBook.EditorOptions; FontDialog.Font.Name := EO.FontName; FontDialog.Font.Size := EO.FontSize; if FontDialog.Execute then begin EO.FontName := FontDialog.Font.Name; EO.FontSize := FontDialog.Font.Size; NoteBook.EditorOptions := EO; end; end; end; procedure TEPlusForm.EditorFontSizeUp; var EO: TEditorOptions; begin if Assigned(NoteBook.CurrentEditor) then begin EO := NoteBook.EditorOptions; EO.FontSize := EO.FontSize + 2; NoteBook.EditorOptions := EO; end; end; procedure TEPlusForm.EditorFontSizeDown; var EO: TEditorOptions; begin if Assigned(NoteBook.CurrentEditor) then begin EO := NoteBook.EditorOptions; EO.FontSize := EO.FontSize - 2; if EO.FontSize < 0 then EO.FontSize := 2; NoteBook.EditorOptions := EO; end; end; { ************************** [ About ] *********************** } procedure TEPlusForm.AboutEPlus; {var Dlg: TExtAboutDlg;} begin { Dlg := TExtAboutDlg.Create; try Dlg.Caption := AboutTitle; Dlg.ProductName := AppName; Dlg.Version := AppVersion; Dlg.CopyrightStatement := CopyLeftStatement; Dlg.WebsiteCaption := AuthorWebName; Dlg.WebsiteURL := AuthorWebUrl; Dlg.LicenseText := LicenseText; Dlg.LicenseWebsiteCaption := LicenseName; Dlg.LicenseWebsiteURL := LicenseUrl; Dlg.Top := Top + 20; Dlg.Left := Left + 20; Dlg.Execute; finally Dlg.Free; end;} end; end.