align="justify">;
TForm1.N23Click (Sender: TObject); («FI +»);;
TForm1.N22Click (Sender: TObject); («FI-»);;
TForm1.N24Click (Sender: TObject); («MI-»);; TForm1.N26Click (Sender: TObject);
(«KI-»);; TForm1.N28Click (Sender: TObject); («SB-»);;
TForm1.N29Click (Sender: TObject); («SB +»);;
TForm1.N2Click (Sender: TObject); not form3.Showing thenSelectedCount=0 then MessageDlg («Вибіріте хочаб один комп'ютер!», mtInformation, [mbok], 0) SelectedCount=1 then. ShowModal else MessageDlg («Диспетчер завдань не може працювати в мультемідійном режимі!» # 10 # 13 «Вибіріте один комп'ютер!», mtInformation, [mbok], 0);
;
TForm1.askBar1Click (Sender: TObject); («TSB-»);; TForm1.askBar2Click (Sender: TObject); («TSB +»);;
TForm1.Timer2Timer (Sender: TObject);. Panel4.Caption:=inttostr (i) + « FPS »;:=0;;
TForm1.N41Click (Sender: TObject);. ShowModal;;
TForm1.N10Click (Sender: TObject);. ShowModal;;
TForm1.ListView1KeyUp (Sender: TObject; var Key: Word;: TShiftState);
key=46 thenMessageDlg («Ви дійсно хочете видалити об'єкт?», mtConfirmation, mbOKCancel, 0)=mrok then.DeleteSelected; (ifname);; TForm1.ListView1MouseUp (Sender: TObject; Button : TMouseButton;: TShiftState; X, Y: Integer); xx: integer;
:=0; ListView1.SelCount <> 0 thenxx:=0 to Count - 1 do
/ / for yy:=1 to ListView1.Items.Count - 1 doListView1.Selected.Caption=cname [xx] thenSelectedCount=1 then.Caption:="Ім'я: <» + cname [xx] + «> IP / DNS: <»+ cadr [xx] +«> »;/ / ListView1.Selected.index];: =« IP / DNS: <»+ cadr [xx] +« > »;
. Caption:=«»;:=«DeskTop»;;;;;;
TForm1.N45Click (Sender: TObject);. ShowModal;;
TForm1.N47Click (Sender: TObject); MessageDlg («Ви дійсно хочете видалити об'єкт?», mtConfirmation, mbOKCancel, 0)=mrok then.DeleteSelected; (ifname);;
TForm1.N48Click (Sender: TObject);. ViewStyle:=vslist;. ViewStyle:=vsicon;. SortType:=stText;;
TForm1.RadioButton1Click (Sender: TObject);. ShowModal;;
TForm1.N49Click (Sender: TObject);. ShowModal;;
TForm1.N50Click (Sender: TObject);
. ShowModal;;
TForm1.ListView1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); xx, yy, ii: integer;. Items.Clear;:=0; yy:= 0; xx:=0 to Listview1.Items.Count - 1 do (Listview1.Items.Item [xx]. Selected) then.Items.Add (listview1.Items.Item [xx]. Caption); ii:=0 to 256 do fadd [ii]:=«»;:=0; yy:=0; ii:=0; xx:=0 to Listbox1.Count - 1 doyy:=0 to ListView1.Items.Count dolistbox1.Items . Strings [xx]=cname [yy] then [ii]:=cadr [yy]; (ii);:=ii;;:=ii;. Caption:=«Host:» + inttostr (SelectedCount); ;
TForm1.N39Click (Sender: TObject); not form10.Showing thenSelectedCount=0 then MessageDlg («Вибіріте хочаб один комп'ютер!», mtInformation, [mbok], 0) SelectedCount=1 then
. ShowModal else MessageDlg («Неможлива мультемідійная робота!» # 10 # 13 «Вибіріте один комп'ютер!», mtInformation, [mbok], 0);
