diff --git a/applications/lazedit/build/innosetup.iss b/applications/lazedit/build/innosetup.iss
index 88f4b66d9..52b67f1d8 100644
--- a/applications/lazedit/build/innosetup.iss
+++ b/applications/lazedit/build/innosetup.iss
@@ -2,19 +2,19 @@
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
[Setup]
-AppName=LazEyes
-AppVerName=LazEyes v2.0
-AppPublisherURL=http://wiki.lazarus.freepascal.org/LazEyes
-AppSupportURL=http://wiki.lazarus.freepascal.org/LazEyes
-AppUpdatesURL=http://wiki.lazarus.freepascal.org/LazEyes
-DefaultDirName={pf}\LazEyes
+AppName=LazEdit
+AppVerName=LazEdit v1.9
+AppPublisherURL=http://wiki.lazarus.freepascal.org/LazEdit
+AppSupportURL=http://wiki.lazarus.freepascal.org/LazEdit
+AppUpdatesURL=http://wiki.lazarus.freepascal.org/LazEdit
+DefaultDirName={pf}\LazEdit
DefaultGroupName=Free Pascal Applications Suite
; LicenseFile=..\license.txt
OutputDir=.\
-OutputBaseFilename=LazEyes2.0_install
+OutputBaseFilename=LazEdit1.9_install
Compression=lzma
SolidCompression=yes
-VersionInfoVersion=2.0
+VersionInfoVersion=1.9
AllowNoIcons=yes
[Languages]
@@ -33,20 +33,25 @@ Name: "japanese"; MessagesFile: "compiler:Languages\Japanese.isl"
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
-Source: "..\lazeyes2.exe"; DestDir: "{app}"; Flags: ignoreversion
+Source: "..\lazedit.exe"; DestDir: "{app}"; Flags: ignoreversion
; Source: "..\Images\*.png"; DestDir: "{app}\Images"; Flags: ignoreversion
; Source: "..\libraries\pas_overlays\pas_overlays.dll"; DestDir: "{app}"; Flags: ignoreversion
; Source: "..\libraries\videocard_checker\videocard_checker.dll"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
+[Registry]
+Root: HKCR; Subkey: "*\shell\LazEdit"; Flags: uninsdeletekeyifempty
+Root: HKCR; Subkey: "*\shell\LazEdit"; ValueType: string; ValueName: ""; ValueData: "Open with LazEdit"; Flags: uninsdeletekey
+Root: HKCR; Subkey: "*\shell\LazEdit\command"; ValueType: string; ValueName: ""; ValueData: """{app}\lazedit.exe"" ""%1"""; Flags: uninsdeletekey
+
[Icons]
-Name: "{group}\LazEyes"; Filename: "{app}\lazeyes2.exe"
-Name: "{group}\{cm:ProgramOnTheWeb,LazEyes}"; Filename: "http://wiki.lazarus.freepascal.org/LazEyes"
-Name: "{group}\{cm:UninstallProgram,LazEyes}"; Filename: "{uninstallexe}"
-Name: "{commondesktop}\LazEyes"; Filename: "{app}\lazeyes2.exe"; Tasks: desktopicon
+Name: "{group}\LazEdit"; Filename: "{app}\lazedit.exe"
+Name: "{group}\{cm:ProgramOnTheWeb,LazEdit}"; Filename: "http://wiki.lazarus.freepascal.org/LazEdit"
+Name: "{group}\{cm:UninstallProgram,LazEdit}"; Filename: "{uninstallexe}"
+Name: "{commondesktop}\LazEdit"; Filename: "{app}\lazedit.exe"; Tasks: desktopicon
[Run]
-Filename: "{app}\lazeyes2.exe"; Description: "{cm:LaunchProgram,LazEyes}"; Flags: nowait postinstall skipifsilent
+Filename: "{app}\lazedit.exe"; Description: "{cm:LaunchProgram,LazEdit}"; Flags: nowait postinstall skipifsilent
diff --git a/applications/lazedit/lazedit.lpi b/applications/lazedit/lazedit.lpi
index 7c879aaf6..c51d8796b 100644
--- a/applications/lazedit/lazedit.lpi
+++ b/applications/lazedit/lazedit.lpi
@@ -23,7 +23,7 @@
-
+
@@ -84,7 +84,7 @@
-
+
diff --git a/applications/lazedit/lazedit.lpr b/applications/lazedit/lazedit.lpr
index 4a1333af6..95c0fd798 100644
--- a/applications/lazedit/lazedit.lpr
+++ b/applications/lazedit/lazedit.lpr
@@ -7,16 +7,33 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
- Forms, main, lazedit_translations, EditorPageControl, HtmlCode {,newtableform, test_ed, eplus_commons, CopyLeft, eplus_config, HtmlCharMap,
- HtmlDialogs, NewHtmlDlgForm, AnchorDlgForm, PictureDlgForm}
- { you can add units after this };
+ Forms, main,
+ lazedit_translations,
+ EditorPageControl,
+ HtmlCode,
+ lazedit_constants;
{$R *.res}
begin
RequireDerivedFormResource := True;
Application.Initialize;
- Application.CreateForm(TEPlusForm, EPlusForm);
+ Application.CreateForm(TLazEditMainForm, LazEditMainForm);
+
+ {$ifndef Darwin}
+ // Parse the command line options
+
+ // if there are no files to open, then
+ if ParamCount = 0 then
+ begin
+ LazEditMainForm.NoteBook.IsCreating := True;
+ LazEditMainForm.DoFileNewByType(eftNone);
+ LazEditMainForm.NoteBook.IsCreating := False;
+ end
+ else
+ LazEditMainForm.TryFileOpen(ParamStr(1), False);
+ {$endif}
+
Application.Run;
end.
diff --git a/applications/lazedit/lazedit_config.pas b/applications/lazedit/lazedit_config.pas
index a902dccf5..9e6f30093 100644
--- a/applications/lazedit/lazedit_config.pas
+++ b/applications/lazedit/lazedit_config.pas
@@ -44,7 +44,7 @@ uses
type
//globale type for all configurable options
- TEPlusOptions = record
+ TLazEditOptions = record
EditorOptions: TEditorOptions;
MainForm: record
Position: TRect; //used as Left, Top, Widht, Height
@@ -75,8 +75,8 @@ type
Translation: Integer;
end;
-function LoadOptions(var Options: TEPlusOptions; FileName: String): Boolean;
-function SaveOptions(const Options: TEPlusOptions; FileName: String): Boolean;
+function LoadOptions(var Options: TLazEditOptions; FileName: String): Boolean;
+function SaveOptions(const Options: TLazEditOptions; FileName: String): Boolean;
function GetDefaultIniNameOnly: String;
function GetDefaultIniDir: String;
@@ -107,7 +107,7 @@ const
idFilePrefix = 'File_%d';
-function LoadOptions(var Options: TEPlusOptions; FileName: String): Boolean;
+function LoadOptions(var Options: TLazEditOptions; FileName: String): Boolean;
var
Ini: TIniFile;
ftIndex: TEditorFileType;
@@ -165,7 +165,7 @@ begin
if (S <> '') then Options.FileTypeMaskList[ftIndex] := S;
end;
- // Translation
+ // Translation and other general
Options.Translation := Ini.ReadInteger(scGeneral, idTranslation, 0);
finally
@@ -183,7 +183,7 @@ begin
end;
end;
-function SaveOptions(const Options: TEPlusOptions; FileName: String): Boolean;
+function SaveOptions(const Options: TLazEditOptions; FileName: String): Boolean;
var
Ini: TIniFile;
ftIndex: TEditorFileType;
@@ -238,7 +238,7 @@ begin
Ini.WriteString(scFileTypes, eftNames[ftIndex], Options.FileTypeMaskList[ftIndex]);
end;
- // Translation
+ // Translation and other general
Ini.WriteInteger(scGeneral, idTranslation, Options.Translation);
try
diff --git a/applications/lazedit/main.lfm b/applications/lazedit/main.lfm
index 4355028f6..55295eb85 100644
--- a/applications/lazedit/main.lfm
+++ b/applications/lazedit/main.lfm
@@ -1,4 +1,4 @@
-object EPlusForm: TEPlusForm
+object LazEditMainForm: TLazEditMainForm
Left = 286
Height = 418
Top = 121
diff --git a/applications/lazedit/main.pp b/applications/lazedit/main.pp
index d1c30ba92..be81769cb 100644
--- a/applications/lazedit/main.pp
+++ b/applications/lazedit/main.pp
@@ -54,9 +54,9 @@ type
TIoResult = (ioSuccess, ioFail, ioCancel);
- { TEPlusForm }
+ { TLazEditMainForm }
- TEPlusForm = class(TForm)
+ TLazEditMainForm = class(TForm)
HtmlActionList: TActionList;
acInsertAnchor: TAction;
acInsertPicture: TAction;
@@ -425,7 +425,7 @@ type
//overridden public form methods
//prevent propagating shortcuts from non-modal windows (menu's, actions etc.)
function IsShortcut(var Message: TLMKey): boolean; override;
- private
+ public
{ private declarations }
NoteBook: TEditorPageControl;
OpenSaveFilter: String;
@@ -438,7 +438,7 @@ type
FindOptions: TSynSearchOptions;
ReplaceOptions: TSynSearchOptions;
- AppOptions: TEPlusOptions;
+ AppOptions: TLazEditOptions;
MruList: TStringList;
MruMenuItems: Array[0..MruEntries-1] of TMenuItem;
@@ -450,9 +450,9 @@ type
procedure SaveEplusConfiguration;
procedure CleanUp;
- function GetDefaultAppOptions: TEPlusOptions;
- procedure ApplyAppOptions(const Options: TEplusOptions);
- procedure GatherAppOptions(var Options: TEplusOptions);
+ function GetDefaultAppOptions: TLazEditOptions;
+ procedure ApplyAppOptions(const Options: TLazEditOptions);
+ procedure GatherAppOptions(var Options: TLazEditOptions);
procedure TagMenuItemsAndActions;
procedure UpdateMenuItems;
@@ -464,6 +464,7 @@ type
//Helper functions for editor;
function TryMarkSelection(const Pre, Post: String): Boolean;
+ public
//File procedures
function AskFileNameOpen: String;
function AskFileNameOpenTemplate: String;
@@ -530,7 +531,7 @@ type
end;
var
- EPlusForm: TEPlusForm;
+ LazEditMainForm: TLazEditMainForm;
implementation
@@ -556,30 +557,27 @@ const pXY = 0; //Panels constanten
opt_short_blankpage = 'n';
-{ TEPlusForm }
+{ TLazEditMainForm }
{ ************************** [ Form event handlers] ***********************************}
-procedure TEPlusForm.FormCreate(Sender: TObject);
+procedure TLazEditMainForm.FormCreate(Sender: TObject);
begin
SetUpAndConfigureLazEdit;
DoTranslateAll();
- NoteBook.IsCreating := True;
- DoFileNewByType(eftNone);
- NoteBook.IsCreating := False;
end;
-procedure TEPlusForm.FormDestroy(Sender: TObject);
+procedure TLazEditMainForm.FormDestroy(Sender: TObject);
begin
CleanUp;
end;
-procedure TEPlusForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+procedure TLazEditMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
SaveEplusConfiguration;
end;
-procedure TEPlusForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+procedure TLazEditMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
While NoteBook.PageCount > 0 do
begin
@@ -593,7 +591,7 @@ begin
end;
end;
-procedure TEPlusForm.FormDropFiles(Sender: TObject; const FileNames: array of String);
+procedure TLazEditMainForm.FormDropFiles(Sender: TObject; const FileNames: array of String);
var
i: Integer;
begin
@@ -607,13 +605,13 @@ begin
end;
end;
-procedure TEPlusForm.FormShow(Sender: TObject);
+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 TEPlusForm.HandleToolbarsMenuClick(Sender: TObject);
+procedure TLazEditMainForm.HandleToolbarsMenuClick(Sender: TObject);
var
lMenuItem: TMenuItem;
lToolbar: TToolBar;
@@ -627,7 +625,7 @@ begin
lToolbar.Visible := lMenuItem.Checked;
end;
-procedure TEPlusForm.mnuLanguageChangeClick(Sender: TObject);
+procedure TLazEditMainForm.mnuLanguageChangeClick(Sender: TObject);
begin
vTranslations.TranslateToLanguageID(Abs(TMenuItem(Sender).Tag));
DoTranslateAll();
@@ -636,192 +634,192 @@ end;
{ ********************** [ Menu OnClick Handlers ] ************************ }
-procedure TEPlusForm.mnuFileOpenInBrowserClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileOpenInBrowserClick(Sender: TObject);
begin
FileOpenInBrowser;
end;
-procedure TEPlusForm.mnuEditPasteTableContentTabClick(Sender: TObject);
+procedure TLazEditMainForm.mnuEditPasteTableContentTabClick(Sender: TObject);
begin
EditPasteTableContentTab;
end;
-procedure TEPlusForm.mnuInsertCssStyleClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertCssStyleClick(Sender: TObject);
begin
TryMarkSelection(style_start, style_end);
end;
-procedure TEPlusForm.mnuInsertHtmlCommentClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertHtmlCommentClick(Sender: TObject);
begin
TryMarkSelection(comment_start, comment_end);
end;
-procedure TEPlusForm.mnuInsertJSClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertJSClick(Sender: TObject);
begin
TryMarkSelection(script_start, script_end);
end;
-procedure TEPlusForm.mnuInsertSpecialCharsClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertSpecialCharsClick(Sender: TObject);
begin
InsertSpecialChars;
end;
-procedure TEPlusForm.mnuInsertTableCellClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertTableCellClick(Sender: TObject);
begin
TryMarkSelection(col_start, col_end);
end;
-procedure TEPlusForm.mnuInsertTableRowClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertTableRowClick(Sender: TObject);
begin
TryMarkSelection(row_start, row_end);
end;
-procedure TEPlusForm.mnuInsertWordDefinitionClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertWordDefinitionClick(Sender: TObject);
begin
TryMarkSelection(worddef_start, worddef_end);
end;
-procedure TEPlusForm.mnuInsertWordListClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertWordListClick(Sender: TObject);
begin
TryMarkSelection(wordlist_start, wordlist_end);
end;
-procedure TEPlusForm.mnuInsertWordTermClick(Sender: TObject);
+procedure TLazEditMainForm.mnuInsertWordTermClick(Sender: TObject);
begin
TryMarkSelection(wordterm_start, wordterm_end);
end;
-procedure TEPlusForm.mnuLayoutBlockQuoteClick(Sender: TObject);
+procedure TLazEditMainForm.mnuLayoutBlockQuoteClick(Sender: TObject);
begin
TryMarkSelection(blockquote_start, blockquote_end);
end;
-procedure TEPlusForm.mnuLayoutCodeClick(Sender: TObject);
+procedure TLazEditMainForm.mnuLayoutCodeClick(Sender: TObject);
begin
TryMarkSelection(code_start, code_end);
end;
-procedure TEPlusForm.mnuLayoutPreformattedClick(Sender: TObject);
+procedure TLazEditMainForm.mnuLayoutPreformattedClick(Sender: TObject);
begin
TryMarkSelection(pre_start, pre_end);
end;
-procedure TEPlusForm.mnuLayoutQuoteClick(Sender: TObject);
+procedure TLazEditMainForm.mnuLayoutQuoteClick(Sender: TObject);
begin
TryMarkSelection(quote_start, quote_end);
end;
-procedure TEPlusForm.mnuViewFontClick(Sender: TObject);
+procedure TLazEditMainForm.mnuViewFontClick(Sender: TObject);
begin
EditorSelectFont;
end;
-procedure TEPlusForm.mnuViewFontsizeDownClick(Sender: TObject);
+procedure TLazEditMainForm.mnuViewFontsizeDownClick(Sender: TObject);
begin
EditorFontSizeDown;
end;
-procedure TEPlusForm.mnuViewFontSizeUpClick(Sender: TObject);
+procedure TLazEditMainForm.mnuViewFontSizeUpClick(Sender: TObject);
begin
EditorFontSizeUp;
end;
-procedure TEPlusForm.TopLevelMenuClick(Sender: TObject);
+procedure TLazEditMainForm.TopLevelMenuClick(Sender: TObject);
begin
UpdateMenuItems;
end;
-procedure TEPlusForm.mnuEditCutClick(Sender: TObject);
+procedure TLazEditMainForm.mnuEditCutClick(Sender: TObject);
begin
EditCut;
end;
-procedure TEPlusForm.mnuFileCloseAppClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileCloseAppClick(Sender: TObject);
begin
Close;
end;
-procedure TEPlusForm.mnuFileCloseCurrentClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileCloseCurrentClick(Sender: TObject);
begin
CloseCurrentEditor;
end;
-procedure TEPlusForm.mnuFileSaveAsClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileSaveAsClick(Sender: TObject);
begin
DoFileSaveAs(NoteBook.CurrentEditor);
end;
-procedure TEPlusForm.mnuFindNextClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFindNextClick(Sender: TObject);
begin
EditFindNext;
end;
-procedure TEPlusForm.mnuFileNewBatClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewBatClick(Sender: TObject);
begin
DoFileNewByType(eftBat, itBat);
end;
-procedure TEPlusForm.mnuFileNewHtmlClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewHtmlClick(Sender: TObject);
begin
DoFileNewHtml;
end;
-procedure TEPlusForm.mnuFileNewCClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewCClick(Sender: TObject);
begin
DoFileNewByType(eftC);
end;
-procedure TEPlusForm.mnuFileNewCssClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewCssClick(Sender: TObject);
begin
DoFileNewByType(eftCss);
end;
-procedure TEPlusForm.mnuFileNewFpcClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewFpcClick(Sender: TObject);
begin
DoFileNewByType(eftFpc);
end;
-procedure TEPlusForm.mnuFileNewIniClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewIniClick(Sender: TObject);
begin
DoFileNewByType(eftIni);
end;
-procedure TEPlusForm.mnuFileNewJSClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewJSClick(Sender: TObject);
begin
DoFileNewByType(eftJS);
end;
-procedure TEPlusForm.mnuFileNewPerlClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewPerlClick(Sender: TObject);
begin
DoFileNewByType(eftPerl);
end;
-procedure TEPlusForm.mnuFileNewPhpClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewPhpClick(Sender: TObject);
begin
DoFileNewByType(eftPerl);
end;
-procedure TEPlusForm.mnuFileNewPyClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewPyClick(Sender: TObject);
begin
DoFileNewByType(eftPy);
end;
-procedure TEPlusForm.mnuFileNewShellScriptClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewShellScriptClick(Sender: TObject);
begin
DoFileNewByType(eftUnixShell, itUnixShellScript);
end;
-procedure TEPlusForm.mnuFileNewXmlClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileNewXmlClick(Sender: TObject);
begin
DoFileNewByType(eftXml, itXml);
end;
-procedure TEPlusForm.mnuFileMruClick(Sender: TObject);
+procedure TLazEditMainForm.mnuFileMruClick(Sender: TObject);
var
Index: Integer;
begin
@@ -830,17 +828,17 @@ begin
DoMruOpen(Index);
end;
-procedure TEPlusForm.mnuEditRedoClick(Sender: TObject);
+procedure TLazEditMainForm.mnuEditRedoClick(Sender: TObject);
begin
EditRedo;
end;
-procedure TEPlusForm.mnuEditReplaceClick(Sender: TObject);
+procedure TLazEditMainForm.mnuEditReplaceClick(Sender: TObject);
begin
EditReplace;
end;
-procedure TEPlusForm.mnuSetHighlighterClick(Sender: TObject);
+procedure TLazEditMainForm.mnuSetHighlighterClick(Sender: TObject);
var
AFileType: TEditorFileType;
begin
@@ -852,12 +850,12 @@ end;
-procedure TEPlusForm.mnuEditSelectAllClick(Sender: TObject);
+procedure TLazEditMainForm.mnuEditSelectAllClick(Sender: TObject);
begin
EditSelectAll;
end;
-procedure TEPlusForm.mnuEditUndoClick(Sender: TObject);
+procedure TLazEditMainForm.mnuEditUndoClick(Sender: TObject);
begin
EditUndo;
end;
@@ -865,222 +863,222 @@ end;
{ ******************** [Action OnExecute Handlers ] *********************** }
-procedure TEPlusForm.acFileOpenExecute(Sender: TObject);
+procedure TLazEditMainForm.acFileOpenExecute(Sender: TObject);
begin
DoFileOpen;
end;
-procedure TEPlusForm.acFileSaveAllExecute(Sender: TObject);
+procedure TLazEditMainForm.acFileSaveAllExecute(Sender: TObject);
begin
DoFileSaveAll;
end;
-procedure TEPlusForm.acFileNewFromTemplateExecute(Sender: TObject);
+procedure TLazEditMainForm.acFileNewFromTemplateExecute(Sender: TObject);
begin
DoTemplateOpen;
end;
-procedure TEPlusForm.acAboutExecute(Sender: TObject);
+procedure TLazEditMainForm.acAboutExecute(Sender: TObject);
begin
AboutEplus;
end;
-procedure TEPlusForm.acEditFindNextExecute(Sender: TObject);
+procedure TLazEditMainForm.acEditFindNextExecute(Sender: TObject);
begin
EditFindNext;
end;
-procedure TEPlusForm.acEditFindPreviousExecute(Sender: TObject);
+procedure TLazEditMainForm.acEditFindPreviousExecute(Sender: TObject);
begin
EditFindPrevious;
end;
-procedure TEPlusForm.acInsertAmpersandExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertAmpersandExecute(Sender: TObject);
begin
InsertSpecial(Ampersand);
end;
-procedure TEPlusForm.acInsertAnchorExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertAnchorExecute(Sender: TObject);
begin
InsertAnchor;
end;
-procedure TEPlusForm.acInsertCopyrightExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertCopyrightExecute(Sender: TObject);
begin
InsertSpecial(CopyRight);
end;
-procedure TEPlusForm.acInsertGreaterExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertGreaterExecute(Sender: TObject);
begin
InsertSpecial(Greater);
end;
-procedure TEPlusForm.acInsertLesserExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertLesserExecute(Sender: TObject);
begin
InsertSpecial(Lesser);
end;
-procedure TEPlusForm.acInsertLineBreakExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertLineBreakExecute(Sender: TObject);
begin
InsertSpecial(LineBreak);
end;
-procedure TEPlusForm.acInsertListItemExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertListItemExecute(Sender: TObject);
begin
TryMarkSelection(listitem_start, listitem_end);
end;
-procedure TEPlusForm.acInsertNbSpaceExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertNbSpaceExecute(Sender: TObject);
begin
InsertSpecial(NbSpace);
end;
-procedure TEPlusForm.acInsertOlistExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertOlistExecute(Sender: TObject);
begin
TryMarkSelection(numberedlist_start, numberedlist_end);
end;
-procedure TEPlusForm.acInsertPictureExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertPictureExecute(Sender: TObject);
begin
InsertPicture;
end;
-procedure TEPlusForm.acInsertTableExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertTableExecute(Sender: TObject);
begin
InsertTable;
end;
-procedure TEPlusForm.acInsertTradeMarkExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertTradeMarkExecute(Sender: TObject);
begin
InsertSpecial(TradeMark);
end;
-procedure TEPlusForm.acInsertUListExecute(Sender: TObject);
+procedure TLazEditMainForm.acInsertUListExecute(Sender: TObject);
begin
TryMarkSelection(unnumberedlist_start, unnumberedlist_end);
end;
-procedure TEPlusForm.acLayoutAlignCenterExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutAlignCenterExecute(Sender: TObject);
begin
TryMarkSelection(centeralign_start, centeralign_end);
end;
-procedure TEPlusForm.acLayoutAlignJustifyExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutAlignJustifyExecute(Sender: TObject);
begin
TryMarkSelection(justifyalign_start, justifyalign_end);
end;
-procedure TEPlusForm.acLayoutAlignLeftExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutAlignLeftExecute(Sender: TObject);
begin
TryMarkSelection(leftalign_start, leftalign_end);
end;
-procedure TEPlusForm.acLayoutAlignRightExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutAlignRightExecute(Sender: TObject);
begin
TryMarkSelection(rightalign_start, rightalign_end);
end;
-procedure TEPlusForm.acLayoutBoldExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutBoldExecute(Sender: TObject);
begin
TryMarkSelection(bold_start, bold_end);
end;
-procedure TEPlusForm.acGroupingDivExecute(Sender: TObject);
+procedure TLazEditMainForm.acGroupingDivExecute(Sender: TObject);
begin
TryMarkSelection(div_start, div_end);
end;
-procedure TEPlusForm.acLayoutEmphasisExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutEmphasisExecute(Sender: TObject);
begin
TryMarkSelection(emphasis_start, emphasis_end);
end;
-procedure TEPlusForm.acLayoutH1Execute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutH1Execute(Sender: TObject);
begin
LayoutHeading(1);
end;
-procedure TEPlusForm.acLayoutH2Execute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutH2Execute(Sender: TObject);
begin
LayoutHeading(2);
end;
-procedure TEPlusForm.acLayoutH3Execute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutH3Execute(Sender: TObject);
begin
LayoutHeading(3);
end;
-procedure TEPlusForm.acLayoutH4Execute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutH4Execute(Sender: TObject);
begin
LayoutHeading(4);
end;
-procedure TEPlusForm.acLayoutH5Execute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutH5Execute(Sender: TObject);
begin
LayoutHeading(5);
end;
-procedure TEPlusForm.acLayoutH6Execute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutH6Execute(Sender: TObject);
begin
LayoutHeading(6);
end;
-procedure TEPlusForm.acLayoutItalicExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutItalicExecute(Sender: TObject);
begin
TryMarkSelection(italic_start, italic_end);
end;
-procedure TEPlusForm.acGroupingParagraphExecute(Sender: TObject);
+procedure TLazEditMainForm.acGroupingParagraphExecute(Sender: TObject);
begin
TryMarkSelection(paragraph_start, paragraph_end);
end;
-procedure TEPlusForm.acGroupingSpanExecute(Sender: TObject);
+procedure TLazEditMainForm.acGroupingSpanExecute(Sender: TObject);
begin
TryMarkSelection(span_start, span_end);
end;
-procedure TEPlusForm.acLayoutStrongExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutStrongExecute(Sender: TObject);
begin
TryMarkSelection(strong_start, strong_end);
end;
-procedure TEPlusForm.acLayoutSubExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutSubExecute(Sender: TObject);
begin
TryMarkSelection(sub_start, sub_end);
end;
-procedure TEPlusForm.acLayoutSupExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutSupExecute(Sender: TObject);
begin
TryMarkSelection(sup_start, sup_end);
end;
-procedure TEPlusForm.acLayoutUnderlineExecute(Sender: TObject);
+procedure TLazEditMainForm.acLayoutUnderlineExecute(Sender: TObject);
begin
TryMarkSelection(underline_start, underline_end);
end;
-procedure TEPlusForm.acEditCopyExecute(Sender: TObject);
+procedure TLazEditMainForm.acEditCopyExecute(Sender: TObject);
begin
EditCopy;
end;
-procedure TEPlusForm.acEditFindExecute(Sender: TObject);
+procedure TLazEditMainForm.acEditFindExecute(Sender: TObject);
begin
EditFind;
end;
-procedure TEPlusForm.acEditPasteExecute(Sender: TObject);
+procedure TLazEditMainForm.acEditPasteExecute(Sender: TObject);
begin
EditPaste;
end;
-procedure TEPlusForm.acFileNewPlainExecute(Sender: TObject);
+procedure TLazEditMainForm.acFileNewPlainExecute(Sender: TObject);
begin
DoFileNewByType(eftNone);
end;
-procedure TEPlusForm.acFileSaveExecute(Sender: TObject);
+procedure TLazEditMainForm.acFileSaveExecute(Sender: TObject);
begin
DoFileSave(NoteBook.CurrentEditor);
end;
@@ -1088,7 +1086,7 @@ end;
{ ********************** [ Form Methods ] ***************************** }
-function TEPlusForm.IsShortcut(var Message: TLMKey): boolean;
+function TLazEditMainForm.IsShortcut(var Message: TLMKey): boolean;
begin
if Active then
Result := inherited IsShortcut(Message)
@@ -1099,7 +1097,7 @@ end;
{ ********************** [ Initializing and cleaning up ] ************* }
-procedure TEPlusForm.SetUpAndConfigureLazEdit;
+procedure TLazEditMainForm.SetUpAndConfigureLazEdit;
begin
ConfigFileDir := GetDefaultIniDir;
ParseCommandLineSwitches;
@@ -1165,13 +1163,13 @@ begin
end;
-procedure TEPlusForm.DoTranslateAll;
+procedure TLazEditMainForm.DoTranslateAll;
begin
DoTranslateMenus();
DoTranslateHints();
end;
-procedure TEPlusForm.DoTranslateMenus;
+procedure TLazEditMainForm.DoTranslateMenus;
begin
{ MENUS }
{
@@ -1301,7 +1299,7 @@ begin
mnuToolbarsHTML.Caption := vTranslations.mnuToolbarsHTML;
end;
-procedure TEPlusForm.DoTranslatePopUpMenus;
+procedure TLazEditMainForm.DoTranslatePopUpMenus;
begin
{ //Popup menus
//Popup menu for editor
@@ -1320,7 +1318,7 @@ begin
mnuPopupLayoutH1: TMenuItem; }
end;
-procedure TEPlusForm.DoTranslateHints;
+procedure TLazEditMainForm.DoTranslateHints;
begin
{ HINTS }
NewFromTemplateBtn.Hint := vTranslations.NewFromTemplateBtn;
@@ -1355,14 +1353,14 @@ begin
SpanBtn.Hint := vTranslations.SpanBtn;
end;
-procedure TEPlusForm.SaveEplusConfiguration;
+procedure TLazEditMainForm.SaveEplusConfiguration;
begin
GatherAppOptions(AppOptions);
if not lazedit_config.SaveOptions(AppOptions, ConfigFileName) then
DebugLn('Fout bij opslaan van opties:',LineEnding,' ',ConfigFileName);
end;
-procedure TEPlusForm.CleanUp;
+procedure TLazEditMainForm.CleanUp;
begin
HtmlCharMapDlg.OnHtmlCharClick := nil;
HtmlCharMapDlg.Free;
@@ -1374,7 +1372,7 @@ end;
{ ********************** [ Configuration ] ************************** }
-function TEPlusForm.GetDefaultAppOptions: TEPlusOptions;
+function TLazEditMainForm.GetDefaultAppOptions: TLazEditOptions;
var
i: Integer;
begin
@@ -1392,7 +1390,7 @@ begin
Result.TemplateMaskList := DefaultTemplateMaskList;
end;
-procedure TEPlusForm.ApplyAppOptions(const Options: TEplusOptions);
+procedure TLazEditMainForm.ApplyAppOptions(const Options: TLazEditOptions);
function ValidPos(const New, Old: Integer): Integer;
begin
if (New < 0) then Result := Old else Result := New;
@@ -1460,7 +1458,7 @@ begin
HtmlToolbar.Visible := Options.MainForm.ToolbarHTML;
end;
-procedure TEPlusForm.GatherAppOptions(var Options: TEplusOptions);
+procedure TLazEditMainForm.GatherAppOptions(var Options: TLazEditOptions);
var
i: Integer;
begin
@@ -1505,7 +1503,7 @@ begin
Options.MainForm.ToolbarHTML := mnuToolbarsHTML.Checked;
end;
-procedure TEPlusForm.ConstructOpenDialogFileFilters;
+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
@@ -1558,7 +1556,7 @@ end;
{ ********************** [ Commandline options ] ******************************** }
-procedure TEPlusForm.ParseCommandlineFilenames(Dummy: PtrInt);
+procedure TLazEditMainForm.ParseCommandlineFilenames(Dummy: PtrInt);
var
i: Integer;
S: String;
@@ -1583,7 +1581,7 @@ begin
DoFileNewByType(eftNone); }
end;
-procedure TEPlusForm.ParseCommandLineSwitches;
+procedure TLazEditMainForm.ParseCommandLineSwitches;
var
S: String;
begin
@@ -1605,7 +1603,7 @@ end;
{ ***************** [ Menu-related Helper functions/procedures ] ************************ }
-procedure TEPlusForm.CreateMruMenuItemsArray;
+procedure TLazEditMainForm.CreateMruMenuItemsArray;
var
i, Nr: Integer;
C: TComponent;
@@ -1634,7 +1632,7 @@ begin
end;
end;
-function TEPlusForm.TryHlMenuTagToFileType(ATag: PtrInt; out
+function TLazEditMainForm.TryHlMenuTagToFileType(ATag: PtrInt; out
AFileType: TEditorFileType): Boolean;
begin
AFileType := eftNone;
@@ -1649,7 +1647,7 @@ end;
-procedure TEPlusForm.TagMenuItemsAndActions;
+procedure TLazEditMainForm.TagMenuItemsAndActions;
var
i: Integer;
C: TComponent;
@@ -1721,7 +1719,7 @@ begin
acEditCopy.Caption := 'Kopiƫren';
end;
-procedure TEPlusForm.UpdateMenuItems;
+procedure TLazEditMainForm.UpdateMenuItems;
var
i: Integer;
C: TComponent;
@@ -1752,7 +1750,7 @@ end;
{ ******************** [ NoteBook / Editor event handlers ] ************************ }
-procedure TEPlusForm.OnBeforeCloseEditor(Sender: TTabSheet; var Cancel: Boolean);
+procedure TLazEditMainForm.OnBeforeCloseEditor(Sender: TTabSheet; var Cancel: Boolean);
var
Ed: TEditor;
Fn: String;
@@ -1777,7 +1775,7 @@ begin
end;
-procedure TEPlusForm.OnEditorStatusChange(Sender: TObject;
+procedure TLazEditMainForm.OnEditorStatusChange(Sender: TObject;
Changes: TSynStatusChanges);
var
Line, Col: LongInt;
@@ -1815,13 +1813,13 @@ begin
end;
end;
-procedure TEPlusForm.OnCharsetChange(Sender: TEditor; const OldCharset, NewCharset: String; const LineNr: Integer);
+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 TEPlusForm.OnMruListChange(Sender: TObject);
+procedure TLazEditMainForm.OnMruListChange(Sender: TObject);
var
i: Integer;
MnuItem: TMenuItem;
@@ -1853,7 +1851,7 @@ end;
{ ********************* [ CharMap event handlers ] ***************************** }
-procedure TEPlusForm.OnHtmlCharMapInsertText(AValue: String);
+procedure TLazEditMainForm.OnHtmlCharMapInsertText(AValue: String);
var
Ed: TEditor;
begin
@@ -1872,12 +1870,12 @@ end;
{ ******************** [ General procedures/functions ] ************************ }
-procedure TEPlusForm.ShowError(const Msg: String);
+procedure TLazEditMainForm.ShowError(const Msg: String);
begin
MessageDlg(AppName, Msg, mtError, [mbOk], 0);
end;
-function TEPlusForm.TryMarkSelection(const Pre, Post: String): Boolean;
+function TLazEditMainForm.TryMarkSelection(const Pre, Post: String): Boolean;
var
Ed: TEditor;
begin
@@ -1899,7 +1897,7 @@ end;
-function TEPlusForm.AskFileNameOpen: String;
+function TLazEditMainForm.AskFileNameOpen: String;
begin
OpenDialog.Filter := OpenSaveFilter;
OpenDialog.FilterIndex := 0;
@@ -1911,7 +1909,7 @@ begin
else Result := EmptyStr;
end;
-function TEPlusForm.AskFileNameOpenTemplate: String;
+function TLazEditMainForm.AskFileNameOpenTemplate: String;
begin
OpenDialog.Filter := TemplateFilter;
OpenDialog.FilterIndex := 0;
@@ -1923,7 +1921,7 @@ begin
else Result := EmptyStr;
end;
-function TEPlusForm.AskFileNameSave(const Fn: String; const FileType: TEditorFileType): String;
+function TLazEditMainForm.AskFileNameSave(const Fn: String; const FileType: TEditorFileType): String;
begin
SaveDialog.Filter := OpenSaveFilter;
SaveDialog.FilterIndex := 0;
@@ -1949,7 +1947,7 @@ begin
else Result := EmptyStr;
end;
-function TEPlusForm.AskFileNameSaveTemplate: String;
+function TLazEditMainForm.AskFileNameSaveTemplate: String;
begin
SaveDialog.Filter := TemplateFilter;
SaveDialog.FilterIndex := 0;
@@ -1961,7 +1959,7 @@ begin
else Result := EmptyStr;
end;
-function TEPlusForm.TryFileOpen(const Fn: String; const AsTemplate: Boolean = False): Boolean;
+function TLazEditMainForm.TryFileOpen(const Fn: String; const AsTemplate: Boolean = False): Boolean;
var
Ed: TEditor;
begin
@@ -1991,7 +1989,7 @@ begin
else Result := False;
end;
-function TEPlusForm.TryFileSave(Editor: TEditor; Fn: String): TIoResult;
+function TLazEditMainForm.TryFileSave(Editor: TEditor; Fn: String): TIoResult;
begin
if Assigned(Editor) then
begin
@@ -2013,7 +2011,7 @@ begin
else Result := IoFail;
end;
-function TEPlusForm.CloseCurrentEditor: Boolean;
+function TLazEditMainForm.CloseCurrentEditor: Boolean;
var
Idx: Integer;
begin
@@ -2023,7 +2021,7 @@ begin
Result := NoteBook.ClosePage(Idx);
end;
-function TEPlusForm.TryFileSaveAll(out Failures: String): Boolean;
+function TLazEditMainForm.TryFileSaveAll(out Failures: String): Boolean;
var
i: Integer;
Ed: TEditor;
@@ -2048,7 +2046,7 @@ begin
end;
end;
-procedure TEPlusForm.DoFileOpen;
+procedure TLazEditMainForm.DoFileOpen;
var
Fn: String;
begin
@@ -2062,7 +2060,7 @@ begin
ShowError(Format(vTranslations.msgFileNotFound,[Fn]));
end;
-procedure TEPlusForm.DoMruOpen(const Index: Integer);
+procedure TLazEditMainForm.DoMruOpen(const Index: Integer);
var
Fn: String;
begin
@@ -2077,7 +2075,7 @@ begin
end
end;
-procedure TEPlusForm.DoTemplateOpen;
+procedure TLazEditMainForm.DoTemplateOpen;
var
Fn: String;
begin
@@ -2091,7 +2089,7 @@ begin
ShowError(Format(vTranslations.msgFileNotFound,[Fn]));
end;
-procedure TEPlusForm.DoFileSave(Editor: TEditor);
+procedure TLazEditMainForm.DoFileSave(Editor: TEditor);
begin
if Assigned(Editor) then
begin
@@ -2099,7 +2097,7 @@ begin
end;
end;
-procedure TEPlusForm.DoFileSaveAs(Editor: TEditor);
+procedure TLazEditMainForm.DoFileSaveAs(Editor: TEditor);
var
Fn: String;
begin
@@ -2113,7 +2111,7 @@ begin
end;
end;
-procedure TEPlusForm.DoFileSaveAsTemplate(Editor: TEditor);
+procedure TLazEditMainForm.DoFileSaveAsTemplate(Editor: TEditor);
var
Fn: String;
begin
@@ -2127,7 +2125,7 @@ begin
end;
end;
-procedure TEPlusForm.DoFileSaveAll;
+procedure TLazEditMainForm.DoFileSaveAll;
var
S: String;
begin
@@ -2139,7 +2137,7 @@ begin
end;
end;
-procedure TEPlusForm.DoFileNewByType(const AFileType: TEditorFileType; const InitialText: String = '');
+procedure TLazEditMainForm.DoFileNewByType(const AFileType: TEditorFileType; const InitialText: String = '');
var
Ed: TEditor;
begin
@@ -2154,13 +2152,13 @@ begin
end;
end;
-procedure TEPlusForm.DoFileNewHtml;
+procedure TLazEditMainForm.DoFileNewHtml;
begin
if NewHtmlDlg.Execute then DoFileNewByType(eftHtml, NewHtmlDlg.Text);
end;
-procedure TEPlusForm.FileOpenInBrowser;
+procedure TLazEditMainForm.FileOpenInBrowser;
var
Ed: TEditor;
begin
@@ -2186,7 +2184,7 @@ end;
{ ********************* [ Edit ] ********************************* }
-procedure TEPlusForm.EditUndo;
+procedure TLazEditMainForm.EditUndo;
var
Ed: TEditor;
begin
@@ -2197,7 +2195,7 @@ begin
end;
end;
-procedure TEPlusForm.EditRedo;
+procedure TLazEditMainForm.EditRedo;
var
Ed: TEditor;
begin
@@ -2208,7 +2206,7 @@ begin
end;
end;
-procedure TEPlusForm.EditCopy;
+procedure TLazEditMainForm.EditCopy;
var
Ed: TEditor;
begin
@@ -2220,7 +2218,7 @@ begin
end;
end;
-procedure TEPlusForm.EditPaste;
+procedure TLazEditMainForm.EditPaste;
var
Ed: TEditor;
begin
@@ -2232,7 +2230,7 @@ begin
end;
-procedure TEPlusForm.EditCut;
+procedure TLazEditMainForm.EditCut;
var
Ed: TEditor;
begin
@@ -2243,7 +2241,7 @@ begin
end;
end;
-procedure TEPlusForm.EditSelectAll;
+procedure TLazEditMainForm.EditSelectAll;
var
Ed: TEditor;
begin
@@ -2254,7 +2252,7 @@ begin
end;
end;
-procedure TEPlusForm.EditFind;
+procedure TLazEditMainForm.EditFind;
var
Ed: TEditor;
begin
@@ -2265,7 +2263,7 @@ begin
end;
end;
-procedure TEPlusForm.EditFindNext;
+procedure TLazEditMainForm.EditFindNext;
var
sOpt: TSynSearchOptions;
Ed: TEditor;
@@ -2281,7 +2279,7 @@ begin
end;
end;
-procedure TEPlusForm.EditFindPrevious;
+procedure TLazEditMainForm.EditFindPrevious;
var
sOpt: TSynSearchOptions;
Ed: TEditor;
@@ -2297,7 +2295,7 @@ begin
end;
end;
-procedure TEPlusForm.EditReplace;
+procedure TLazEditMainForm.EditReplace;
var
Ed: TEditor;
begin
@@ -2308,7 +2306,7 @@ begin
end;
end;
-procedure TEPlusForm.EditPasteTableContentTab;
+procedure TLazEditMainForm.EditPasteTableContentTab;
var
Ed: TEditor;
TabbedText: String;
@@ -2326,7 +2324,7 @@ end;
-procedure TEPlusForm.DoFind(Sender: TObject);
+procedure TLazEditMainForm.DoFind(Sender: TObject);
var
Ed: TEditor;
Dlg: TFindDialog;
@@ -2351,7 +2349,7 @@ begin
end;
end;
-procedure TEPlusForm.DoReplace(Sender: TObject);
+procedure TLazEditMainForm.DoReplace(Sender: TObject);
var
Ed: TEditor;
Dlg: TReplaceDialog;
@@ -2388,7 +2386,7 @@ end;
-procedure TEPlusForm.InsertAnchor;
+procedure TLazEditMainForm.InsertAnchor;
var
Ed: TEditor;
SStart, SLen: Integer;
@@ -2423,7 +2421,7 @@ begin
end;
end;
-procedure TEPlusForm.InsertPicture;
+procedure TLazEditMainForm.InsertPicture;
var
Ed: TEditor;
begin
@@ -2442,7 +2440,7 @@ begin
end;
-procedure TEPlusForm.InsertTable;
+procedure TLazEditMainForm.InsertTable;
var
Ed: TEditor;
TableText: String;
@@ -2461,7 +2459,7 @@ begin
end;
-procedure TEPlusForm.InsertSpecialChars;
+procedure TLazEditMainForm.InsertSpecialChars;
var
Ed: TEditor;
begin
@@ -2473,7 +2471,7 @@ begin
end;
-procedure TEPlusForm.InsertSpecial(const AValue: String);
+procedure TLazEditMainForm.InsertSpecial(const AValue: String);
var
Ed: TEditor;
begin
@@ -2488,7 +2486,7 @@ end;
-procedure TEPlusForm.LayoutHeading(const Level: Integer);
+procedure TLazEditMainForm.LayoutHeading(const Level: Integer);
begin
if not (Level in [1..6]) then Exit;
TryMarkSelection(Format('',[Level]),Format('',[Level]));
@@ -2497,7 +2495,7 @@ end;
{ ************************** [ View ] ********************************* }
-procedure TEPlusForm.SetHighlighter(const AFileType: TEditorFileType);
+procedure TLazEditMainForm.SetHighlighter(const AFileType: TEditorFileType);
var
Ed: TEditor;
begin
@@ -2509,7 +2507,7 @@ begin
end;
end;
-procedure TEPlusForm.EditorSelectFont;
+procedure TLazEditMainForm.EditorSelectFont;
var
EO: TEditorOptions;
begin
@@ -2527,7 +2525,7 @@ begin
end;
end;
-procedure TEPlusForm.EditorFontSizeUp;
+procedure TLazEditMainForm.EditorFontSizeUp;
var
EO: TEditorOptions;
begin
@@ -2539,7 +2537,7 @@ begin
end;
end;
-procedure TEPlusForm.EditorFontSizeDown;
+procedure TLazEditMainForm.EditorFontSizeDown;
var
EO: TEditorOptions;
begin
@@ -2555,7 +2553,7 @@ end;
{ ************************** [ About ] *********************** }
-procedure TEPlusForm.AboutEPlus;
+procedure TLazEditMainForm.AboutEPlus;
{var
Dlg: TExtAboutDlg;}
begin