summaryrefslogtreecommitdiff
path: root/examples/apps
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2013-03-15 14:49:31 +0000
committerDavid Laurence Emerson <dle3ab@angelbase.com>2013-05-28 00:42:47 -0700
commit721991050b0daf8e0a6a8668b2bc59e9394ce673 (patch)
tree1997b16feb60e14e09dd33c35c6429f7ca3475d0 /examples/apps
parent1954c8fd6d154066e988dc11bda51099929d941f (diff)
downloadfpGUI-721991050b0daf8e0a6a8668b2bc59e9394ce673.tar.xz
textedit: correctly decrement the vertical scrollbar max limit when deleting a line
Diffstat (limited to 'examples/apps')
-rw-r--r--examples/apps/ide/src/fpg_textedit.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas
index 86f4f6fb..9f456d66 100644
--- a/examples/apps/ide/src/fpg_textedit.pas
+++ b/examples/apps/ide/src/fpg_textedit.pas
@@ -1681,6 +1681,7 @@ begin
if SLine = '' then // short circut the code block
begin
FLines.Delete(CaretPos.Y);
+ FVScrollBar.Max := FVScrollBar.Max - 1;
end
else
begin