Changeset 5 for trunk/UNetworkTest.pas

Timestamp:

Nov 27, 2008, 12:46:04 PM (15 years ago)

Author:

george

Message:

• Odstraněno: Funkce a ovládací prvky související s vytáčením VPN.

Location:

trunk

Files:

• . (modified) (1 prop)
• UNetworkTest.pas (modified) (4 diffs)

trunk/UNetworkTest.pas

@@ -78 +78 @@
 function Parse: string;
 begin
-  Result:= Copy(Row,1,Pos(':',Row)-1);
-  Delete(Row,1,Length(Result)+1);
+  Result:= Copy(Row, 1, Pos(':', Row) - 1);
+  Delete(Row, 1, Length(Result) + 1);
 end;
 
 function NetworkListFilename: string;
 begin
-  Result := CommonAppDataPath+'\'+Creator+'\'+ApplicationName;
+  Result := CommonAppDataPath + '\' + Creator + '\' + ApplicationName;
   if not DirectoryExists(Result) then
     ForceDirectories(Result);
@@ -152 +152 @@
     ListView1.SetFocus;
 //    ListView1.Items.BeginUpdate;
-    for I := 0 to ListView1.Items.Count-1 do with ListView1.Items[I] do begin
+    for I := 0 to ListView1.Items.Count - 1 do with ListView1.Items[I] do begin
       Selected := True;
       Focused := True;
@@ -169 +169 @@
 procedure TNetworkTest.Button2Click(Sender: TObject);
  begin
-  if Button2.Caption = 'Otestovat' then begin
+  if Button2.Caption = 'Otestovat' then
+  begin
     Button2.Caption := 'Pøerušit';
     ComboBox1.Enabled := False;
@@ -248 +249 @@
   ListView1.Items.EndUpdate;
   if ListView1.Items.Count > 4 then Height := ListView1.Items.Count * 15 + 97
-    else Height := 4*15 + 97;
-  if Height > (Screen.Height-50) then Height := Screen.Height - 50;
+    else Height := 4 * 15 + 97;
+  if Height > (Screen.Height - 50) then Height := Screen.Height - 50;
 end;