Changeset 9 for trunk/UMainWindow.pas

Timestamp:

Feb 11, 2008, 10:27:49 AM (16 years ago)

Author:

george

Message:

Opraveno: Některé neuvolňované pamětové struktury.
Opraveno: Chyba při ukončování a uvolňování paměti.

Location:

trunk

Files:

• . (modified) (1 prop)
• UMainWindow.pas (modified) (8 diffs)

trunk/UMainWindow.pas

@@ -177 +177 @@
     Vloitsovodkaz1: TMenuItem;
     OpenDialog1: TOpenDialog;
-    SunriseChatNetworkCore1: TSunriseChatNetworkCore;
+    procedure FormCreate(Sender: TObject);
     procedure Vloitsovodkaz1Click(Sender: TObject);
     procedure RichView1Jump(Sender: TObject; id: Integer);
     procedure Vloit1Click(Sender: TObject);
     procedure Koprovar1Click(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -250 +249 @@
     { Private declarations }
   public
+    SunriseChatNetworkCore1: TSunriseChatNEtworkCore;
     UserEventsImagesEnabled: Boolean;
     FirstStart: Boolean;
@@ -391 +391 @@
   I: Integer;
 begin
+  SunriseChatNetworkCore1 := TSunriseChatNetworkCore.Create(Self);
+  with SunriseChatNetworkCore1 do begin
+    UdpPort := 55557;
+    UseDefaultEventsText := True;
+    AutoAwayDelay := 5;
+    AutoReconnect := True;
+    BroadcastType := btLocal;
+    MaxRoomLines := 100;
+  end;
+
   SettingsName := '';
   // Process application parameters
@@ -1107 +1117 @@
 var
   I: Integer;
-  T: TListBox;
+//  T: TListBox;
   NewTabSheet: TTabSheet;
 begin
@@ -1349 +1359 @@
 procedure TMainWindow.AddEvent(Name, Text: string; Options: TEventOptions);
 begin
-  SetLength(AppEventsInit,Length(AppEventsInit)+1);
+  SetLength(AppEventsInit, Length(AppEventsInit) + 1);
   with AppEventsInit[High(AppEventsInit)] do begin
-    EventName:= Name;
-    ShowMessage:= eoShowMessage in Options;
-    MessageText:= Text;
-    MessageFont:= TFont.Create;
-    ShowBalloonHint:= eoShowBalloonHint in Options;
-    ShowAlertIcon:= eoShowAlertIcon in Options;
-    ShowWindow:= eoShowWindow in Options;
-    PlayBeep:= eoPlayBeep in Options;
+    EventName := Name;
+    ShowMessage := eoShowMessage in Options;
+    MessageText := Text;
+    MessageFont := TFont.Create;
+    ShowBalloonHint := eoShowBalloonHint in Options;
+    ShowAlertIcon := eoShowAlertIcon in Options;
+    ShowWindow := eoShowWindow in Options;
+    PlayBeep := eoPlayBeep in Options;
   end;
 end;
@@ -1408 +1418 @@
   for I:= 0 to High(AppEventsOptions) do begin
     //if not Assigned(AppEventsOptions[I]) then
-    AppEventsOptions[I]:= TAutoRegistry.Create(RegistryPath+'\'+SettingsName+'\AppEvents\'+IntToStr(I));
+    AppEventsOptions[I] := TAutoRegistry.Create(RegistryPath+'\'+SettingsName+'\AppEvents\'+IntToStr(I));
     with AppEventsOptions[I], AppEvents[I] do begin
       Include('ShowWindow',ShowWindow,ShowWindow);
@@ -1779 +1789 @@
 
 procedure TMainWindow.FormDestroy(Sender: TObject);
+var
+  I: Integer;
 begin
   UsersAutoAwayDelay := SunriseChatNetworkCore1.AutoAwayDelay;
@@ -1796 +1808 @@
   SunriseChatNetworkCore1.SendCommand(scDisconnect);
   Options.Free;
+  for I := 0 to High(AppEvents) do
+    AppEvents[I].MessageFont.Free;
+  for I := 0 to High(AppEventsOptions) do
+    AppEventsOptions[I].Free;
 end;
 
 procedure TMainWindow.FormClose(Sender: TObject; var Action: TCloseAction);
-var
-  I: Integer;
+//var
+//  I: Integer;
 begin
   SunriseChatNetworkCore1.SendCommand(scDisconnect);