diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-09-19 19:48:05 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-09-19 19:48:05 +0200 |
| commit | 0ad47998ed11614ac4fb95f2f612ecb796c5904d (patch) | |
| tree | f40e50fe910fe537319d77b00a79c88aab2905f3 /examples | |
| parent | a90ff661379d884072bccfd59acc627c23743874 (diff) | |
| download | fpGUI-0ad47998ed11614ac4fb95f2f612ecb796c5904d.tar.xz | |
textedit: second expression is not needed.
Because we already did that a few lines earlier.
Diffstat (limited to 'examples')
| -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 13ef0272..38a86a23 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -728,7 +728,7 @@ begin begin if CaretPos.Y <= (FLines.Count-1) then begin - if (ssCtrl in ShiftState) and (CaretPos.Y > 0) then + if (ssCtrl in ShiftState) then begin CaretPos.Y := CaretPos.Y - 1; CaretPos.X := UTF8Length(FLines[CaretPos.Y]); |