From e8f34a8a6b2a0a91b1be29df53b3e7fc156cb729 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 24 Aug 2011 11:50:52 +0200 Subject: Shift comes after Ctrl or Alt In KeycodeToText(), 'Shift+' came before Ctrl or Alt. This is not normal practice, so I moved it. --- src/corelib/fpg_base.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/corelib') 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 -- cgit v1.2.3-70-g09d2