Added new feature: Auto Disable (disable auto-update if plugin has more than xxx lines, should prevent lags)
This commit is contained in:
@ -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.
|
||||
|
Reference in New Issue
Block a user