opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Do the best to fix bug #282 - not to touch a user input in EditLimitEnd + EditLimitStart if GetCalculatedLimit says we must apply a limit.

Browse Source
This commit is contained in:
Ansgar Becker
2008-06-23 20:26:14 +00:00
parent 1bd1bb8a6e
commit b7d6e07481
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/childwin.pas
View File

@@ -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;