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

4
ide/keymapping.pp
View File

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

2
ideintf/idecommands.pas
View File

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