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
with KeyRelation do
begin
Result := copy(EditorCommandLocalizedName(Command, Name), 1, 37);
Result := copy(LocalizedName, 1, 40);
if length(Result) < 37 then
begin
SetLength(s, (37 - length(Result)));

2
ide/keymapping.pp
View File

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