diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-02-21 16:50:47 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-02-21 16:50:47 +0200 |
| commit | 2ec96f0d4afbaff774da3347dfb0c557c7c6f09e (patch) | |
| tree | 0d75081d0cf634231a800d9f6e4622dec3a9cf4e | |
| parent | 2b3415d96fd09d77df76fca5a48c9c3e97891250 (diff) | |
| download | fpGUI-2ec96f0d4afbaff774da3347dfb0c557c7c6f09e.tar.xz | |
fpg_edit: again found some TAB character indentation lines - replaces with Space indentation.
| -rw-r--r-- | src/gui/fpg_edit.pas | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index 72befedb..5308e111 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2012 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -12,7 +12,8 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Description: - Defines a Text Edit control. Also known a Text Entry control. + Defines a Text Edit widget. Also known a single line Text Entry widget. + This unit also defines numeric edit widgets. } // Future enhancements: @@ -1874,8 +1875,8 @@ begin txt := Copy(ftext, 2, Length(fText) - 1) else txt := fText; - while UTF8Pos(FThousandSeparator, txt) > 0 do - txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt))) + while UTF8Pos(FThousandSeparator, txt) > 0 do + txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt))) +UTF8Copy(txt, Succ(UTF8Pos(FThousandSeparator, txt)), Length(txt) - UTF8Pos(FThousandSeparator, txt)); if UTF8Copy(fText, 1, 1) = '-' then fText := '-' + txt @@ -1999,8 +2000,8 @@ begin txt := Copy(ftext, 2, Length(fText) - 1) else txt := fText; - while UTF8Pos(FThousandSeparator, txt) > 0 do - txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt))) + while UTF8Pos(FThousandSeparator, txt) > 0 do + txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt))) +UTF8Copy(txt, Succ(UTF8Pos(FThousandSeparator, txt)), UTF8Length(txt) - UTF8Pos(FThousandSeparator, txt)); if Copy(fText, 1, 1) = '-' then // No need for utf8 version here fText := '-' + txt @@ -2144,8 +2145,8 @@ begin txt := Copy(ftext, 2, Length(fText) - 1) else txt := fText; - while UTF8Pos(FThousandSeparator, txt) > 0 do - txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt))) + while UTF8Pos(FThousandSeparator, txt) > 0 do + txt := UTF8Copy(txt, 1, Pred(UTF8Pos(FThousandSeparator, txt))) +UTF8Copy(txt, Succ(UTF8Pos(FThousandSeparator, txt)), UTF8Length(txt) - UTF8Pos(FThousandSeparator, txt)); if Copy(fText, 1, 1) = '-' then fText := '-' + txt |