Added new feature: Auto Disable (disable auto-update if plugin has more than xxx lines, should prevent lags)

This commit is contained in:
Christian Hammacher
2005-11-02 15:36:24 +00:00
parent efe4b674e2
commit 6ea52a9a08
9 changed files with 68 additions and 15 deletions

View File

@ -193,6 +193,8 @@ type
chkMakeBaks: TFlatCheckBox;
chkDisableAC: TFlatCheckBox;
chkDisableCT: TFlatCheckBox;
chkAUDisable: TFlatCheckBox;
txtAUDisable: TFlatEdit;
procedure jplSettingsChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
@ -255,6 +257,7 @@ type
Shift: TShiftState);
procedure cboFontChange(Sender: TObject);
procedure cmdBrowseLangDirClick(Sender: TObject);
procedure txtAUDisableExit(Sender: TObject);
public
Foreground, Background: TColor;
CaretFore, CaretBack: TColor;
@ -1002,4 +1005,10 @@ begin
txtLangDir.Text := eStr;
end;
procedure TfrmSettings.txtAUDisableExit(Sender: TObject);
begin
if not IsNumeric(txtAUDisable.Text) then
txtAUDisable.Text := '1500';
end;
end.