paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 01:48:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: retranslate editor options

Browse Source 
git-svn-id: trunk@41709 -
This commit is contained in:
mattias 2013-06-13 22:51:16 +00:00
parent dac652c7fc
commit 87b70e8023
4 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/editoroptions.pp
View File

@ -1419,6 +1419,7 @@ type
procedure Init;
procedure Load;
procedure Save;
procedure TranslateResourceStrings;
function GetAdditionalAttributeName(aha:TAdditionalHilightAttribute): string;
function GetSynEditOptionName(SynOption: TSynEditorOption): string;
function GetSynBeautifierIndentName(IndentType: TSynBeautifierIndentType): string;
@ -4465,7 +4466,6 @@ begin
FStringBreakEnabled := False;
FStringBreakAppend := ' +';
FStringBreakPrefix := '';
end;
procedure TEditorOptions.Load;
@ -4870,9 +4870,14 @@ begin
end;
end;
procedure TEditorOptions.TranslateResourceStrings;
begin
end;
function TEditorOptions.GetAdditionalAttributeName(aha:TAdditionalHilightAttribute): string;
begin
result:=GetEnumName(TypeInfo(TAdditionalHilightAttribute), ord(aha));
Result:=GetEnumName(TypeInfo(TAdditionalHilightAttribute), ord(aha));
end;
class function TEditorOptions.GetGroupCaption: string;

8
ide/main.pp
View File

@ -992,6 +992,7 @@ type
procedure SaveEnvironment(Immediately: boolean = false); override;
procedure LoadDesktopSettings(TheEnvironmentOptions: TEnvironmentOptions);
procedure SaveDesktopSettings(TheEnvironmentOptions: TEnvironmentOptions);
procedure PackageTranslated(APackage: TLazPackage); override;
end;
@ -4612,6 +4613,13 @@ begin
TheEnvironmentOptions.ObjectInspectorOptions.Assign(ObjectInspector1);
end;
procedure TMainIDE.PackageTranslated(APackage: TLazPackage);
begin
if APackage=PackageGraph.SynEditPackage then begin
EditorOpts.TranslateResourceStrings;
end;
end;
procedure TMainIDE.LoadDesktopSettings(TheEnvironmentOptions: TEnvironmentOptions);
begin
if ObjectInspector1<>nil then

3
ide/mainintf.pas
View File

@ -70,7 +70,7 @@ uses
ProjectDefs, Project, PublishModule, BuildLazDialog,
TransferMacros, IDEDefs, ProgressDlg,
EnvironmentOpts, EditorOptions, CompilerOptions, KeyMapping, IDEProcs,
IDEOptionDefs;
IDEOptionDefs, PackageDefs;
type
// The IDE is at anytime in a specific state:
@ -185,6 +185,7 @@ type
procedure SaveEnvironment(Immediately: boolean = false); virtual; abstract;
procedure UpdateHighlighters(Immediately: boolean = false); virtual; abstract;
procedure PackageTranslated(APackage: TLazPackage); virtual; abstract;
procedure SetRecentSubMenu(Section: TIDEMenuSection; FileList: TStringList;
OnClickEvent: TNotifyEvent); virtual; abstract;
function DoJumpToSourcePosition(const Filename: string;

1
packager/pkgmanager.pas
View File

@ -1905,6 +1905,7 @@ begin
TranslateWithFileMask(APackage,Directory,FallbackLang);
finally
TranslatedUnits.Free;
MainIDEInterface.PackageTranslated(APackage);
end;
end;