paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 04:29:11 +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)));

2
ide/keymapping.pp
View File

@ -2225,6 +2225,8 @@ end;
function TKeyCommandRelation.GetLocalizedName: string; function TKeyCommandRelation.GetLocalizedName: string;
begin begin
Result:=inherited GetLocalizedName;
if Result='' then
Result:=EditorCommandLocalizedName(Command,Name); Result:=EditorCommandLocalizedName(Command,Name);
end; end;