unit main; { LazEdit: 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. and Felipe Monteiro de Carvalho http://wiki.lazarus.freepascal.org/LazEdit 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 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, LCLProc, Menus, ActnList, ClipBrd, LclIntf, LMessages, {for overridden IsShortCut} SynEdit, SynEditTypes, EditorPageControl, lazedit_config, HtmlCode, HtmlDialogs, lazedit_constants, lazedit_translations, lazedit_about, mrulists; type TIoResult = (ioSuccess, ioFail, ioCancel); { TLazEditMainForm } TLazEditMainForm = 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; mnuToolbarsHTML: TMenuItem; mnuToolsToolbars: TMenuItem; mnuToolbarsMain: TMenuItem; mnuInsertSep2: TMenuItem; mnuToolsLanguage: TMenuItem; mnuLanguageEnglish: TMenuItem; mnuLanguageDutch: TMenuItem; mnuLanguagePortuguese: TMenuItem; mnuTools: 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; mnuEditPasteSpecial: TMenuItem; mnuEditPasteTableContentTab: TMenuItem; mnuEditSelectAll: TMenuItem; mnuSep12: TMenuItem; mnuEditReplace: TMenuItem; mnuEditFindNext: TMenuItem; mnuEditFind: TMenuItem; //Insert menu mnuHTMLTools: 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 FindReplaceDialogClose(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); procedure HandleToolbarsMenuClick(Sender: TObject); procedure mnuLanguageChangeClick(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 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; public { private declarations } NoteBook: TEditorPageControl; OpenSaveFilter: String; TemplateFilter: String; ConfigFileName: String; ConfigFileDir: String; FindText: String; ReplaceText: String; FindOptions: TSynSearchOptions; ReplaceOptions: TSynSearchOptions; AppOptions: TLazEditOptions; MruList: TMruList; MruMenuItems: Array[0..MruEntries-1] of TMenuItem; procedure SetUpAndConfigureLazEdit; procedure DoTranslateAll; procedure DoTranslateMenus; procedure DoTranslatePopUpMenus; procedure DoTranslateHints; procedure SaveEplusConfiguration; procedure CleanUp; function GetDefaultAppOptions: TLazEditOptions; procedure ApplyAppOptions(const Options: TLazEditOptions); procedure GatherAppOptions(var Options: TLazEditOptions); procedure TagMenuItemsAndActions; procedure UpdateMenuItems; procedure CreateMruMenuItemsArray; function TryHlMenuTagToFileType(ATag: PtrInt; out AFileType: TEditorFileType): Boolean; function TryLangMenuTagToLangId(ATag: PtrInt; out ALangId: TLanguageIds): Boolean; function FileTypeToFilterIndex(const Index: TEditorFileType): Integer; procedure ConstructOpenDialogFileFilters; procedure ShowError(const Msg: String); //Helper functions for editor; function TryMarkSelection(const Pre, Post: String): Boolean; public //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 AboutLazEdit; 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 LazEditMainForm: TLazEditMainForm; implementation {$R *.lfm} const pXY = 0; //Panels constanten pMod = 1; pIns = 2; pName = 3; tgNeedsEditor = $01; tgNeedsSelection = $02; tgNeedsClipPaste = $04; //Initial text for FileNew commands itXml = ''; itBat = '@echo off'; itUnixShellScript = '#!/bin/bash'; //Commandline options opt_long_prefix = '--'; opt_short_prefix = '-'; opt_long_PCP = 'pcp'; //--pcp=path/to/configfile opt_short_blankpage = 'n'; { TLazEditMainForm } { ************************** [ Form event handlers] ***********************************} procedure TLazEditMainForm.FormCreate(Sender: TObject); begin SetUpAndConfigureLazEdit; DoTranslateAll(); end; procedure TLazEditMainForm.FormDestroy(Sender: TObject); begin CleanUp; end; procedure TLazEditMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin SaveEplusConfiguration; end; procedure TLazEditMainForm.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 TLazEditMainForm.FormDropFiles(Sender: TObject; const FileNames: array of String); var i: Integer; begin debugln('DropFiles'); 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(vTranslations.msgFileNotFound,[FileNames[i]])); end; end; procedure TLazEditMainForm.FormShow(Sender: TObject); begin //This needs to be done only after the mainform has become visible on the screen Application.QueueAsyncCall(@ParseCommandLineFileNames, 0); end; procedure TLazEditMainForm.HandleToolbarsMenuClick(Sender: TObject); var lMenuItem: TMenuItem; lToolbar: TToolBar; begin lMenuItem := Sender as TMenuItem; lMenuItem.Checked := not lMenuItem.Checked; if lMenuItem = mnuToolbarsMain then lToolbar := MainToolbar else lToolbar := HTMLToolbar; lToolbar.Visible := lMenuItem.Checked; end; procedure TLazEditMainForm.mnuLanguageChangeClick(Sender: TObject); var ALangId: TLanguageIds; begin if TryLangMenuTagToLangId((Sender as TMenuItem).Tag, ALangId) then begin vTranslations.TranslateToLanguageID(ALangId); DoTranslateAll(); end else debugln(Format('Error: Invalid tag for MenuItem %s: %x',[(Sender as TMenuItem).Name,(Sender as TMenuItem).Tag]));; end; { ********************** [ Menu OnClick Handlers ] ************************ } procedure TLazEditMainForm.mnuFileOpenInBrowserClick(Sender: TObject); begin FileOpenInBrowser; end; procedure TLazEditMainForm.mnuEditPasteTableContentTabClick(Sender: TObject); begin EditPasteTableContentTab; end; procedure TLazEditMainForm.mnuInsertCssStyleClick(Sender: TObject); begin TryMarkSelection(style_start, style_end); end; procedure TLazEditMainForm.mnuInsertHtmlCommentClick(Sender: TObject); begin TryMarkSelection(comment_start, comment_end); end; procedure TLazEditMainForm.mnuInsertJSClick(Sender: TObject); begin TryMarkSelection(script_start, script_end); end; procedure TLazEditMainForm.mnuInsertSpecialCharsClick(Sender: TObject); begin InsertSpecialChars; end; procedure TLazEditMainForm.mnuInsertTableCellClick(Sender: TObject); begin TryMarkSelection(col_start, col_end); end; procedure TLazEditMainForm.mnuInsertTableRowClick(Sender: TObject); begin TryMarkSelection(row_start, row_end); end; procedure TLazEditMainForm.mnuInsertWordDefinitionClick(Sender: TObject); begin TryMarkSelection(worddef_start, worddef_end); end; procedure TLazEditMainForm.mnuInsertWordListClick(Sender: TObject); begin TryMarkSelection(wordlist_start, wordlist_end); end; procedure TLazEditMainForm.mnuInsertWordTermClick(Sender: TObject); begin TryMarkSelection(wordterm_start, wordterm_end); end; procedure TLazEditMainForm.mnuLayoutBlockQuoteClick(Sender: TObject); begin TryMarkSelection(blockquote_start, blockquote_end); end; procedure TLazEditMainForm.mnuLayoutCodeClick(Sender: TObject); begin TryMarkSelection(code_start, code_end); end; procedure TLazEditMainForm.mnuLayoutPreformattedClick(Sender: TObject); begin TryMarkSelection(pre_start, pre_end); end; procedure TLazEditMainForm.mnuLayoutQuoteClick(Sender: TObject); begin TryMarkSelection(quote_start, quote_end); end; procedure TLazEditMainForm.mnuViewFontClick(Sender: TObject); begin EditorSelectFont; end; procedure TLazEditMainForm.mnuViewFontsizeDownClick(Sender: TObject); begin EditorFontSizeDown; end; procedure TLazEditMainForm.mnuViewFontSizeUpClick(Sender: TObject); begin EditorFontSizeUp; end; procedure TLazEditMainForm.TopLevelMenuClick(Sender: TObject); begin UpdateMenuItems; end; procedure TLazEditMainForm.mnuEditCutClick(Sender: TObject); begin EditCut; end; procedure TLazEditMainForm.mnuFileCloseAppClick(Sender: TObject); begin Close; end; procedure TLazEditMainForm.mnuFileCloseCurrentClick(Sender: TObject); begin CloseCurrentEditor; end; procedure TLazEditMainForm.mnuFileSaveAsClick(Sender: TObject); begin DoFileSaveAs(NoteBook.CurrentEditor); end; procedure TLazEditMainForm.mnuFindNextClick(Sender: TObject); begin EditFindNext; end; procedure TLazEditMainForm.mnuFileNewBatClick(Sender: TObject); begin DoFileNewByType(eftBat, itBat); end; procedure TLazEditMainForm.mnuFileNewHtmlClick(Sender: TObject); begin DoFileNewHtml; end; procedure TLazEditMainForm.mnuFileNewCClick(Sender: TObject); begin DoFileNewByType(eftC); end; procedure TLazEditMainForm.mnuFileNewCssClick(Sender: TObject); begin DoFileNewByType(eftCss); end; procedure TLazEditMainForm.mnuFileNewFpcClick(Sender: TObject); begin DoFileNewByType(eftFpc); end; procedure TLazEditMainForm.mnuFileNewIniClick(Sender: TObject); begin DoFileNewByType(eftIni); end; procedure TLazEditMainForm.mnuFileNewJSClick(Sender: TObject); begin DoFileNewByType(eftJS); end; procedure TLazEditMainForm.mnuFileNewPerlClick(Sender: TObject); begin DoFileNewByType(eftPerl); end; procedure TLazEditMainForm.mnuFileNewPhpClick(Sender: TObject); begin DoFileNewByType(eftPerl); end; procedure TLazEditMainForm.mnuFileNewPyClick(Sender: TObject); begin DoFileNewByType(eftPy); end; procedure TLazEditMainForm.mnuFileNewShellScriptClick(Sender: TObject); begin DoFileNewByType(eftUnixShell, itUnixShellScript); end; procedure TLazEditMainForm.mnuFileNewXmlClick(Sender: TObject); begin DoFileNewByType(eftXml, itXml); end; procedure TLazEditMainForm.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 TLazEditMainForm.mnuEditRedoClick(Sender: TObject); begin EditRedo; end; procedure TLazEditMainForm.mnuEditReplaceClick(Sender: TObject); begin EditReplace; end; procedure TLazEditMainForm.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 TLazEditMainForm.mnuEditSelectAllClick(Sender: TObject); begin EditSelectAll; end; procedure TLazEditMainForm.mnuEditUndoClick(Sender: TObject); begin EditUndo; end; { ******************** [Action OnExecute Handlers ] *********************** } procedure TLazEditMainForm.acFileOpenExecute(Sender: TObject); begin DoFileOpen; end; procedure TLazEditMainForm.acFileSaveAllExecute(Sender: TObject); begin DoFileSaveAll; end; procedure TLazEditMainForm.acFileNewFromTemplateExecute(Sender: TObject); begin DoTemplateOpen; end; procedure TLazEditMainForm.acAboutExecute(Sender: TObject); begin AboutLazEdit; end; procedure TLazEditMainForm.acEditFindNextExecute(Sender: TObject); begin EditFindNext; end; procedure TLazEditMainForm.acEditFindPreviousExecute(Sender: TObject); begin EditFindPrevious; end; procedure TLazEditMainForm.acInsertAmpersandExecute(Sender: TObject); begin InsertSpecial(Ampersand); end; procedure TLazEditMainForm.acInsertAnchorExecute(Sender: TObject); begin InsertAnchor; end; procedure TLazEditMainForm.acInsertCopyrightExecute(Sender: TObject); begin InsertSpecial(CopyRight); end; procedure TLazEditMainForm.acInsertGreaterExecute(Sender: TObject); begin InsertSpecial(Greater); end; procedure TLazEditMainForm.acInsertLesserExecute(Sender: TObject); begin InsertSpecial(Lesser); end; procedure TLazEditMainForm.acInsertLineBreakExecute(Sender: TObject); begin InsertSpecial(LineBreak); end; procedure TLazEditMainForm.acInsertListItemExecute(Sender: TObject); begin TryMarkSelection(listitem_start, listitem_end); end; procedure TLazEditMainForm.acInsertNbSpaceExecute(Sender: TObject); begin InsertSpecial(NbSpace); end; procedure TLazEditMainForm.acInsertOlistExecute(Sender: TObject); begin TryMarkSelection(numberedlist_start, numberedlist_end); end; procedure TLazEditMainForm.acInsertPictureExecute(Sender: TObject); begin InsertPicture; end; procedure TLazEditMainForm.acInsertTableExecute(Sender: TObject); begin InsertTable; end; procedure TLazEditMainForm.acInsertTradeMarkExecute(Sender: TObject); begin InsertSpecial(TradeMark); end; procedure TLazEditMainForm.acInsertUListExecute(Sender: TObject); begin TryMarkSelection(unnumberedlist_start, unnumberedlist_end); end; procedure TLazEditMainForm.acLayoutAlignCenterExecute(Sender: TObject); begin TryMarkSelection(centeralign_start, centeralign_end); end; procedure TLazEditMainForm.acLayoutAlignJustifyExecute(Sender: TObject); begin TryMarkSelection(justifyalign_start, justifyalign_end); end; procedure TLazEditMainForm.acLayoutAlignLeftExecute(Sender: TObject); begin TryMarkSelection(leftalign_start, leftalign_end); end; procedure TLazEditMainForm.acLayoutAlignRightExecute(Sender: TObject); begin TryMarkSelection(rightalign_start, rightalign_end); end; procedure TLazEditMainForm.acLayoutBoldExecute(Sender: TObject); begin TryMarkSelection(bold_start, bold_end); end; procedure TLazEditMainForm.acGroupingDivExecute(Sender: TObject); begin TryMarkSelection(div_start, div_end); end; procedure TLazEditMainForm.acLayoutEmphasisExecute(Sender: TObject); begin TryMarkSelection(emphasis_start, emphasis_end); end; procedure TLazEditMainForm.acLayoutH1Execute(Sender: TObject); begin LayoutHeading(1); end; procedure TLazEditMainForm.acLayoutH2Execute(Sender: TObject); begin LayoutHeading(2); end; procedure TLazEditMainForm.acLayoutH3Execute(Sender: TObject); begin LayoutHeading(3); end; procedure TLazEditMainForm.acLayoutH4Execute(Sender: TObject); begin LayoutHeading(4); end; procedure TLazEditMainForm.acLayoutH5Execute(Sender: TObject); begin LayoutHeading(5); end; procedure TLazEditMainForm.acLayoutH6Execute(Sender: TObject); begin LayoutHeading(6); end; procedure TLazEditMainForm.acLayoutItalicExecute(Sender: TObject); begin TryMarkSelection(italic_start, italic_end); end; procedure TLazEditMainForm.acGroupingParagraphExecute(Sender: TObject); begin TryMarkSelection(paragraph_start, paragraph_end); end; procedure TLazEditMainForm.acGroupingSpanExecute(Sender: TObject); begin TryMarkSelection(span_start, span_end); end; procedure TLazEditMainForm.acLayoutStrongExecute(Sender: TObject); begin TryMarkSelection(strong_start, strong_end); end; procedure TLazEditMainForm.acLayoutSubExecute(Sender: TObject); begin TryMarkSelection(sub_start, sub_end); end; procedure TLazEditMainForm.acLayoutSupExecute(Sender: TObject); begin TryMarkSelection(sup_start, sup_end); end; procedure TLazEditMainForm.acLayoutUnderlineExecute(Sender: TObject); begin TryMarkSelection(underline_start, underline_end); end; procedure TLazEditMainForm.FindReplaceDialogClose(Sender: TObject); begin Self.BringToFront; end; procedure TLazEditMainForm.acEditCopyExecute(Sender: TObject); begin EditCopy; end; procedure TLazEditMainForm.acEditFindExecute(Sender: TObject); begin EditFind; end; procedure TLazEditMainForm.acEditPasteExecute(Sender: TObject); begin EditPaste; end; procedure TLazEditMainForm.acFileNewPlainExecute(Sender: TObject); begin DoFileNewByType(eftNone); end; procedure TLazEditMainForm.acFileSaveExecute(Sender: TObject); begin DoFileSave(NoteBook.CurrentEditor); end; { ********************** [ Form Methods ] ***************************** } function TLazEditMainForm.IsShortcut(var Message: TLMKey): boolean; begin if Active then Result := inherited IsShortcut(Message) else Result := False; end; { ********************** [ Initializing and cleaning up ] ************* } procedure TLazEditMainForm.SetUpAndConfigureLazEdit; 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); 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; NoteBook.EditorPopUpMenu := EditorPopupMenu; //Creating dialogs HtmlCharMapDlg := THtmlCharMapDlg.Create; HtmlCharMapDlg.OnHtmlCharClick := @OnHtmlCharMapInsertText; NewHtmlDlg := TNewHtmlDlg.Create; AnchorDlg := TAnchorDlg.Create; PictureDlg := TPictureDlg.Create; TableDlg := TTableDlg.Create; //MruList MruList := TMruList.Create(Self); MruList.MaxEntries := MruEntries; //Configurable options AppOptions := GetDefaultAppOptions; if not LoadOptions(AppOptions, ConfigFileName) then DebugLn('Error loading options',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 TLazEditMainForm.DoTranslateAll; begin DoTranslateMenus(); DoTranslateHints(); end; procedure TLazEditMainForm.DoTranslateMenus; begin { MENUS } { mnuAbout: TMenuItem; mnuViewFont: TMenuItem;} //File menu mnuFile.Caption := vTranslations.mnuFile; mnuFileOpen.Caption := vTranslations.mnuFileOpen; mnuFileNewFromTemplate.Caption := vTranslations.mnuFileNewFromTemplate; mnuFileNew.Caption := vTranslations.mnuFileNew; mnuFileNewText.Caption := vTranslations.mnuFileNewText; { 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.Caption := vTranslations.mnuFileSave; mnuFileSaveAs.Caption := vTranslations.mnuFileSaveAs; mnuFileSaveAll.Caption := vTranslations.mnuFileSaveAll; mnuFileCloseCurrent.Caption := vTranslations.mnuFileCloseCurrent; //mnuSep1: TMenuItem; mnuFileOpenInBrowser.Caption := vTranslations.mnuFileOpenInBrowser; //mnuSepAboveMru: TMenuItem; mnuFileCloseApp.Caption := vTranslations.mnuFileCloseApp; //Edit menu mnuEdit.Caption := vTranslations.mnuEdit; mnuEditUndo.Caption := vTranslations.mnuEditUndo; mnuEditRedo.Caption := vTranslations.mnuEditRedo; //mnuSep11: TMenuItem; mnuEditCopy.Caption := vTranslations.mnuEditCopy; mnuEditCut.Caption := vTranslations.mnuEditCut; mnuEditPaste.Caption := vTranslations.mnuEditPaste; mnuEditPasteSpecial.Caption := vTranslations.mnuEditPasteSpecial; mnuEditPasteTableContentTab.Caption := vTranslations.mnuEditPasteTableContentTab; mnuEditSelectAll.Caption := vTranslations.mnuEditSelectAll; //mnuSep12: TMenuItem; mnuEditReplace.Caption := vTranslations.mnuEditReplace; mnuEditFindNext.Caption := vTranslations.mnuEditFindNext; mnuEditFind.Caption := vTranslations.mnuEditFind; //Popup Edit menu mnuEditPopupCopy.Caption := vTranslations.mnuEditCopy; mnuEditPopupCut.Caption := vTranslations.mnuEditCut; mnuEditPopupPaste.Caption := vTranslations.mnuEditPaste; mnuEditPopupSelectAll.Caption := vTranslations.mnuEditSelectAll; //Insert menu mnuHTMLTools.Caption := vTranslations.mnuHTMLTools; mnuInsertAnchor.Caption := vTranslations.mnuInsertAnchor; mnuInsertList.Caption := vTranslations.mnuInsertList; mnuInsertUList.Caption := vTranslations.mnuInsertUList; mnuInsertNList.Caption := vTranslations.mnuInsertNList; mnuInsertWordList.Caption := vTranslations.mnuInsertWordList; mnuInsetListItem.Caption := vTranslations.mnuInsetListItem; mnuInsertWordTerm.Caption := vTranslations.mnuInsertWordTerm; mnuInsertWordDefinition.Caption := vTranslations.mnuInsertWordDefinition; mnuInsertTable.Caption := vTranslations.mnuInsertTable; mnInsertNewTable.Caption := vTranslations.mnInsertNewTable; mnuInsertTableCell.Caption := vTranslations.mnuInsertTableCell; mnuInsertTableRow.Caption := vTranslations.mnuInsertTableRow; mnuInsertPicture.Caption := vTranslations.mnuInsertPicture; mnuInsertSpecialChars.Caption := vTranslations.mnuInsertSpecialChars; mnuInsertLineBreak.Caption := vTranslations.mnuInsertLineBreak; //mnuInsertSep1: TMenuItem; mnuInsertHtmlComment.Caption := vTranslations.mnuInsertHtmlComment; mnuInsertJS.Caption := vTranslations.mnuInsertJS; mnuInsertCssStyle.Caption := vTranslations.mnuInsertCssStyle; //Layout menu mnuLayout.Caption := vTranslations.mnuLayout; mnuLayoutBold.Caption := vTranslations.mnuLayoutBold; mnuLayoutAlignJustify.Caption := vTranslations.mnuLayoutAlignJustify; mnuLayoutItalic.Caption := vTranslations.mnuLayoutItalic; mnuLayoutUnderline.Caption := vTranslations.mnuLayoutUnderline; mnuLayoutSub.Caption := vTranslations.mnuLayoutSub; mnuLayoutSup.Caption := vTranslations.mnuLayoutSup; mnuLayoutEmphasis.Caption := vTranslations.mnuLayoutEmphasis; mnuLayoutStrong.Caption := vTranslations.mnuLayoutStrong; mnuLayoutHeadings.Caption := vTranslations.mnuLayoutHeadings; { 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.Caption := vTranslations.mnuGrouping; mnuGroupingParagraph.Caption := vTranslations.mnuGroupingParagraph; mnuGroupingDiv.Caption := vTranslations.mnuGroupingDiv; mnuGroupingSpan.Caption := vTranslations.mnuGroupingSpan; //View menu mnuView.Caption := vTranslations.mnuView; mnuViewFontsize.Caption := vTranslations.mnuViewFontsize; mnuViewFontSizeUp.Caption := vTranslations.mnuViewFontSizeUp; mnuViewFontsizeDown.Caption := vTranslations.mnuViewFontsizeDown; //mnuViewHighlighter: TMenuItem; //these menu items MUST have names that are built like this: //'mnuViewHL' + eftNames[SomeIndex] mnuViewHLeftNone.Caption := vTranslations.mnuViewHLeftNone; { 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;} // Tools mnuTools.Caption := vTranslations.mnuTools; mnuToolsLanguage.Caption := vTranslations.mnuToolsLanguage; mnuToolsToolbars.Caption := vTranslations.mnuToolsToolbars; mnuToolbarsMain.Caption := vTranslations.mnuToolbarsMain; mnuToolbarsHTML.Caption := vTranslations.mnuToolbarsHTML; end; procedure TLazEditMainForm.DoTranslatePopUpMenus; begin { //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; } end; procedure TLazEditMainForm.DoTranslateHints; begin { HINTS } NewFromTemplateBtn.Hint := vTranslations.NewFromTemplateBtn; NewPlainBtn.Hint := vTranslations.NewPlainBtn; OpenBtn.Hint := vTranslations.OpenBtn; SaveBtn.Hint := vTranslations.SaveBtn; SaveAllBtn.Hint := vTranslations.SaveAllBtn; CopyBtn.Hint := vTranslations.CopyBtn; PasteBtn.Hint := vTranslations.PasteBtn; FindBtn.Hint := vTranslations.FindBtn; InfoBtn.Hint := vTranslations.InfoBtn; AnchorBtn.Hint := vTranslations.AnchorBtn; ImageBtn.Hint := vTranslations.ImageBtn; UListBtn.Hint := vTranslations.UListBtn; NListBtn.Hint := vTranslations.NListBtn; ListItemBtn.Hint := vTranslations.ListItemBtn; TableBtn.Hint := vTranslations.TableBtn; BoldBtn.Hint := vTranslations.BoldBtn; ItalicBtn.Hint := vTranslations.ItalicBtn; UnderlineBtn.Hint := vTranslations.UnderlineBtn; EmBtn.Hint := vTranslations.EmBtn; StrongBtn.Hint := vTranslations.StrongBtn; SupBtn.Hint := vTranslations.SupBtn; SubBtn.Hint := vTranslations.SubBtn; HeadingBtn.Hint := vTranslations.HeadingBtn; LeftAlignBtn.Hint := vTranslations.LeftAlignBtn; RightAlignBtn.Hint := vTranslations.RightAlignBtn; CenterAlignBtn.Hint := vTranslations.CenterAlignBtn; JustifyAlignBtn.Hint := vTranslations.JustifyAlignBtn; ParaBtn.Hint := vTranslations.ParaBtn; DivBtn.Hint := vTranslations.DivBtn; SpanBtn.Hint := vTranslations.SpanBtn; end; procedure TLazEditMainForm.SaveEplusConfiguration; begin GatherAppOptions(AppOptions); if not lazedit_config.SaveOptions(AppOptions, ConfigFileName) then DebugLn('Error saving options:',LineEnding,' ',ConfigFileName); end; procedure TLazEditMainForm.CleanUp; begin HtmlCharMapDlg.OnHtmlCharClick := nil; HtmlCharMapDlg.Free; NewHtmlDlg.Free; AnchorDlg.Free; PictureDlg.Free; TableDlg.Free; end; { ********************** [ Configuration ] ************************** } function TLazEditMainForm.GetDefaultAppOptions: TLazEditOptions; 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 TLazEditMainForm.ApplyAppOptions(const Options: TLazEditOptions); 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; // Translation vTranslations.TranslateToLanguageID(Options.Translation); // Toolbars mnuToolbarsHTML.Checked := Options.MainForm.ToolbarHTML; HtmlToolbar.Visible := Options.MainForm.ToolbarHTML; end; procedure TLazEditMainForm.GatherAppOptions(var Options: TLazEditOptions); 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.Items[i] else Options.RecentFiles[i] := ''; end; // Translation Options.Translation := vTranslations.GetCurrentLanguageID(); // Toolbars Options.MainForm.ToolbarHTML := mnuToolbarsHTML.Checked; end; procedure TLazEditMainForm.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, AllSupportedExt: String; FileType: TEditorFileType; begin //First filter for OpenSave Filter := ''; AllSupportedExt := ''; //first "AllSupported" for FileType := Succ(Low(TEditorFileType)) to High(TEditorFileType) do AllSupportedExt := AllSupportedExt + AppOptions.FileTypeMaskList[FileType]; Filter := Filter + fiNameAllSupported + '|' + AddWilds(AllSupportedExt); //Add supported filetypes indivdually for FileType := Succ(Low(TEditorFileType)) to High(TEditorFileType) do begin //DbgOut(eftNames[FileType],' -> '); WildFilter := AddWilds(AppOptions.FileTypeMaskList[FileType]); //DebugLn(WildFilter); SubFilter := eftFilterNames[FileType] + {' (' + WildFilter + ')}'|'+ WildFilter; Filter := Filter + '|' + SubFilter; end; //Add Text files Filter := Filter + '|' + fiNameText + '|'+ fiMaskText; WildFilter := AddWilds(AppOptions.TemplateMaskList); //Add template filter Filter := Filter + '|' + STemplate + {' (' + WildFilter + ')}'|' + WildFilter; Filter := Filter + '|' + fiNameAll + '|' + AllFilesMask; 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 TLazEditMainForm.ParseCommandlineFilenames(Dummy: PtrInt); var i, Count: Integer; S: String; begin //debugln('TLazEditMainForm.ParseCommandlineFilenames'); if Dummy = 12345 then Exit; //Get rid of annoying hint Count := 0; {$ifndef darwin} for i := 1 to ParamCount do begin S := ParamStrUtf8(i); if not ((Utf8Pos(opt_short_prefix, S) = 1) or (Utf8Pos(opt_long_prefix, S) = 1)) then begin //It seems to be not an option, treat it as a filename Inc(Count); 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(vTranslations.msgOpenError,[S])); end else ShowError(Format(vTranslations.msgFileNotFound,[S])); end; end; //Start with blank page if no files are specified on commandline if (Count = 0) then {$endif} //and do this by default on darwin, since we cannot specify -n on commandline for app bundle DoFileNewByType(eftNone); end; procedure TLazEditMainForm.ParseCommandLineSwitches; var S, _PCP: String; i: Integer; begin //debugln('TLazEditMainForm.ParseCommandlineSwitches'); {$ifndef darwin} _PCP := EmptyStr; for i := 1 to ParamCount do begin S := ParamStrUtf8(i); if Utf8Pos(opt_long_prefix+opt_long_pcp+'=', S) = 1 then begin _PCP := S; System.Delete(_PCP, 1, Length(opt_long_prefix) + Length('=')); Break; end; end; if (_PCP <> EmptyStr) then begin _PCP := ExcludeTrailingPathdelimiter(ExpandFileName(_PCP)); //MyGetOpt returns parameters as UTF8 //inifiles uses system-encoding ConfigFileDir := Utf8ToSys(_PCP); end; {$endif} end; { ***************** [ Menu-related Helper functions/procedures ] ************************ } procedure TLazEditMainForm.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 TLazEditMainForm.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; function TLazEditMainForm.TryLangMenuTagToLangId(ATag: PtrInt; out ALangId: TLanguageIds): Boolean; begin ATag := ATag and $FF0000; ATag := ATag shr 16; Result := (ATag >= Ord(Low(TLanguageIds))) and (ATag <= Ord(High(TLanguageIds))); if Result then ALangId := TLanguageIds(ATag); end; function TLazEditMainForm.FileTypeToFilterIndex(const Index: TEditorFileType ): Integer; const OffSet = fiEftFirst - 1; begin if Index > eftNone then Result := Ord(Index) + OffSet else Result := fiAll; end; procedure TLazEditMainForm.TagMenuItemsAndActions; var i: Integer; C: TComponent; N: TComponentName; //NE: Boolean; //NS: Boolean; Index: TEditorFileType; LangId: TLanguageIds; 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 C.Tag := 0; //initialize all Tags to 0 //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; if Pos('MNULANGUAGE', Uppercase(N)) > 0 then begin for LangId := Low(TLanguageIds) to High(TLanguageIds) do begin if ('MNULANGUAGE' + Uppercase(MenuLangNameSuffixes[LangId])= Uppercase(N)) then begin C.Tag := C.Tag or (Ord(LangId) shl 16); 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; mnuHTMLTools.Tag := 0; mnuGrouping.Tag := 0; mnuView.Tag := 0; mnuAbout.Tag := 0; { if (C is TMenuItem) or (C is TAction) then //if (C = mnuLanguageEnglish) or (C = mnuLanguageDutch) or (C = mnuLanguagePortuguese) 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 TLazEditMainForm.UpdateMenuItems; var i: Integer; C: TComponent; HasEditor, HasSelection, HasClipPaste: Boolean; NeedsEditor, NeedsSelection, NeedsClipPaste: Boolean; AFileType: TEditorFileType; Ed: TEditor; begin Ed := NoteBook.CurrentEditor; HasEditor := Assigned(Ed); 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)); if HasEditor and (Pos('MNUVIEWHL', UpperCase(C.Name)) = 1) then begin if TryHlMenuTagToFileType(C.Tag, AFileType) then TMenuItem(C).Checked := Ed.FileType = AFileType else TMenuItem(C).Checked := False; end; end; end; end; { ******************** [ NoteBook / Editor event handlers ] ************************ } procedure TLazEditMainForm.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(vTranslations.msgModifiedSave,[Fn]), mtConfirmation, [mbYes,mbNo,mbCancel], 0); case Res of mrNo: Cancel := False; mrCancel: Cancel := True; mrYes: Cancel := (TryFileSave(Ed, Ed.FileName) <> IoSuccess); end; end; end; end; procedure TLazEditMainForm.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',[vTranslations.SLine,Line,vTranslations.SCol,Col]); end; if (scModified in Changes) then begin if Modified then StatusBar.Panels[pMod].Text := vTranslations.SModified else StatusBar.Panels[pMod].Text := ''; end; if (scInsertMode in Changes) then begin if InsertMode then StatusBar.Panels[pIns].Text := vTranslations.SIns else StatusBar.Panels[pIns].Text := vTranslations.SOvr; end; if (scFileName in Changes) then begin StatusBar.Panels[pName].Text := FileName; end; end; end; procedure TLazEditMainForm.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 TLazEditMainForm.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 TLazEditMainForm.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 TLazEditMainForm.ShowError(const Msg: String); begin MessageDlg(AppName, Msg, mtError, [mbOk], 0); end; function TLazEditMainForm.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 TLazEditMainForm.AskFileNameOpen: String; begin OpenDialog.Filter := OpenSaveFilter; OpenDialog.FilterIndex := fiAllSupported; if OpenDialog.Execute then begin Result := OpenDialog.FileName; AppOptions.MainForm.InitialDir := ExtractFileDir(OpenDialog.FileName); end else Result := EmptyStr; end; function TLazEditMainForm.AskFileNameOpenTemplate: String; begin OpenDialog.Filter := TemplateFilter; OpenDialog.FilterIndex := fiTemplates; if OpenDialog.Execute then begin Result := OpenDialog.FileName; AppOptions.MainForm.InitialDir := ExtractFileDir(OpenDialog.FileName); end else Result := EmptyStr; end; function TLazEditMainForm.AskFileNameSave(const Fn: String; const FileType: TEditorFileType): String; begin SaveDialog.Filter := OpenSaveFilter; SaveDialog.FilterIndex := fiAllSupported; if (Fn <> EmptyStr) then begin SaveDialog.FileName := ExtractFileName(Fn); SaveDialog.InitialDir := ExtractFileDir(Fn); //SaveDialog.FilterIndex := GetFilterIndexFromFileName(SaveDialog.Filter, Fn); SaveDialog.FilterIndex := FileTypeToFilterIndex(ExtToFileType(ExtractFileExt(Fn),AppOptions.FileTypeMaskList)); //SaveDialog.DefaultExt := GetExtensionFromFilterAtIndex(SaveDialog.Filter, SaveDialog.FilterIndex); SaveDialog.DefaultExt := EmptyStr; end else begin if (FileType <> eftNone) then SaveDialog.FilterIndex := FileTypeToFilterIndex(FileType); //SaveDialog.DefaultExt := GetExtensionFromFilterAtIndex(SaveDialog.Filter, SaveDialog.FilterIndex); SaveDialog.DefaultExt := EmptyStr; 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 TLazEditMainForm.AskFileNameSaveTemplate: String; begin SaveDialog.Filter := TemplateFilter; SaveDialog.FilterIndex := fiTemplates; if SaveDialog.Execute then begin Result := SaveDialog.FileName; AppOptions.MainForm.InitialDir := ExtractFileDir(SaveDialog.FileName); end else Result := EmptyStr; end; function TLazEditMainForm.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;} //If available, open new file in unused open Tab (if that is the current active one) if (Assigned(NoteBook.CurrentEditor) and (NoteBook.CurrentEditor.IsUnused)) then Ed := NoteBook.CurrentEditor else 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 TLazEditMainForm.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 TLazEditMainForm.CloseCurrentEditor: Boolean; var Idx: Integer; begin if (NoteBook.PageCount = 0) then Exit(True); Idx := NoteBook.ActivePageIndex; Result := NoteBook.ClosePage(Idx); end; function TLazEditMainForm.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 TLazEditMainForm.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(vTranslations.msgOpenError,[Fn])); end else ShowError(Format(vTranslations.msgFileNotFound,[Fn])); end; procedure TLazEditMainForm.DoMruOpen(const Index: Integer); var Fn: String; begin if (Index < 0) or (Index > MruList.Count - 1) then begin ShowError(Format(vTranslations.msgMruIndexOutOfBound,[Index])); end; Fn := MruList.Items[Index]; if (Fn <> '') then begin if not TryFileOpen(Fn, False) then ShowError(Format(vTranslations.msgOpenError,[Fn])); end end; procedure TLazEditMainForm.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(vTranslations.msgOpenError,[Fn])); end else ShowError(Format(vTranslations.msgFileNotFound,[Fn])); end; procedure TLazEditMainForm.DoFileSave(Editor: TEditor); begin if Assigned(Editor) then begin if (TryFileSave(Editor, Editor.FileName) = IoFail) then ShowError(Format(vTranslations.msgSaveError,[Editor.FileName])); end; end; procedure TLazEditMainForm.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(vTranslations.msgSaveError,[Fn])); end; end; end; procedure TLazEditMainForm.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(vTranslations.msgSaveError,[Fn])); end; end; end; procedure TLazEditMainForm.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(vTranslations.msgSaveAllError,[S])); end; end; procedure TLazEditMainForm.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 TLazEditMainForm.DoFileNewHtml; begin if NewHtmlDlg.Execute then DoFileNewByType(eftHtml, NewHtmlDlg.Text); end; procedure TLazEditMainForm.FileOpenInBrowser; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if (Ed.FileName = EmptyStr) then begin ShowError(vTranslations.msgFileHasNoName); Exit; end; if not (Ed.FileType in [eftHtml, eftXml]) then begin if (MessageDlg(AppName, vTranslations.msgFileTypeNotForBrowser, mtConfirmation, [mbYes,mbNo], 0, mbNo) <> mrYes) then Exit; end; if not OpenUrl(Ed.FileName) then ShowError(Format(vTranslations.msgErrorBrowser, [Ed.FileName])); end; end; { ********************* [ Edit ] ********************************* } procedure TLazEditMainForm.EditUndo; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if Ed.CanUndo then Ed.Undo; end; end; procedure TLazEditMainForm.EditRedo; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if Ed.CanRedo then Ed.Redo; end; end; procedure TLazEditMainForm.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 TLazEditMainForm.EditPaste; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Ed.PasteFromClipboard; end; end; procedure TLazEditMainForm.EditCut; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if Ed.SelAvail then Ed.CutToClipboard; end; end; procedure TLazEditMainForm.EditSelectAll; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Ed.SelectAll; end; end; procedure TLazEditMainForm.EditFind; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin if Ed.SelAvail and (Ed.BlockBegin.Y = Ed.BlockEnd.Y) then FindDialog.FindText := Ed.SelText; FindDialog.Execute; end; end; procedure TLazEditMainForm.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(vTranslations.msgTextNotFound,[FindText])); end; end; procedure TLazEditMainForm.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(vTranslations.msgTextNotFound,[FindText])); end; end; procedure TLazEditMainForm.EditReplace; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin ReplaceDialog.Execute; end; end; procedure TLazEditMainForm.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 TLazEditMainForm.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(vTranslations.msgTextNotFound,[FindText])); end; end; procedure TLazEditMainForm.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(vTranslations.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 TLazEditMainForm.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 TLazEditMainForm.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 TLazEditMainForm.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 TLazEditMainForm.InsertSpecialChars; var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin HtmlCharMapDlg.Execute; end; end; procedure TLazEditMainForm.InsertSpecial(const AValue: String); var Ed: TEditor; begin Ed := NoteBook.CurrentEditor; if Assigned(Ed) then begin Ed.SelText := AValue; end; end; { *************************** [ Layout ] **************************** } procedure TLazEditMainForm.LayoutHeading(const Level: Integer); begin if not (Level in [1..6]) then Exit; TryMarkSelection(Format('',[Level]),Format('',[Level])); end; { ************************** [ View ] ********************************* } procedure TLazEditMainForm.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 TLazEditMainForm.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 TLazEditMainForm.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 TLazEditMainForm.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; procedure TLazEditMainForm.AboutLazEdit; begin FormAbout.SetCopyrightInfo(CopyLeftStatement, AuthorWebName, AuthorWebUrl); FormAbout.SetVersionInfo(AppName, AppVersion, '','', ''); FormAbout.SetLicenseInfo(LicenseText, LicenseName, LicenseUrl); FormAbout.Top := Top + 15; FormAbout.Left := Left + 15; FormAbout.ShowModal; end; end.