Changeset 13 for trunk/UNetworkTest.pas

Timestamp:

Feb 11, 2008, 2:14:42 PM (16 years ago)

Author:

george

Message:

Opraveno: Načítání seznamu síťových adaptérů na Linuxu.
Přidáno: Úpravy pro potřeby ladění problému s nepřijímáním UDP paketů.

File:

• trunk/UNetworkTest.pas (modified) (3 diffs)

trunk/UNetworkTest.pas

@@ -226 +226 @@
   3: begin
     // Show all items
-    for I:= 1 to High(Devices) do with Devices[I] do begin
-      Item:= ListView1.Items.Add;
-      Item.Caption:= Name;
+    for I := 1 to High(Devices) do with Devices[I] do begin
+      Item := ListView1.Items.Add;
+      Item.Caption := Name;
       with Item.SubItems do begin
         Add(IP);
@@ -238 +238 @@
   end;
   ListView1.Items.EndUpdate;
-  if ListView1.Items.Count > 4 then Height:= ListView1.Items.Count*14 + 97
-    else Height:= 4*14 + 97;
-  if Height > (Screen.Height-50) then Height:= (Screen.Height-50);
+  if ListView1.Items.Count > 4 then Height := ListView1.Items.Count * 14 + 97
+    else Height := 4 * 14 + 97;
+  if Height > (Screen.Height - 50) then Height := (Screen.Height - 50);
 end;
 
@@ -250 +250 @@
 procedure TNetworkTest.SpinEdit1Change(Sender: TObject);
 begin
-  MainWindow.PingTimeout:= SpinEdit1.Value;
+  MainWindow.PingTimeout := SpinEdit1.Value;
 end;