Реферат Проектування металоконструкцій мостового крана

Y: Integer);. Color:=clwhite;;

TForm1.Panel3MouseMove (Sender: TObject; Shift: TShiftState; X,: Integer);. Color:=clwhite;;

TForm1.FormMouseMove (Sender: TObject; Shift: TShiftState; X,: Integer);. Color:=clwhite;. Color:=clwhite;;

TForm1.Panel2MouseMove (Sender: TObject; Shift: TShiftState; X,: Integer);. Color:=clwhite;;

TForm1.Panel3Click (Sender: TObject);. Minimize;; TForm1.Panel2Click (Sender: TObject);. Close;;

TForm1.FormClose (Sender: TObject; var Action: TCloseAction); TCPClient.Connected then.Disconnect; (ifname);;

TForm1.BitBtn2Click (Sender: TObject); TCPClient.connected then.Disconnect;

/ / tcpclient.Host:=cb.Text;

/ / tcpclient.port:=strtoint (edit4.text);

. Connect; («Сервер не знайдений!», mtError, [mBoK], 0);;;

{procedure TForm1.BitBtn32Click (Sender: TObject); SelectedCount=0 then MessageDlg («Вибіріте хочаб один комп'ютер!», mtInformation, [mbok], 0) SelectedCount=1 then.Interval: =66;

/ / timer1.Interval:=timer1.Interval div SpinEdit1.Value;. Enabled:=false;. Enabled:=true; FSC.Checked then.BorderStyle:=bsNone else.BorderStyle:=bsSizeable ;. ShowModal; else MessageDlg («Неможлива мултімідійная робота!» # 10 # 13 «Вибіріте один комп'ютер», mtInformation, [mbok], 0);;}

TForm1.TCPClientConnected (Sender: TObject); TCPClient.Host=IdIPWatch1.LocalIP then.Lines.Clear;. Lines.Add («Localhost!");. Lines.Clear;. Lines . Add («Connected to» + TCPClient.Host);;

;

TForm1.FormCreate (Sender: TObject); Buffer: array [0 .. 255] of char;: Integer;

GetiniFileName <> «» then ifname:=GetiniFileName else (buffer, sizeof (buffer));:=buffer + inifilename; (buffer + inifilename);; not fileexists (GetiniFileName) then(buffer,sizeof(buffer));:=buffer+inifilename;(buffer+inifilename);(z,GetiniFileName);rewrite(z);closefile(z);;;:=GetiniFileName;;:=false;:=Caption+aversion;

:=0; xx:=0 to SelectedCount - 1 do.Disconnect;. Host:=fadd [xx];. port:=defaultipport;. Connect;;;

TForm1.Timer1Timer (Sender: TObject);: TMemoryStream;: tjpegimage;, y: integer;: string; tcpclient do:=TJPEGImage.Create;:=TMemoryStream.Create;

/ / writeln (# 13 + # 10); («GSS»);:=uppercase (readln); s12=«TRUE» then:=readinteger;:=readinteger;

/ / ReadStream (a, readinteger, false); (a, - 1, true);;. Seek (0, soFromBeginning);. LoadFromStream (A);. Canvas.Draw (x, y, j);; (i);. Free;. Free;

/ / finally.Panel1.Caption:=«Візуальне управління:» + ListBox1.Items [0];

. Close;. enabled:=false;;;

;

TForm1.CtrlAltDel1Click (Sender: TObject); («DHK +»);;

TForm1.N8Click (Sender: TObject);

(«EHK +»);;

TForm1.N11Click (Sender: TObject); [0]:=(«CMDLINE»); [1]:=(«rundll32 / user,disableoemlayer&raquo;);[2]:=(&laquo;NORMAL&raquo;);:=2;(&laquo;&raquo;);;TForm1.Explorer1Click(Sender: TObject); [0]:=(«CMDLINE»); [1]:=(«rundll32 / shell32, SHExitWindowsEx - 1»); [2]:=(«NORMAL»);:=2; ( «»);