paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:55:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed showing localized name in keymapping

Browse Source 
git-svn-id: trunk@7873 -
This commit is contained in:
mattias 2005-10-01 09:25:29 +00:00
parent ca1dcc5bcd
commit 0187330ac0
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/editoroptions.pp
View File

@ -3319,7 +3319,7 @@ var
begin begin
with KeyRelation do with KeyRelation do
begin begin
Result := copy(EditorCommandLocalizedName(Command, Name), 1, 37); Result := copy(LocalizedName, 1, 40);
if length(Result) < 37 then if length(Result) < 37 then
begin begin
SetLength(s, (37 - length(Result))); SetLength(s, (37 - length(Result)));

4
ide/keymapping.pp
View File

@ -2225,7 +2225,9 @@ end;
function TKeyCommandRelation.GetLocalizedName: string; function TKeyCommandRelation.GetLocalizedName: string;
begin begin
Result:=EditorCommandLocalizedName(Command,Name); Result:=inherited GetLocalizedName;
if Result='' then
Result:=EditorCommandLocalizedName(Command,Name);
end; end;
{ TKeyCommandRelationList } { TKeyCommandRelationList }

2
ideintf/idecommands.pas
View File

@ -139,7 +139,7 @@ type
FCategory: TIDECommandCategory; FCategory: TIDECommandCategory;
FCommand: word; FCommand: word;
FLocalizedName: string; FLocalizedName: string;
FName: String; FName: String;
FShortcutA: TIDEShortCut; FShortcutA: TIDEShortCut;
FShortcutB: TIDEShortCut; FShortcutB: TIDEShortCut;
protected protected