pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazedit: More translations and makes the toolbars configurable

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2296 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-02-16 10:02:11 +00:00
parent 473f704c1a
commit 88b5851266
5 changed files with 211 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/lazedit/lazedit.lpi
View File

@ -109,9 +109,9 @@
<UnitName Value="lazedit_constants"/> <UnitName Value="lazedit_constants"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="eplus_config.pp"/> <Filename Value="lazedit_config.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="EPlus_Config"/> <UnitName Value="lazedit_config"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="htmlcharmap.pp"/> <Filename Value="htmlcharmap.pp"/>

6
applications/lazedit/eplus_config.pp → applications/lazedit/lazedit_config.pas
View File

@ -32,7 +32,7 @@
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
} }
unit EPlus_Config; unit lazedit_config;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -49,6 +49,7 @@ type
MainForm: record MainForm: record
Position: TRect; //used as Left, Top, Widht, Height Position: TRect; //used as Left, Top, Widht, Height
InitialDir: String; InitialDir: String;
ToolbarHTML: Boolean;
end; end;
HtmlCharMapDlg: record HtmlCharMapDlg: record
Position: TPoint; Position: TPoint;
@ -91,6 +92,7 @@ const
idWidth = 'Width'; idWidth = 'Width';
idHeight = 'Height'; idHeight = 'Height';
idInitialDir = 'InitialDir'; //Last opened folder idInitialDir = 'InitialDir'; //Last opened folder
idToolbarHTML = 'HTML toolbar';
scHtmlCharMapDlg = 'CharMapDlg'; scHtmlCharMapDlg = 'CharMapDlg';
scNewHtmlDlg = 'NewHtmlDlg'; scNewHtmlDlg = 'NewHtmlDlg';
scAnchorDlg = 'AnchorDlg'; scAnchorDlg = 'AnchorDlg';
@ -127,6 +129,7 @@ begin
Options.MainForm.Position.Right := Ini.ReadInteger(scMainForm, idWidth, -1); Options.MainForm.Position.Right := Ini.ReadInteger(scMainForm, idWidth, -1);
Options.MainForm.Position.Bottom := Ini.ReadInteger(scMainForm, idHeight, -1); Options.MainForm.Position.Bottom := Ini.ReadInteger(scMainForm, idHeight, -1);
Options.MainForm.InitialDir := Ini.ReadString(scMainForm, idInitialDir, ''); Options.MainForm.InitialDir := Ini.ReadString(scMainForm, idInitialDir, '');
Options.MainForm.ToolbarHTML := Ini.ReadBool(scMainForm, idToolbarHTML, False);
//Dialogs //Dialogs
Options.NewHtmlDlg.Position.y := Ini.ReadInteger(scNewHtmlDlg, idTop, -1); 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, idWidth, Options.MainForm.Position.Right);
Ini.WriteInteger(scMainForm, idHeight, Options.MainForm.Position.Bottom); Ini.WriteInteger(scMainForm, idHeight, Options.MainForm.Position.Bottom);
Ini.WriteString(scMainForm, idInitialDir, Options.MainForm.InitialDir); Ini.WriteString(scMainForm, idInitialDir, Options.MainForm.InitialDir);
Ini.WriteBool(scMainForm, idToolbarHTML, Options.MainForm.ToolbarHTML);
//Dialogs //Dialogs
Ini.WriteInteger(scNewHtmlDlg, idTop, Options.NewHtmlDlg.Position.y); Ini.WriteInteger(scNewHtmlDlg, idTop, Options.NewHtmlDlg.Position.y);

161
applications/lazedit/lazedit_translations.pas
View File

@ -12,6 +12,8 @@ type
{ TTranslations } { TTranslations }
TTranslations = class(TObject) TTranslations = class(TObject)
private
FLanguageId: Integer;
public public
{ Main form } { Main form }
{ mnuEditPasteTableContentTab: TMenuItem; { mnuEditPasteTableContentTab: TMenuItem;
@ -52,6 +54,8 @@ type
mnuEditCopy, mnuEditCopy,
mnuEditCut, mnuEditCut,
mnuEditPaste, mnuEditPaste,
mnuEditPasteSpecial,
mnuEditPasteTableContentTab,
mnuEditSelectAll, mnuEditSelectAll,
//mnuSep12: TMenuItem; //mnuSep12: TMenuItem;
mnuEditReplace, mnuEditReplace,
@ -60,24 +64,24 @@ type
//Insert menu //Insert menu
mnuHTMLTools, mnuHTMLTools,
mnuInsertAnchor, mnuInsertAnchor,
{ mnuInsertList, mnuInsertList,
mnuInsertUList: TMenuItem; mnuInsertUList,
mnuInsertNList: TMenuItem; mnuInsertNList,
mnuInsertWordList: TMenuItem; mnuInsertWordList,
mnuInsetListItem: TMenuItem; mnuInsetListItem,
mnuInsertWordTerm: TMenuItem; mnuInsertWordTerm,
mnuInsertWordDefinition: TMenuItem; mnuInsertWordDefinition,
mnuInsertTable: TMenuItem; mnuInsertTable,
mnInsertNewTable: TMenuItem; mnInsertNewTable,
mnuInsertTableCell: TMenuItem; mnuInsertTableCell,
mnuInsertTableRow: TMenuItem; mnuInsertTableRow,
mnuInsertPicture: TMenuItem; mnuInsertPicture,
mnuInsertSpecialChars: TMenuItem; mnuInsertSpecialChars,
mnuInsertLineBreak: TMenuItem; mnuInsertLineBreak,
mnuInsertSep1: TMenuItem; //mnuInsertSep1: TMenuItem;
mnuInsertHtmlComment: TMenuItem; mnuInsertHtmlComment,
mnuInsertJS: TMenuItem; mnuInsertJS,
mnuInsertCssStyle: TMenuItem;} mnuInsertCssStyle: string;
//Layout menu //Layout menu
mnuLayout, mnuLayout,
mnuLayoutBold, mnuLayoutBold,
@ -110,14 +114,14 @@ type
mnuGroupingSpan: string; mnuGroupingSpan: string;
//View menu //View menu
mnuView, mnuView,
mnuViewFontsize: string; mnuViewFontsize,
{ mnuViewFontSizeUp: TMenuItem; mnuViewFontSizeUp,
mnuViewFontsizeDown: TMenuItem; mnuViewFontsizeDown,
mnuViewHighlighter: TMenuItem; // mnuViewHighlighter: TMenuItem;
//these menu items MUST have names that are built like this: //these menu items MUST have names that are built like this:
//'mnuViewHL' + eftNames[SomeIndex] //'mnuViewHL' + eftNames[SomeIndex]
mnuViewHLeftNone: TMenuItem; mnuViewHLeftNone: string;
mnuViewHLeftHtml: TMenuItem; { mnuViewHLeftHtml: TMenuItem;
mnuViewHLeftXml: TMenuItem; mnuViewHLeftXml: TMenuItem;
mnuViewHLeftCss: TMenuItem; mnuViewHLeftCss: TMenuItem;
mnuViewHLeftJS: TMenuItem; mnuViewHLeftJS: TMenuItem;
@ -131,8 +135,13 @@ type
mnuViewHLeftBat: TMenuItem; mnuViewHLeftBat: TMenuItem;
mnuViewHLeftDiff: TMenuItem; mnuViewHLeftDiff: TMenuItem;
mnuViewHLeftIni: TMenuItem; mnuViewHLeftIni: TMenuItem;
mnuViewHLeftPo: TMenuItem; mnuViewHLeftPo: TMenuItem;}
//Popup menus mnuTools,
mnuToolsLanguage,
mnuToolsToolbars,
mnuToolbarsMain,
mnuToolbarsHTML: string;
{ //Popup menus
//Popup menu for editor //Popup menu for editor
EditorPopupMenu: TPopupMenu; EditorPopupMenu: TPopupMenu;
mnuEditPopupSelectAll: TMenuItem; mnuEditPopupSelectAll: TMenuItem;
@ -170,6 +179,7 @@ type
procedure TranslateToDutch; procedure TranslateToDutch;
procedure TranslateToPortuguese; procedure TranslateToPortuguese;
procedure TranslateToLanguageID(AID: Integer); procedure TranslateToLanguageID(AID: Integer);
function GetCurrentLanguageID: Integer;
end; end;
var var
@ -214,7 +224,8 @@ begin
mnuEditCopy := 'Copy'; mnuEditCopy := 'Copy';
mnuEditCut := 'Cut'; mnuEditCut := 'Cut';
mnuEditPaste := 'Paste'; mnuEditPaste := 'Paste';
//mnuEditPasteSpecial := 'Plakken speciaal'; mnuEditPasteSpecial := 'Paste special';
mnuEditPasteTableContentTab := 'Paste table content';
mnuEditSelectAll := 'Select all'; mnuEditSelectAll := 'Select all';
//mnuSep12: TMenuItem; //mnuSep12: TMenuItem;
mnuEditReplace := '&Replace'; mnuEditReplace := '&Replace';
@ -223,24 +234,24 @@ begin
//HTML Tools menu //HTML Tools menu
mnuHTMLTools := '&HTML Tools'; mnuHTMLTools := '&HTML Tools';
mnuInsertAnchor := 'Insert Hyperlink'; mnuInsertAnchor := 'Insert Hyperlink';
{ mnuInsertList, mnuInsertList := 'Insert list...';
mnuInsertUList: TMenuItem; mnuInsertUList := 'Bullets list';
mnuInsertNList: TMenuItem; mnuInsertNList := 'Numeric list';
mnuInsertWordList: TMenuItem; mnuInsertWordList := 'List of words';
mnuInsetListItem: TMenuItem; mnuInsetListItem := 'List item';
mnuInsertWordTerm: TMenuItem; mnuInsertWordTerm := 'Word term';
mnuInsertWordDefinition: TMenuItem; mnuInsertWordDefinition := 'Word definition';
mnuInsertTable: TMenuItem; mnuInsertTable := 'Insert Table';
mnInsertNewTable: TMenuItem; mnInsertNewTable := 'New table';
mnuInsertTableCell: TMenuItem; mnuInsertTableCell := 'Table cell';
mnuInsertTableRow: TMenuItem; mnuInsertTableRow := 'Table row';
mnuInsertPicture: TMenuItem; mnuInsertPicture := 'Insert Picture';
mnuInsertSpecialChars: TMenuItem; mnuInsertSpecialChars := 'Insert special chars';
mnuInsertLineBreak: TMenuItem; mnuInsertLineBreak := 'Insert line break';
mnuInsertSep1: TMenuItem; //mnuInsertSep1: TMenuItem;
mnuInsertHtmlComment: TMenuItem; mnuInsertHtmlComment := 'Insert HTML comment';
mnuInsertJS: TMenuItem; mnuInsertJS := 'Insert Javascript';
mnuInsertCssStyle: TMenuItem;} mnuInsertCssStyle := 'Insert CSS Style';
//Layout menu //Layout menu
mnuLayout := '&Layout'; mnuLayout := '&Layout';
mnuLayoutBold := 'Bold'; mnuLayoutBold := 'Bold';
@ -274,6 +285,15 @@ begin
//View menu //View menu
mnuView := '&View'; mnuView := '&View';
mnuViewFontsize := '&Font Size'; 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'; SLine := 'Line';
SCol := 'Col'; SCol := 'Col';
@ -365,7 +385,8 @@ begin
mnuEditCopy := '&Kopiëren'; mnuEditCopy := '&Kopiëren';
mnuEditCut := 'K&nippen'; mnuEditCut := 'K&nippen';
mnuEditPaste := '&Plakken'; mnuEditPaste := '&Plakken';
//mnuEditPasteSpecial := 'Plakken speciaal'; mnuEditPasteSpecial := 'Plakken speciaal';
mnuEditPasteTableContentTab := 'Tabelinhoud (Tab-gescheiden)';
mnuEditSelectAll := '&Alles selecteren'; mnuEditSelectAll := '&Alles selecteren';
//mnuSep12: TMenuItem; //mnuSep12: TMenuItem;
mnuEditReplace := 'Ve&rvangen'; mnuEditReplace := 'Ve&rvangen';
@ -374,24 +395,26 @@ begin
//Insert menu //Insert menu
mnuHTMLTools := '&HTML Tools'; mnuHTMLTools := '&HTML Tools';
mnuInsertAnchor := 'Hyperlink invoegen'; mnuInsertAnchor := 'Hyperlink invoegen';
{ mnuInsertList, mnuHTMLTools := '&HTML Tools';
mnuInsertUList: TMenuItem; mnuInsertAnchor := 'Insert Hyperlink';
mnuInsertNList: TMenuItem; mnuInsertList := 'Lijst';
mnuInsertWordList: TMenuItem; mnuInsertUList := 'Ongenummerde lijst';
mnuInsetListItem: TMenuItem; mnuInsertNList := 'Genummerde lijst';
mnuInsertWordTerm: TMenuItem; mnuInsertWordList := '&Woordenlijst';
mnuInsertWordDefinition: TMenuItem; mnuInsetListItem := 'Lijst item invoegen';
mnuInsertTable: TMenuItem; mnuInsertWordTerm := 'Woordenlijst term';
mnInsertNewTable: TMenuItem; mnuInsertWordDefinition := 'Woordenlijst definitie';
mnuInsertTableCell: TMenuItem; mnuInsertTable := 'Tabel';
mnuInsertTableRow: TMenuItem; mnInsertNewTable := 'Tabel invoegen ...';
mnuInsertPicture: TMenuItem; mnuInsertTableCell := 'Cel';
mnuInsertSpecialChars: TMenuItem; mnuInsertTableRow := 'Rij';
mnuInsertLineBreak: TMenuItem; mnuInsertPicture := 'Plaatje invoegen';
mnuInsertSep1: TMenuItem; mnuInsertSpecialChars := 'Speciale tekens';
mnuInsertHtmlComment: TMenuItem; mnuInsertLineBreak := 'Nieuwe regel';
mnuInsertJS: TMenuItem; //mnuInsertSep1: TMenuItem;
mnuInsertCssStyle: TMenuItem;} mnuInsertHtmlComment := 'Commentaar';
mnuInsertJS := 'JavaScript';
mnuInsertCssStyle := 'Css stijl';
//Layout menu //Layout menu
mnuLayout := '&Opmaak'; mnuLayout := '&Opmaak';
mnuLayoutBold := 'Vet'; mnuLayoutBold := 'Vet';
@ -425,6 +448,10 @@ begin
//View menu //View menu
mnuView := 'Bee&ld'; mnuView := 'Bee&ld';
mnuViewFontsize := '&Tekengrootte'; mnuViewFontsize := '&Tekengrootte';
mnuViewFontSizeUp := '&Groter';
mnuViewFontsizeDown := '&Kleiner';
//mnuViewHighlighter: TMenuItem;
mnuViewHLeftNone := 'Geen';
SLine := 'Rg'; SLine := 'Rg';
SCol := 'Kol'; SCol := 'Kol';
@ -582,6 +609,7 @@ end;
procedure TTranslations.TranslateToLanguageID(AID: Integer); procedure TTranslations.TranslateToLanguageID(AID: Integer);
begin begin
FLanguageID := AID;
case AID of case AID of
1: TranslateToDutch; 1: TranslateToDutch;
2: TranslateToPortuguese; 2: TranslateToPortuguese;
@ -590,6 +618,11 @@ begin
end; end;
end; end;
function TTranslations.GetCurrentLanguageID: Integer;
begin
Result := FLanguageID;
end;
initialization initialization
vTranslations := TTranslations.Create; vTranslations := TTranslations.Create;

25
applications/lazedit/main.lfm
View File

@ -127,6 +127,7 @@ object EPlusForm: TEPlusForm
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 2 TabOrder = 2
Visible = False
object AnchorBtn: TToolButton object AnchorBtn: TToolButton
Left = 1 Left = 1
Top = 2 Top = 2
@ -1311,7 +1312,7 @@ object EPlusForm: TEPlusForm
left = 432 left = 432
top = 96 top = 96
object mnuFile: TMenuItem object mnuFile: TMenuItem
Caption = '&Bestand' Caption = 'mnuFile'
OnClick = TopLevelMenuClick OnClick = TopLevelMenuClick
object mnuFileOpen: TMenuItem object mnuFileOpen: TMenuItem
Action = acFileOpen Action = acFileOpen
@ -1433,7 +1434,7 @@ object EPlusForm: TEPlusForm
end end
end end
object mnuEdit: TMenuItem object mnuEdit: TMenuItem
Caption = 'Be&werken' Caption = 'mnuEdit'
OnClick = TopLevelMenuClick OnClick = TopLevelMenuClick
object mnuEditUndo: TMenuItem object mnuEditUndo: TMenuItem
Caption = '&Ongedaan maken' Caption = '&Ongedaan maken'
@ -1651,7 +1652,7 @@ object EPlusForm: TEPlusForm
end end
end end
object mnuView: TMenuItem object mnuView: TMenuItem
Caption = 'Bee&ld' Caption = 'mnuView'
OnClick = TopLevelMenuClick OnClick = TopLevelMenuClick
object mnuViewFont: TMenuItem object mnuViewFont: TMenuItem
Caption = 'Lettertype...' Caption = 'Lettertype...'
@ -1739,9 +1740,9 @@ object EPlusForm: TEPlusForm
end end
end end
object mnuTools: TMenuItem object mnuTools: TMenuItem
Caption = 'Tools' Caption = 'mnuTools'
object mnuLanguage: TMenuItem object mnuToolsLanguage: TMenuItem
Caption = 'Language' Caption = 'mnuToolsLanguage'
object mnuEnglish: TMenuItem object mnuEnglish: TMenuItem
Caption = 'English' Caption = 'English'
OnClick = mnuLanguageChangeClick OnClick = mnuLanguageChangeClick
@ -1757,6 +1758,18 @@ object EPlusForm: TEPlusForm
OnClick = mnuLanguageChangeClick OnClick = mnuLanguageChangeClick
end end
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 end
object mnuAbout: TMenuItem object mnuAbout: TMenuItem
Action = acAbout Action = acAbout

107
applications/lazedit/main.pp
View File

@ -46,7 +46,7 @@ uses
LMessages, {for overridden IsShortCut} LMessages, {for overridden IsShortCut}
SynEdit, SynEditTypes, SynEdit, SynEditTypes,
EditorPageControl, EditorPageControl,
EPlus_Commons, EPlus_Config, HtmlCode, HtmlDialogs, lazedit_constants, EPlus_Commons, lazedit_config, HtmlCode, HtmlDialogs, lazedit_constants,
lazedit_translations{ lazedit_translations{
MyFileUtils, Fcl_Misc, MruLists, MyGetOpt, ExtAbout, NlAutoTranslation}; MyFileUtils, Fcl_Misc, MruLists, MyGetOpt, ExtAbout, NlAutoTranslation};
@ -108,14 +108,15 @@ type
HtmlToolbarImageList: TImageList; HtmlToolbarImageList: TImageList;
MainToolbarImageList: TImageList; MainToolbarImageList: TImageList;
MainMenu: TMainMenu; MainMenu: TMainMenu;
mnuToolbarsHTML: TMenuItem;
mnuToolsToolbars: TMenuItem;
mnuToolbarsMain: TMenuItem;
mnuInsertSep2: TMenuItem; mnuInsertSep2: TMenuItem;
mnuLanguage: TMenuItem; mnuToolsLanguage: TMenuItem;
mnuEnglish: TMenuItem; mnuEnglish: TMenuItem;
mnuDutch: TMenuItem; mnuDutch: TMenuItem;
mnuPortuguese: TMenuItem; mnuPortuguese: TMenuItem;
mnuTools: TMenuItem; mnuTools: TMenuItem;
mnuEditPasteTableContentTab: TMenuItem;
mnuEditPasteSpecial: TMenuItem;
mnuAbout: TMenuItem; mnuAbout: TMenuItem;
mnuViewFont: TMenuItem; mnuViewFont: TMenuItem;
//File menu //File menu
@ -159,6 +160,8 @@ type
mnuEditCopy: TMenuItem; mnuEditCopy: TMenuItem;
mnuEditCut: TMenuItem; mnuEditCut: TMenuItem;
mnuEditPaste: TMenuItem; mnuEditPaste: TMenuItem;
mnuEditPasteSpecial: TMenuItem;
mnuEditPasteTableContentTab: TMenuItem;
mnuEditSelectAll: TMenuItem; mnuEditSelectAll: TMenuItem;
mnuSep12: TMenuItem; mnuSep12: TMenuItem;
mnuEditReplace: TMenuItem; mnuEditReplace: TMenuItem;
@ -359,6 +362,7 @@ type
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String); procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure HandleToolbarsMenuClick(Sender: TObject);
procedure mnuLanguageChangeClick(Sender: TObject); procedure mnuLanguageChangeClick(Sender: TObject);
//Main menu events //Main menu events
@ -441,6 +445,7 @@ type
procedure SetUpAndConfigureLazEdit; procedure SetUpAndConfigureLazEdit;
procedure DoTranslateAll; procedure DoTranslateAll;
procedure DoTranslateMenus; procedure DoTranslateMenus;
procedure DoTranslatePopUpMenus;
procedure DoTranslateHints; procedure DoTranslateHints;
procedure SaveEplusConfiguration; procedure SaveEplusConfiguration;
procedure CleanUp; procedure CleanUp;
@ -608,6 +613,20 @@ begin
Application.QueueAsyncCall(@ParseCommandLineFileNames, 0); Application.QueueAsyncCall(@ParseCommandLineFileNames, 0);
end; 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); procedure TEPlusForm.mnuLanguageChangeClick(Sender: TObject);
begin begin
vTranslations.TranslateToLanguageID(Abs(TMenuItem(Sender).Tag)); vTranslations.TranslateToLanguageID(Abs(TMenuItem(Sender).Tag));
@ -1155,8 +1174,7 @@ end;
procedure TEPlusForm.DoTranslateMenus; procedure TEPlusForm.DoTranslateMenus;
begin begin
{ MENUS } { MENUS }
{ mnuEditPasteTableContentTab: TMenuItem; {
mnuEditPasteSpecial: TMenuItem;
mnuAbout: TMenuItem; mnuAbout: TMenuItem;
mnuViewFont: TMenuItem;} mnuViewFont: TMenuItem;}
//File menu //File menu
@ -1193,6 +1211,8 @@ begin
mnuEditCopy.Caption := vTranslations.mnuEditCopy; mnuEditCopy.Caption := vTranslations.mnuEditCopy;
mnuEditCut.Caption := vTranslations.mnuEditCut; mnuEditCut.Caption := vTranslations.mnuEditCut;
mnuEditPaste.Caption := vTranslations.mnuEditPaste; mnuEditPaste.Caption := vTranslations.mnuEditPaste;
mnuEditPasteSpecial.Caption := vTranslations.mnuEditPasteSpecial;
mnuEditPasteTableContentTab.Caption := vTranslations.mnuEditPasteTableContentTab;
mnuEditSelectAll.Caption := vTranslations.mnuEditSelectAll; mnuEditSelectAll.Caption := vTranslations.mnuEditSelectAll;
//mnuSep12: TMenuItem; //mnuSep12: TMenuItem;
mnuEditReplace.Caption := vTranslations.mnuEditReplace; mnuEditReplace.Caption := vTranslations.mnuEditReplace;
@ -1200,25 +1220,25 @@ begin
mnuEditFind.Caption := vTranslations.mnuEditFind; mnuEditFind.Caption := vTranslations.mnuEditFind;
//Insert menu //Insert menu
mnuHTMLTools.Caption := vTranslations.mnuHTMLTools; mnuHTMLTools.Caption := vTranslations.mnuHTMLTools;
{ mnuInsertAnchor: TMenuItem; mnuInsertAnchor.Caption := vTranslations.mnuInsertAnchor;
mnuInsertList: TMenuItem; mnuInsertList.Caption := vTranslations.mnuInsertList;
mnuInsertUList: TMenuItem; mnuInsertUList.Caption := vTranslations.mnuInsertUList;
mnuInsertNList: TMenuItem; mnuInsertNList.Caption := vTranslations.mnuInsertNList;
mnuInsertWordList: TMenuItem; mnuInsertWordList.Caption := vTranslations.mnuInsertWordList;
mnuInsetListItem: TMenuItem; mnuInsetListItem.Caption := vTranslations.mnuInsetListItem;
mnuInsertWordTerm: TMenuItem; mnuInsertWordTerm.Caption := vTranslations.mnuInsertWordTerm;
mnuInsertWordDefinition: TMenuItem; mnuInsertWordDefinition.Caption := vTranslations.mnuInsertWordDefinition;
mnuInsertTable: TMenuItem; mnuInsertTable.Caption := vTranslations.mnuInsertTable;
mnInsertNewTable: TMenuItem; mnInsertNewTable.Caption := vTranslations.mnInsertNewTable;
mnuInsertTableCell: TMenuItem; mnuInsertTableCell.Caption := vTranslations.mnuInsertTableCell;
mnuInsertTableRow: TMenuItem; mnuInsertTableRow.Caption := vTranslations.mnuInsertTableRow;
mnuInsertPicture: TMenuItem; mnuInsertPicture.Caption := vTranslations.mnuInsertPicture;
mnuInsertSpecialChars: TMenuItem; mnuInsertSpecialChars.Caption := vTranslations.mnuInsertSpecialChars;
mnuInsertLineBreak: TMenuItem; mnuInsertLineBreak.Caption := vTranslations.mnuInsertLineBreak;
mnuInsertSep1: TMenuItem; //mnuInsertSep1: TMenuItem;
mnuInsertHtmlComment: TMenuItem; mnuInsertHtmlComment.Caption := vTranslations.mnuInsertHtmlComment;
mnuInsertJS: TMenuItem; mnuInsertJS.Caption := vTranslations.mnuInsertJS;
mnuInsertCssStyle: TMenuItem;} mnuInsertCssStyle.Caption := vTranslations.mnuInsertCssStyle;
//Layout menu //Layout menu
mnuLayout.Caption := vTranslations.mnuLayout; mnuLayout.Caption := vTranslations.mnuLayout;
mnuLayoutBold.Caption := vTranslations.mnuLayoutBold; mnuLayoutBold.Caption := vTranslations.mnuLayoutBold;
@ -1252,13 +1272,13 @@ begin
//View menu //View menu
mnuView.Caption := vTranslations.mnuView; mnuView.Caption := vTranslations.mnuView;
mnuViewFontsize.Caption := vTranslations.mnuViewFontsize; mnuViewFontsize.Caption := vTranslations.mnuViewFontsize;
{ mnuViewFontSizeUp: TMenuItem; mnuViewFontSizeUp.Caption := vTranslations.mnuViewFontSizeUp;
mnuViewFontsizeDown: TMenuItem; mnuViewFontsizeDown.Caption := vTranslations.mnuViewFontsizeDown;
mnuViewHighlighter: TMenuItem; //mnuViewHighlighter: TMenuItem;
//these menu items MUST have names that are built like this: //these menu items MUST have names that are built like this:
//'mnuViewHL' + eftNames[SomeIndex] //'mnuViewHL' + eftNames[SomeIndex]
mnuViewHLeftNone: TMenuItem; mnuViewHLeftNone.Caption := vTranslations.mnuViewHLeftNone;
mnuViewHLeftHtml: TMenuItem; { mnuViewHLeftHtml: TMenuItem;
mnuViewHLeftXml: TMenuItem; mnuViewHLeftXml: TMenuItem;
mnuViewHLeftCss: TMenuItem; mnuViewHLeftCss: TMenuItem;
mnuViewHLeftJS: TMenuItem; mnuViewHLeftJS: TMenuItem;
@ -1272,8 +1292,18 @@ begin
mnuViewHLeftBat: TMenuItem; mnuViewHLeftBat: TMenuItem;
mnuViewHLeftDiff: TMenuItem; mnuViewHLeftDiff: TMenuItem;
mnuViewHLeftIni: TMenuItem; mnuViewHLeftIni: TMenuItem;
mnuViewHLeftPo: TMenuItem; mnuViewHLeftPo: TMenuItem;}
//Popup menus // 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 //Popup menu for editor
EditorPopupMenu: TPopupMenu; EditorPopupMenu: TPopupMenu;
mnuEditPopupSelectAll: TMenuItem; mnuEditPopupSelectAll: TMenuItem;
@ -1328,7 +1358,7 @@ end;
procedure TEPlusForm.SaveEplusConfiguration; procedure TEPlusForm.SaveEplusConfiguration;
begin begin
GatherAppOptions(AppOptions); 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); DebugLn('Fout bij opslaan van opties:',LineEnding,' ',ConfigFileName);
end; end;
@ -1424,6 +1454,10 @@ begin
// Translation // Translation
vTranslations.TranslateToLanguageID(Options.Translation); vTranslations.TranslateToLanguageID(Options.Translation);
// Toolbars
mnuToolbarsHTML.Checked := Options.MainForm.ToolbarHTML;
HtmlToolbar.Visible := Options.MainForm.ToolbarHTML;
end; end;
procedure TEPlusForm.GatherAppOptions(var Options: TEplusOptions); procedure TEPlusForm.GatherAppOptions(var Options: TEplusOptions);
@ -1463,8 +1497,13 @@ begin
else else
Options.RecentFiles[i] := ''; Options.RecentFiles[i] := '';
end; end;
end;
// Translation
Options.Translation := vTranslations.GetCurrentLanguageID();
// Toolbars
Options.MainForm.ToolbarHTML := mnuToolbarsHTML.Checked;
end;
procedure TEPlusForm.ConstructOpenDialogFileFilters; procedure TEPlusForm.ConstructOpenDialogFileFilters;
function AddWilds(const S: String): String; function AddWilds(const S: String): String;