From 0a256264e5d4d75f6fa0c5d81aeb96222f7c1273 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 29 Aug 2011 22:05:03 +0200
Subject: textedit: correctly set consumed variable and only redraw when
 needed.

---
 examples/apps/ide/src/fpg_textedit.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 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 27edbfa7..b3a1642c 100644
--- a/examples/apps/ide/src/fpg_textedit.pas
+++ b/examples/apps/ide/src/fpg_textedit.pas
@@ -1336,6 +1336,7 @@ begin
   begin
     FLines.Add('');
     FVScrollBar.Max := FVScrollBar.Max + 1;
+    consumed := True;
     Exit; //==>
   end;
 //  if (keycode = keyEscape) or (ssCtrl in ShiftState) then
@@ -1380,6 +1381,7 @@ begin
           end;
           FSelStartNo := CaretPos.Y;
           FSelStartOffs := CaretPos.X;
+          consumed := True
         end;
 
     keyTab:
@@ -1414,12 +1416,14 @@ begin
           CaretPos.X := 0;
           FSelStartNo := CaretPos.Y;
           FSelStartOffs := CaretPos.X;
+          consumed := True;
         end;
 
     keyLeft, keyRight, keyUp, keyDown, keyHome, keyEnd, keyPrior, keyNext:
         begin
           KeyboardCaretNav(ShiftState, keycode);
           CaretScroll := True;
+          consumed := True;
         end;
   end;
 
@@ -1441,7 +1445,8 @@ begin
       ScrollPos_V := CaretPos.Y - FVisLines + 2;
   end;
 
-  Invalidate;
+  if consumed then
+    Invalidate;
   {$IFDEF gDEBUG}
   SendMethodExit('TfpgBaseTextEdit.HandleKeyPress')
   {$ENDIF}
-- 
cgit v1.2.3-70-g09d2