Changeset 13 for trunk/UMainWindow.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/UMainWindow.pas (modified) (6 diffs)

trunk/UMainWindow.pas

@@ -179 +179 @@
     OpenDialog1: TOpenDialog;
     XPManifest1: TXPManifest;
+    Log1: TMenuItem;
+    fndUDPSocket1: TfndUDPSocket;
+    fndUDPClientSocket1: TfndUDPClientSocket;
     procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure Vloitsovodkaz1Click(Sender: TObject);
     procedure RichView1Jump(Sender: TObject; id: Integer);
@@ -185 +189 @@
     procedure Koprovar1Click(Sender: TObject);
     procedure Button1Click(Sender: TObject);
-    procedure FormShow(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
@@ -241 +244 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure Log1Click(Sender: TObject);
   private
     CloseEnabled: Boolean;
@@ -331 +335 @@
 
 uses UInfoWindow, UAboutWindow, UOptionsWindow, UNetworkTest, UNewRoom,
-  DateUtils, ULocalization, UJobProgressView, MMSystem;
+  DateUtils, ULocalization, UJobProgressView, MMSystem, UProtocolMessageLog;
 
 {$R *.dfm}
@@ -402 +406 @@
     MaxRoomLines := 100;
   end;
+
 
   SettingsName := '';
@@ -1489 +1494 @@
     if Assigned(JobProgressView) then JobProgressView.Progress := I / AppUserEventsCount;
   end;
+end;
+
+procedure TMainWindow.Log1Click(Sender: TObject);
+begin
+  ProtocolMessageLogForm.Show;
 end;