diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-17 16:48:02 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-17 16:48:02 +0200 |
| commit | 99911192db9c3a10c0ca2b43d34fd7343d70be76 (patch) | |
| tree | 583a90477931fa3197dad3c5255c97a74893159e | |
| parent | 7e493ce6be9a5a27053798b47d3d18ea2fadff30 (diff) | |
| download | fpGUI-99911192db9c3a10c0ca2b43d34fd7343d70be76.tar.xz | |
Fixed KeycodeToText that overwrote the ShiftState of previous values.
| -rw-r--r-- | src/corelib/fpg_base.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 970c2fee..14b03038 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -790,9 +790,9 @@ begin if ssShift in AShiftState then Result := 'Shift+'; if ssCtrl in AShiftState then - Result := 'Ctrl+'; + Result := Result + 'Ctrl+'; if ssAlt in AShiftState then - Result := 'Alt+'; + Result := Result + 'Alt+'; if (AKey > Ord(' ')) and (AKey < 255) then begin |