э...
обьясни мне...
какой смысл было править с
delphi Код:
procedure TfSettings.ChkLSPInterceptClick(Sender: TObject);
begin
isLSP.Enabled := not ChkLSPIntercept.Checked;
BtnLsp.Enabled := not ChkLSPIntercept.Checked;
if ChkLSPIntercept.Checked then
begin
ChkSocks5.Checked := false;
ChkIntercept.Checked := false;
end;
dmData.LSPControl.setlspstate(ChkLSPIntercept.Checked);
end;
на
delphi Код:
procedure TfSettings.ChkLSPInterceptClick(Sender: TObject);
begin
if ChkLSPIntercept.Checked then
begin
isLSP.Enabled := false;
BtnLsp.Enabled := false;
ChkSocks5.Checked := false;
ChkIntercept.Checked := false;
end else
begin
isLSP.Enabled := true;
BtnLsp.Enabled := true;
end;
dmData.LSPControl.setlspstate(ChkLSPIntercept.Checked);
end;
Добавлено через 1 минуту
порадовало:
delphi Код:
if ChkLSPIntercept.Checked then
dmData.LSPControl.setlspstate(not ChkLSPIntercept.Checked);