D-Link DSL-G684T Instrukcja Użytkownika Pobierz pdf (Strona 111)

111

begin

if not checkbox3.Checked then

begin

if (serv = 0)and(checkbox1.Checked) then

begin

IdTelnet1.IOHandler.WriteLn('servo=1');

serv := 1;

end;

button9.Enabled := false;

end

else

begin

if (serv = 1)and(checkbox1.Checked) then

begin

IdTelnet1.IOHandler.WriteLn('servo=0');

serv := 0;

end;

button9.Enabled := true;

end;

procedure TForm1.CheckBox4Click(Sender: TObject);

begin

if checkbox4.Checked = true then memo1.Visible := true else

memo1.Visible := false;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.ItemHeight = 1 then

begin

edit20.Visible := true;

edit3.Visible := false;

end

1 2 ... 106 107 108 109 110 111 112 113 114 115 116 117 118

Brak uwag

D-Link DSL-G684T Instrukcja Użytkownika Strona 111