diff --git a/applications/lazedit/lazedit.lpi b/applications/lazedit/lazedit.lpi
index a429beb1b..14c8f9e60 100644
--- a/applications/lazedit/lazedit.lpi
+++ b/applications/lazedit/lazedit.lpi
@@ -109,9 +109,9 @@
-
+
-
+
diff --git a/applications/lazedit/eplus_config.pp b/applications/lazedit/lazedit_config.pas
similarity index 97%
rename from applications/lazedit/eplus_config.pp
rename to applications/lazedit/lazedit_config.pas
index 78c67a72b..a902dccf5 100644
--- a/applications/lazedit/eplus_config.pp
+++ b/applications/lazedit/lazedit_config.pas
@@ -32,7 +32,7 @@
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
-unit EPlus_Config;
+unit lazedit_config;
{$mode objfpc}{$H+}
@@ -49,6 +49,7 @@ type
MainForm: record
Position: TRect; //used as Left, Top, Widht, Height
InitialDir: String;
+ ToolbarHTML: Boolean;
end;
HtmlCharMapDlg: record
Position: TPoint;
@@ -91,6 +92,7 @@ const
idWidth = 'Width';
idHeight = 'Height';
idInitialDir = 'InitialDir'; //Last opened folder
+ idToolbarHTML = 'HTML toolbar';
scHtmlCharMapDlg = 'CharMapDlg';
scNewHtmlDlg = 'NewHtmlDlg';
scAnchorDlg = 'AnchorDlg';
@@ -127,6 +129,7 @@ begin
Options.MainForm.Position.Right := Ini.ReadInteger(scMainForm, idWidth, -1);
Options.MainForm.Position.Bottom := Ini.ReadInteger(scMainForm, idHeight, -1);
Options.MainForm.InitialDir := Ini.ReadString(scMainForm, idInitialDir, '');
+ Options.MainForm.ToolbarHTML := Ini.ReadBool(scMainForm, idToolbarHTML, False);
//Dialogs
Options.NewHtmlDlg.Position.y := Ini.ReadInteger(scNewHtmlDlg, idTop, -1);
@@ -201,6 +204,7 @@ begin
Ini.WriteInteger(scMainForm, idWidth, Options.MainForm.Position.Right);
Ini.WriteInteger(scMainForm, idHeight, Options.MainForm.Position.Bottom);
Ini.WriteString(scMainForm, idInitialDir, Options.MainForm.InitialDir);
+ Ini.WriteBool(scMainForm, idToolbarHTML, Options.MainForm.ToolbarHTML);
//Dialogs
Ini.WriteInteger(scNewHtmlDlg, idTop, Options.NewHtmlDlg.Position.y);
diff --git a/applications/lazedit/lazedit_translations.pas b/applications/lazedit/lazedit_translations.pas
index 3ddde3810..002000a25 100644
--- a/applications/lazedit/lazedit_translations.pas
+++ b/applications/lazedit/lazedit_translations.pas
@@ -12,6 +12,8 @@ type
{ TTranslations }
TTranslations = class(TObject)
+ private
+ FLanguageId: Integer;
public
{ Main form }
{ mnuEditPasteTableContentTab: TMenuItem;
@@ -52,6 +54,8 @@ type
mnuEditCopy,
mnuEditCut,
mnuEditPaste,
+ mnuEditPasteSpecial,
+ mnuEditPasteTableContentTab,
mnuEditSelectAll,
//mnuSep12: TMenuItem;
mnuEditReplace,
@@ -59,25 +63,25 @@ type
mnuEditFind: string;
//Insert menu
mnuHTMLTools,
- mnuInsertAnchor,
-{ mnuInsertList,
- 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;}
+ mnuInsertAnchor,
+ mnuInsertList,
+ mnuInsertUList,
+ mnuInsertNList,
+ mnuInsertWordList,
+ mnuInsetListItem,
+ mnuInsertWordTerm,
+ mnuInsertWordDefinition,
+ mnuInsertTable,
+ mnInsertNewTable,
+ mnuInsertTableCell,
+ mnuInsertTableRow,
+ mnuInsertPicture,
+ mnuInsertSpecialChars,
+ mnuInsertLineBreak,
+ //mnuInsertSep1: TMenuItem;
+ mnuInsertHtmlComment,
+ mnuInsertJS,
+ mnuInsertCssStyle: string;
//Layout menu
mnuLayout,
mnuLayoutBold,
@@ -110,14 +114,14 @@ type
mnuGroupingSpan: string;
//View menu
mnuView,
- mnuViewFontsize: string;
-{ mnuViewFontSizeUp: TMenuItem;
- mnuViewFontsizeDown: TMenuItem;
- mnuViewHighlighter: TMenuItem;
+ mnuViewFontsize,
+ mnuViewFontSizeUp,
+ mnuViewFontsizeDown,
+// mnuViewHighlighter: TMenuItem;
//these menu items MUST have names that are built like this:
//'mnuViewHL' + eftNames[SomeIndex]
- mnuViewHLeftNone: TMenuItem;
- mnuViewHLeftHtml: TMenuItem;
+ mnuViewHLeftNone: string;
+{ mnuViewHLeftHtml: TMenuItem;
mnuViewHLeftXml: TMenuItem;
mnuViewHLeftCss: TMenuItem;
mnuViewHLeftJS: TMenuItem;
@@ -131,8 +135,13 @@ type
mnuViewHLeftBat: TMenuItem;
mnuViewHLeftDiff: TMenuItem;
mnuViewHLeftIni: TMenuItem;
- mnuViewHLeftPo: TMenuItem;
- //Popup menus
+ mnuViewHLeftPo: TMenuItem;}
+ mnuTools,
+ mnuToolsLanguage,
+ mnuToolsToolbars,
+ mnuToolbarsMain,
+ mnuToolbarsHTML: string;
+{ //Popup menus
//Popup menu for editor
EditorPopupMenu: TPopupMenu;
mnuEditPopupSelectAll: TMenuItem;
@@ -170,6 +179,7 @@ type
procedure TranslateToDutch;
procedure TranslateToPortuguese;
procedure TranslateToLanguageID(AID: Integer);
+ function GetCurrentLanguageID: Integer;
end;
var
@@ -214,7 +224,8 @@ begin
mnuEditCopy := 'Copy';
mnuEditCut := 'Cut';
mnuEditPaste := 'Paste';
- //mnuEditPasteSpecial := 'Plakken speciaal';
+ mnuEditPasteSpecial := 'Paste special';
+ mnuEditPasteTableContentTab := 'Paste table content';
mnuEditSelectAll := 'Select all';
//mnuSep12: TMenuItem;
mnuEditReplace := '&Replace';
@@ -223,24 +234,24 @@ begin
//HTML Tools menu
mnuHTMLTools := '&HTML Tools';
mnuInsertAnchor := 'Insert Hyperlink';
- { mnuInsertList,
- 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;}
+ mnuInsertList := 'Insert list...';
+ mnuInsertUList := 'Bullets list';
+ mnuInsertNList := 'Numeric list';
+ mnuInsertWordList := 'List of words';
+ mnuInsetListItem := 'List item';
+ mnuInsertWordTerm := 'Word term';
+ mnuInsertWordDefinition := 'Word definition';
+ mnuInsertTable := 'Insert Table';
+ mnInsertNewTable := 'New table';
+ mnuInsertTableCell := 'Table cell';
+ mnuInsertTableRow := 'Table row';
+ mnuInsertPicture := 'Insert Picture';
+ mnuInsertSpecialChars := 'Insert special chars';
+ mnuInsertLineBreak := 'Insert line break';
+ //mnuInsertSep1: TMenuItem;
+ mnuInsertHtmlComment := 'Insert HTML comment';
+ mnuInsertJS := 'Insert Javascript';
+ mnuInsertCssStyle := 'Insert CSS Style';
//Layout menu
mnuLayout := '&Layout';
mnuLayoutBold := 'Bold';
@@ -274,6 +285,15 @@ begin
//View menu
mnuView := '&View';
mnuViewFontsize := '&Font Size';
+ mnuViewFontSizeUp := 'Bigger';
+ mnuViewFontsizeDown := 'Smaller';
+ //mnuViewHighlighter: TMenuItem;
+ mnuViewHLeftNone := 'None';
+ mnuTools := '&Tools';
+ mnuToolsLanguage := 'Language';
+ mnuToolsToolbars := 'Toolbars';
+ mnuToolbarsMain := 'Main Toolbar';
+ mnuToolbarsHTML := 'HTML Toolbar';
SLine := 'Line';
SCol := 'Col';
@@ -365,7 +385,8 @@ begin
mnuEditCopy := '&Kopiƫren';
mnuEditCut := 'K&nippen';
mnuEditPaste := '&Plakken';
- //mnuEditPasteSpecial := 'Plakken speciaal';
+ mnuEditPasteSpecial := 'Plakken speciaal';
+ mnuEditPasteTableContentTab := 'Tabelinhoud (Tab-gescheiden)';
mnuEditSelectAll := '&Alles selecteren';
//mnuSep12: TMenuItem;
mnuEditReplace := 'Ve&rvangen';
@@ -374,24 +395,26 @@ begin
//Insert menu
mnuHTMLTools := '&HTML Tools';
mnuInsertAnchor := 'Hyperlink invoegen';
- { mnuInsertList,
- 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;}
+ mnuHTMLTools := '&HTML Tools';
+ mnuInsertAnchor := 'Insert Hyperlink';
+ mnuInsertList := 'Lijst';
+ mnuInsertUList := 'Ongenummerde lijst';
+ mnuInsertNList := 'Genummerde lijst';
+ mnuInsertWordList := '&Woordenlijst';
+ mnuInsetListItem := 'Lijst item invoegen';
+ mnuInsertWordTerm := 'Woordenlijst term';
+ mnuInsertWordDefinition := 'Woordenlijst definitie';
+ mnuInsertTable := 'Tabel';
+ mnInsertNewTable := 'Tabel invoegen ...';
+ mnuInsertTableCell := 'Cel';
+ mnuInsertTableRow := 'Rij';
+ mnuInsertPicture := 'Plaatje invoegen';
+ mnuInsertSpecialChars := 'Speciale tekens';
+ mnuInsertLineBreak := 'Nieuwe regel';
+ //mnuInsertSep1: TMenuItem;
+ mnuInsertHtmlComment := 'Commentaar';
+ mnuInsertJS := 'JavaScript';
+ mnuInsertCssStyle := 'Css stijl';
//Layout menu
mnuLayout := '&Opmaak';
mnuLayoutBold := 'Vet';
@@ -425,6 +448,10 @@ begin
//View menu
mnuView := 'Bee&ld';
mnuViewFontsize := '&Tekengrootte';
+ mnuViewFontSizeUp := '&Groter';
+ mnuViewFontsizeDown := '&Kleiner';
+ //mnuViewHighlighter: TMenuItem;
+ mnuViewHLeftNone := 'Geen';
SLine := 'Rg';
SCol := 'Kol';
@@ -582,6 +609,7 @@ end;
procedure TTranslations.TranslateToLanguageID(AID: Integer);
begin
+ FLanguageID := AID;
case AID of
1: TranslateToDutch;
2: TranslateToPortuguese;
@@ -590,6 +618,11 @@ begin
end;
end;
+function TTranslations.GetCurrentLanguageID: Integer;
+begin
+ Result := FLanguageID;
+end;
+
initialization
vTranslations := TTranslations.Create;
diff --git a/applications/lazedit/main.lfm b/applications/lazedit/main.lfm
index 1d7ecc24d..4355028f6 100644
--- a/applications/lazedit/main.lfm
+++ b/applications/lazedit/main.lfm
@@ -127,6 +127,7 @@ object EPlusForm: TEPlusForm
ParentShowHint = False
ShowHint = True
TabOrder = 2
+ Visible = False
object AnchorBtn: TToolButton
Left = 1
Top = 2
@@ -1311,7 +1312,7 @@ object EPlusForm: TEPlusForm
left = 432
top = 96
object mnuFile: TMenuItem
- Caption = '&Bestand'
+ Caption = 'mnuFile'
OnClick = TopLevelMenuClick
object mnuFileOpen: TMenuItem
Action = acFileOpen
@@ -1433,7 +1434,7 @@ object EPlusForm: TEPlusForm
end
end
object mnuEdit: TMenuItem
- Caption = 'Be&werken'
+ Caption = 'mnuEdit'
OnClick = TopLevelMenuClick
object mnuEditUndo: TMenuItem
Caption = '&Ongedaan maken'
@@ -1651,7 +1652,7 @@ object EPlusForm: TEPlusForm
end
end
object mnuView: TMenuItem
- Caption = 'Bee&ld'
+ Caption = 'mnuView'
OnClick = TopLevelMenuClick
object mnuViewFont: TMenuItem
Caption = 'Lettertype...'
@@ -1739,9 +1740,9 @@ object EPlusForm: TEPlusForm
end
end
object mnuTools: TMenuItem
- Caption = 'Tools'
- object mnuLanguage: TMenuItem
- Caption = 'Language'
+ Caption = 'mnuTools'
+ object mnuToolsLanguage: TMenuItem
+ Caption = 'mnuToolsLanguage'
object mnuEnglish: TMenuItem
Caption = 'English'
OnClick = mnuLanguageChangeClick
@@ -1757,6 +1758,18 @@ object EPlusForm: TEPlusForm
OnClick = mnuLanguageChangeClick
end
end
+ object mnuToolsToolbars: TMenuItem
+ Caption = 'mnuToolsToolbars'
+ object mnuToolbarsMain: TMenuItem
+ Caption = 'mnuToolbarsMain'
+ Checked = True
+ OnClick = HandleToolbarsMenuClick
+ end
+ object mnuToolbarsHTML: TMenuItem
+ Caption = 'mnuToolbarsHTML'
+ OnClick = HandleToolbarsMenuClick
+ end
+ end
end
object mnuAbout: TMenuItem
Action = acAbout
diff --git a/applications/lazedit/main.pp b/applications/lazedit/main.pp
index b9d944682..d1c30ba92 100644
--- a/applications/lazedit/main.pp
+++ b/applications/lazedit/main.pp
@@ -46,7 +46,7 @@ uses
LMessages, {for overridden IsShortCut}
SynEdit, SynEditTypes,
EditorPageControl,
- EPlus_Commons, EPlus_Config, HtmlCode, HtmlDialogs, lazedit_constants,
+ EPlus_Commons, lazedit_config, HtmlCode, HtmlDialogs, lazedit_constants,
lazedit_translations{
MyFileUtils, Fcl_Misc, MruLists, MyGetOpt, ExtAbout, NlAutoTranslation};
@@ -108,14 +108,15 @@ type
HtmlToolbarImageList: TImageList;
MainToolbarImageList: TImageList;
MainMenu: TMainMenu;
+ mnuToolbarsHTML: TMenuItem;
+ mnuToolsToolbars: TMenuItem;
+ mnuToolbarsMain: TMenuItem;
mnuInsertSep2: TMenuItem;
- mnuLanguage: TMenuItem;
+ mnuToolsLanguage: TMenuItem;
mnuEnglish: TMenuItem;
mnuDutch: TMenuItem;
mnuPortuguese: TMenuItem;
mnuTools: TMenuItem;
- mnuEditPasteTableContentTab: TMenuItem;
- mnuEditPasteSpecial: TMenuItem;
mnuAbout: TMenuItem;
mnuViewFont: TMenuItem;
//File menu
@@ -159,6 +160,8 @@ type
mnuEditCopy: TMenuItem;
mnuEditCut: TMenuItem;
mnuEditPaste: TMenuItem;
+ mnuEditPasteSpecial: TMenuItem;
+ mnuEditPasteTableContentTab: TMenuItem;
mnuEditSelectAll: TMenuItem;
mnuSep12: TMenuItem;
mnuEditReplace: TMenuItem;
@@ -359,6 +362,7 @@ type
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
@@ -441,6 +445,7 @@ type
procedure SetUpAndConfigureLazEdit;
procedure DoTranslateAll;
procedure DoTranslateMenus;
+ procedure DoTranslatePopUpMenus;
procedure DoTranslateHints;
procedure SaveEplusConfiguration;
procedure CleanUp;
@@ -608,6 +613,20 @@ begin
Application.QueueAsyncCall(@ParseCommandLineFileNames, 0);
end;
+procedure TEPlusForm.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 TEPlusForm.mnuLanguageChangeClick(Sender: TObject);
begin
vTranslations.TranslateToLanguageID(Abs(TMenuItem(Sender).Tag));
@@ -1155,8 +1174,7 @@ end;
procedure TEPlusForm.DoTranslateMenus;
begin
{ MENUS }
-{ mnuEditPasteTableContentTab: TMenuItem;
- mnuEditPasteSpecial: TMenuItem;
+{
mnuAbout: TMenuItem;
mnuViewFont: TMenuItem;}
//File menu
@@ -1193,6 +1211,8 @@ begin
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;
@@ -1200,25 +1220,25 @@ begin
mnuEditFind.Caption := vTranslations.mnuEditFind;
//Insert menu
mnuHTMLTools.Caption := vTranslations.mnuHTMLTools;
- { 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;}
+ 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;
@@ -1252,13 +1272,13 @@ begin
//View menu
mnuView.Caption := vTranslations.mnuView;
mnuViewFontsize.Caption := vTranslations.mnuViewFontsize;
-{ mnuViewFontSizeUp: TMenuItem;
- mnuViewFontsizeDown: TMenuItem;
- mnuViewHighlighter: TMenuItem;
+ 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: TMenuItem;
- mnuViewHLeftHtml: TMenuItem;
+ mnuViewHLeftNone.Caption := vTranslations.mnuViewHLeftNone;
+{ mnuViewHLeftHtml: TMenuItem;
mnuViewHLeftXml: TMenuItem;
mnuViewHLeftCss: TMenuItem;
mnuViewHLeftJS: TMenuItem;
@@ -1272,22 +1292,32 @@ begin
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; }
+ 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 TEPlusForm.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 TEPlusForm.DoTranslateHints;
@@ -1328,7 +1358,7 @@ end;
procedure TEPlusForm.SaveEplusConfiguration;
begin
GatherAppOptions(AppOptions);
- if not EPlus_Config.SaveOptions(AppOptions, ConfigFileName) then
+ if not lazedit_config.SaveOptions(AppOptions, ConfigFileName) then
DebugLn('Fout bij opslaan van opties:',LineEnding,' ',ConfigFileName);
end;
@@ -1424,6 +1454,10 @@ begin
// Translation
vTranslations.TranslateToLanguageID(Options.Translation);
+
+ // Toolbars
+ mnuToolbarsHTML.Checked := Options.MainForm.ToolbarHTML;
+ HtmlToolbar.Visible := Options.MainForm.ToolbarHTML;
end;
procedure TEPlusForm.GatherAppOptions(var Options: TEplusOptions);
@@ -1463,8 +1497,13 @@ begin
else
Options.RecentFiles[i] := '';
end;
-end;
+ // Translation
+ Options.Translation := vTranslations.GetCurrentLanguageID();
+
+ // Toolbars
+ Options.MainForm.ToolbarHTML := mnuToolbarsHTML.Checked;
+end;
procedure TEPlusForm.ConstructOpenDialogFileFilters;
function AddWilds(const S: String): String;