diff options
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/fpg_base.pas | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 14b03038..d638b3c5 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -787,12 +787,13 @@ var begin SetLength(Result, 0); - if ssShift in AShiftState then - Result := 'Shift+'; + { The order of these three are imprortant - don't change them } if ssCtrl in AShiftState then Result := Result + 'Ctrl+'; if ssAlt in AShiftState then Result := Result + 'Alt+'; + if ssShift in AShiftState then + Result := Result + 'Shift+'; if (AKey > Ord(' ')) and (AKey < 255) then begin |