Kill option to manually specify value of initial limit (DataLimitEnd) in preferences. Keeping the checkbox for autocalculating while rephrasing its caption. Now the limit number is set either automatically by GetCalculatedLimit() or not at all if the option is disabled. (Un-)checking the CheckboxLimit in Mainform now toggles this option permanently.

This commit is contained in:
Ansgar Becker
2008-03-24 00:11:38 +00:00
parent 747be5b4ef
commit 8226fae2be
5 changed files with 19 additions and 64 deletions

View File

@ -819,8 +819,15 @@ end;
procedure TMainForm.ButtonOKClick(Sender: TObject);
var
reg: TRegistry;
begin
// Set Filter
// Set auto limit option after manual checking "Limit"
reg := TRegistry.Create;
if reg.OpenKey( REGPATH, true ) then begin
reg.WriteBool( REGNAME_DATALIMIT, CheckboxLimit.Checked );
end;
FreeAndNil(reg);
ChildWin.DBTree.SetFocus;
ChildWin.viewdata(self);
end;