Changeset 11 for trunk/UMainWindow.pas

Timestamp:

Feb 11, 2008, 11:18:05 AM (16 years ago)

Author:

george

Message:

Opraveno: Načítání seznamu síťových adaptérů přes API funkce.
Opraveno: Uvolňění paměti AppUserEventsOptions.
Přidáno: Textová identifikace Windows Vista.

File:

• trunk/UMainWindow.pas (modified) (4 diffs)

trunk/UMainWindow.pas

@@ -10 +10 @@
   ExtCtrls, cWinSock, UAutoRegistry, Registry, CustomizeDlg, MPlayer,
   StdActns, ULogExceptions, RVScroll, RichView, RVStyle, UTextFileStream,
-  ShellAPI, SunriseChatCoreUnit, SunriseChatNetworkCoreUnit;
+  ShellAPI, SunriseChatCoreUnit, SunriseChatNetworkCoreUnit, IdBaseComponent,
+  IdComponent, IdUDPBase, IdUDPServer, XPMan;
 
 const
@@ -18 +19 @@
   Email = 'robie@centrum.cz';
   ClientVersion = '3.0';
-  ClientReleaseDate = '29.4.2006';
+  ClientReleaseDate = '11.2.2008';
   OfflineTimeout = 13/24/3600;   // 13 seconds
   Creator = 'Chronosoft';
-  RegistryPath = '\Software\'+Creator+'\SunriseChat';
+  RegistryPath = '\Software\' + Creator + '\SunriseChat';
   ChangeLogFile = 'Novinky.txt';
   Licence = 'Copyleft';
@@ -177 +178 @@
     Vloitsovodkaz1: TMenuItem;
     OpenDialog1: TOpenDialog;
+    XPManifest1: TXPManifest;
     procedure FormCreate(Sender: TObject);
     procedure Vloitsovodkaz1Click(Sender: TObject);
@@ -1812 +1814 @@
   for I := 0 to High(AppEventsOptions) do
     AppEventsOptions[I].Free;
+  for I := 0 to High(AppUserEventsOptions) do
+    AppUserEventsOptions[I].Free;
 end;