diff options
author | drewski207 <drewski207@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-22 18:13:51 +0000 |
---|---|---|
committer | drewski207 <drewski207@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-22 18:13:51 +0000 |
commit | bba6d008d8b9bb7a8129fa23d0edea0bfde2e059 (patch) | |
tree | 23800de6dc414291ada18c891243c8fa810906cc | |
parent | c192ba2966e296a86f19f06b453e975522e7ec41 (diff) | |
download | fpGUI-bba6d008d8b9bb7a8129fa23d0edea0bfde2e059.tar.xz |
* Small change to gui_edit where the edit will scroll when the mouse moves past the visible text
-rw-r--r-- | src/gui/gui_edit.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas index 6591ff4e..7cad6a8c 100644 --- a/src/gui/gui_edit.pas +++ b/src/gui/gui_edit.pas @@ -575,8 +575,10 @@ begin if FCursorPos <> cp then begin FCursorPos := cp; + AdjustCursor; Repaint; end; + end; procedure TfpgCustomEdit.HandleDoubleClick(x, y: integer; button: word; shiftstate: TShiftState); |