diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-29 21:57:22 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-29 22:19:02 +0200 |
| commit | 7c05e9cc3c00654a283cfb782efafd84c42b7df7 (patch) | |
| tree | 7a0bca695fd8a9c5495f283ac1115fcb0bbb47b9 | |
| parent | 903fef27ec7f1cde49a038cfd8f9397328bc9a1e (diff) | |
| download | fpGUI-7c05e9cc3c00654a283cfb782efafd84c42b7df7.tar.xz | |
textedit: simplified a if statement
| -rw-r--r-- | examples/apps/ide/src/fpg_textedit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas index e54a7a20..456ae75f 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -873,7 +873,7 @@ begin begin if CaretPos.Y >= FLines.Count then Exit; - if not (ssShift in ShiftState) and not (ssCtrl in ShiftState) then + if ShiftState = [] then begin CaretPos.Y := CaretPos.Y + 1; // scroll text |