diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-24 11:50:52 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-24 11:50:52 +0200 |
| commit | e8f34a8a6b2a0a91b1be29df53b3e7fc156cb729 (patch) | |
| tree | aba9d527b5377177326a0383fb581e2ecaa2ed73 | |
| parent | 43f1147fdef3ca6166f65034c5505b1856baaaac (diff) | |
| download | fpGUI-e8f34a8a6b2a0a91b1be29df53b3e7fc156cb729.tar.xz | |
Shift comes after Ctrl or Alt
In KeycodeToText(), 'Shift+' came before Ctrl or Alt. This is not normal
practice, so I moved it.
| -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 |