From 08ef76a72589a985b33fd010058f74879ae4f736 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Sun, 17 Mar 2013 12:18:55 +0000 Subject: textedit: temporary work-around to update scrollbars when setting caret position --- examples/apps/ide/src/fpg_textedit.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples/apps/ide/src/fpg_textedit.pas') 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); -- cgit v1.2.3-70-g09d2