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

IDE: Refactoring the KeyValuesToCaptionStr function of the IdeCommands unit

Browse Source
This commit is contained in:
n7800 2024-10-26 02:03:49 +05:00 committed by Juha
parent b33ae45ea6
commit 9de423baed
1 changed files with 13 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/ideintf/idecommands.pas
View File

@ -966,31 +966,27 @@ begin
end;
function KeyValuesToCaptionStr(const ShortcutA, ShortcutB: TIDEShortCut; Brackets: Char): String;
function AddBrakets(S: String): String;
//
function GetShortCut(aShortCut: TIDEShortCut): String;
begin
Result := KeyAndShiftStateToEditorKeyString(aShortCut);
if Brackets = '[' then
Result := '[' + S + ']'
Result := '[' + Result + ']'
else if Brackets = '(' then
Result := '(' + S + ')'
Result := '(' + Result + ')'
else if Brackets > #0 then
Result := Brackets + S + Brackets
else
Result := S;
Result := Brackets + Result + Brackets;
end;
//
begin
Result := '';
if (ShortcutA.Key1 = VK_UNKNOWN) and (ShortcutB.Key1 = VK_UNKNOWN) then
Result := Result{ + lisNone2 }
Result := ''
else if ShortcutA.Key1 = VK_UNKNOWN then
Result := GetShortCut(ShortcutB)
else if ShortcutB.Key1 = VK_UNKNOWN then
Result := GetShortCut(ShortcutA)
else
if (ShortcutA.Key1 = VK_UNKNOWN) then
Result := Result + AddBrakets(KeyAndShiftStateToEditorKeyString(ShortcutB))
else
if (ShortcutB.Key1 = VK_UNKNOWN) then
Result := Result + AddBrakets(KeyAndShiftStateToEditorKeyString(ShortcutA))
else
Result := Result + AddBrakets(KeyAndShiftStateToEditorKeyString(ShortcutA))
+ ' / ' +
AddBrakets(KeyAndShiftStateToEditorKeyString(ShortcutB));
Result := GetShortCut(ShortcutA) + ' / ' + GetShortCut(ShortcutB);
end;
type