From b7d6e074811aa8e7f1af82c3c87129df4e8d08eb Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 23 Jun 2008 20:26:14 +0000
Subject: [PATCH] Do the best to fix bug #282 - not to touch a user input in
 EditLimitEnd + EditLimitStart if GetCalculatedLimit says we must apply a
 limit.

---
 source/childwin.pas | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index 7f757b02..3033ffa0 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -1317,7 +1317,9 @@ var
   PrimaryKeyColumns    : TStringList;
   reg_value            : String;
   select_base          : String;
-  limit                : Int64;
+  limit,
+  tmpLimitStart,
+  tmpLimitEnd          : Int64;
   ds                   : TDataSet;
   sl_query             : TStringList;
   DisplayedColumnsList : TStringList;
@@ -1337,8 +1339,12 @@ begin
         mainform.CheckBoxLimit.Checked := false
       else begin
         mainform.CheckBoxLimit.Checked := true;
-        mainform.EditLimitStart.Text := '0';
-        mainform.EditLimitEnd.Text := IntToStr( limit );
+        tmpLimitStart := MakeInt(mainform.EditLimitStart.Text);
+        tmpLimitEnd := MakeInt(mainform.EditLimitEnd.Text);
+        if (tmpLimitEnd - tmpLimitStart) > limit then begin
+          mainform.EditLimitStart.Text := '0';
+          mainform.EditLimitEnd.Text := IntToStr( limit );
+        end;
       end;
       mainform.Repaint;
     end;