diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-17 12:18:55 +0000 |
|---|---|---|
| committer | David Laurence Emerson <dle3ab@angelbase.com> | 2013-05-28 00:42:48 -0700 |
| commit | 0307ad80db4ea3bfdfa442da4d72afce2871414e (patch) | |
| tree | bad348fc086bfb0822ba5e9efc5633b093bb8922 /examples/apps | |
| parent | 9d3ea3dec63db9f13ff40f7338b3efc9b52bb704 (diff) | |
| download | fpGUI-0307ad80db4ea3bfdfa442da4d72afce2871414e.tar.xz | |
textedit: temporary work-around to update scrollbars when setting caret position
Diffstat (limited to 'examples/apps')
| -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 c69ca907..013ad86b 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -138,7 +138,6 @@ type procedure SetVScrollPos(const AValue: Integer); procedure UpdateCharBounds; procedure GetSelBounds(var AStartNo, AEndNo, AStartOffs, AEndOffs: Integer); - procedure UpdateScrollBars; procedure VScrollBarMove(Sender: TObject; position: integer); procedure HScrollBarMove(Sender: TObject; position: integer); procedure SetVPos(p: Integer); @@ -185,6 +184,7 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; + procedure UpdateScrollBars; function GetClientRect: TfpgRect; override; function GetWordAtPos(const X, Y: Integer; out XBegin: Integer): TfpgString; procedure GetRowColAtPos(const X, Y: Integer; out Row, Col: Integer); |