Changeset 15 for trunk/UMainWindow.pas

Timestamp:

Feb 18, 2008, 2:00:19 PM (17 years ago)

Author:

george

Message:

Přepracováno: Změna síťových komponent z fundamentals sockets na Indy. Prozatím ne dostatečně funkční.
Typografikcé úpravy.

Location:

trunk

Files:

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

trunk

@@ -6 +6 @@
 Network.cfg
 Error.txt
+ProjectGroup1.bdsgroup
+ProjectGroup1.bdsgroup.local

@@ -6 +6 @@
 Network.cfg
 Error.txt
+ProjectGroup1.bdsgroup
+ProjectGroup1.bdsgroup.local

trunk/UMainWindow.pas

@@ -11 +11 @@
   StdActns, ULogExceptions, RVScroll, RichView, RVStyle, UTextFileStream,
   ShellAPI, SunriseChatCoreUnit, SunriseChatNetworkCoreUnit, IdBaseComponent,
-  IdComponent, IdUDPBase, IdUDPServer, XPMan;
+  IdComponent, IdUDPBase, IdUDPServer, XPMan, IdUDPClient, IdCustomTCPServer,
+  IdTCPServer, IdTCPConnection, IdTCPClient, IdAntiFreezeBase, IdAntiFreeze;
 
 const
@@ -180 +181 @@
     XPManifest1: TXPManifest;
     Log1: TMenuItem;
-    fndUDPSocket1: TfndUDPSocket;
-    fndUDPClientSocket1: TfndUDPClientSocket;
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -1422 +1421 @@
   Text: string;
 begin
-  SetLength(AppEventsOptions,Length(AppEvents));
-  for I:= 0 to High(AppEventsOptions) do begin
+  SetLength(AppEventsOptions, Length(AppEvents));
+  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);
-      Include('ShowAlertIcon',ShowAlertIcon,ShowAlertIcon);
-      Include('ShowBaloonHint',ShowBalloonHint,ShowBalloonHint);
-      Include('PlayBeep',PlayBeep,PlayBeep);
-      Include('PlaySound',PlaySound,PlaySound);
-      Include('SoundFile',SoundFile,'');
-      Include('ExecuteApplication',ExecuteApplication,False);
-      Include('ApplicationFile',ApplicationFile,'');
-      Include('ShowMessage',ShowMessage,ShowMessage);
-      Include('MessageText',MessageText,MessageText);
-      Include('IconFile',IconFile,'Envelope.ico');
+      Include('ShowWindow', ShowWindow, ShowWindow);
+      Include('ShowAlertIcon', ShowAlertIcon, ShowAlertIcon);
+      Include('ShowBaloonHint', ShowBalloonHint, ShowBalloonHint);
+      Include('PlayBeep', PlayBeep, PlayBeep);
+      Include('PlaySound' ,PlaySound, PlaySound);
+      Include('SoundFile', SoundFile, '');
+      Include('ExecuteApplication', ExecuteApplication, False);
+      Include('ApplicationFile', ApplicationFile, '');
+      Include('ShowMessage', ShowMessage, ShowMessage);
+      Include('MessageText', MessageText, MessageText);
+      Include('IconFile', IconFile, 'Envelope.ico');
       // Font
-      Include('FontColor',MessageFontTemp.Color,Integer(clBlack));
-      Include('FontStyle',MessageFontTemp.Style,'');
-      Include('FontCharset',MessageFontTemp.Charset,1);
+      Include('FontColor', MessageFontTemp.Color, Integer(clBlack));
+      Include('FontStyle', MessageFontTemp.Style, '');
+      Include('FontCharset', MessageFontTemp.Charset, 1);
       Include('FontSize', MessageFontTemp.Size, 8);
       Include('FontName', MessageFontTemp.Name, 'MS Sans Serif');
       LoadFromRegistry;
       MessageFont.Color := MessageFontTemp.Color;
-      while Pos(',', MessageFontTemp.Style)>0 do begin
-        Text:= Copy(MessageFontTemp.Style, 1, Pos(',', MessageFontTemp.Style)-1);
-        System.Delete(MessageFontTemp.Style, 1, Length(Text)+1);
+      while Pos(',', MessageFontTemp.Style) > 0 do begin
+        Text := Copy(MessageFontTemp.Style, 1, Pos(',', MessageFontTemp.Style) - 1);
+        System.Delete(MessageFontTemp.Style, 1, Length(Text) + 1);
         if Text = 'Bold' then MessageFont.Style := MessageFont.Style + [fsBold];
         if Text = 'Italic' then MessageFont.Style := MessageFont.Style + [fsItalic];
@@ -1467 +1467 @@
   SetLength(AppUserEventsOptions, AppUserEventsCount);
   SetLength(AppUserEvents, AppUserEventsCount);
-  for I := 0 to AppUserEventsCount-1 do begin
+  for I := 0 to AppUserEventsCount - 1 do begin
     //if not Assigned(AppEventsOptions[I]) then
-    AppUserEventsOptions[I] := TAutoRegistry.Create(RegistryPath+'\'+SettingsName+'\AppUserEvents\'+IntToStr(I));
+    AppUserEventsOptions[I] := TAutoRegistry.Create(RegistryPath + '\' +
+      SettingsName + '\AppUserEvents\' + IntToStr(I));
     with AppUserEventsOptions[I], AppUserEvents[I] do begin
       Update := UpdateOnly;
@@ -1476 +1477 @@
       Include('ConditionUserEnable', ConditionUserEnable, ConditionUserEnable);
       Include('ConditionUser', ConditionUser, ConditionUser);
-      Include('ConditionAppEventEnable', ConditionAppEventEnable,ConditionAppEventEnable);
-      Include('ConditionAppEvent',ConditionAppEvent,ConditionAppEvent);
-      Include('ShowWindow',ShowWindow,ShowWindow);
-      Include('ShowAlertIcon',ShowAlertIcon,ShowAlertIcon);
-      Include('IconFile',IconFile,'Envelope.ico');
-      Include('ShowBaloonHint',ShowBalloonHint,ShowBalloonHint);
-      Include('PlayBeep',PlayBeep,PlayBeep);
-      Include('PlaySound',PlaySound,PlaySound);
-      Include('SoundFile',SoundFile,'');
-      Include('ExecuteApplication',ExecuteApplication,False);
-      Include('ApplicationFile',ApplicationFile,'');
-      Include('ShowImage',ShowImage,ShowImage);
-      Include('ImageFile',ImageFile,ImageFile);
-      Include('EventName',EventName,EventName);
+      Include('ConditionAppEventEnable', ConditionAppEventEnable, ConditionAppEventEnable);
+      Include('ConditionAppEvent', ConditionAppEvent, ConditionAppEvent);
+      Include('ShowWindow', ShowWindow, ShowWindow);
+      Include('ShowAlertIcon', ShowAlertIcon, ShowAlertIcon);
+      Include('IconFile', IconFile, 'Envelope.ico');
+      Include('ShowBaloonHint', ShowBalloonHint, ShowBalloonHint);
+      Include('PlayBeep', PlayBeep, PlayBeep);
+      Include('PlaySound', PlaySound, PlaySound);
+      Include('SoundFile', SoundFile, '');
+      Include('ExecuteApplication', ExecuteApplication, False);
+      Include('ApplicationFile', ApplicationFile, '');
+      Include('ShowImage', ShowImage, ShowImage);
+      Include('ImageFile', ImageFile, ImageFile);
+      Include('EventName', EventName, EventName);
       LoadFromRegistry;
     end;
@@ -1506 +1507 @@
   Settings: string;
 begin
-  if SettingsName = 'Default' then Settings:= '' else Settings:= '('+SettingsName+')';
-  if SunriseChatNetworkCore1.Connected then NewCaption:= '' else NewCaption:= ' (Offline)';
-  Caption:= ApplicationName+Settings+' - '+SunriseChatNetworkCore1.LocalUser.Nick+NewCaption;
+  if SettingsName = 'Default' then Settings:= '' else Settings:= '(' + SettingsName + ')';
+  if SunriseChatNetworkCore1.Connected then NewCaption := ''
+    else NewCaption := ' (Offline)';
+  Caption := ApplicationName + Settings + ' - ' +
+    SunriseChatNetworkCore1.LocalUser.Nick + NewCaption;
 end;
 
@@ -1514 +1517 @@
   var InfoTip: String);
 begin
-  InfoTip:= TUser(SunriseChatNetworkCore1.UserList[Item.Index]).DetailInfo;
+  InfoTip := TUser(SunriseChatNetworkCore1.UserList[Item.Index]).DetailInfo;
 end;
 
@@ -1526 +1529 @@
   //if Pos(':',ComboBox1.Text) = 0 then
   DoplnitJmeno;
-  ComboBox1.SelStart:= ComboBox1.SelStart + 1;
+  ComboBox1.SelStart := ComboBox1.SelStart + 1;
 end;
 
@@ -1554 +1557 @@
 procedure TMainWindow.SearchFind1BeforeExecute(Sender: TObject);
 begin
-  SearchFind1.Dialog.Options:= [frHideUpDown];
+  SearchFind1.Dialog.Options := [frHideUpDown];
 end;
 
@@ -1562 +1565 @@
 begin
   with SunriseChatNetworkCore1 do begin
-    for I := 0 to ActiveRoom.Count-1 do
+    for I := 0 to ActiveRoom.Count - 1 do
       TRoomLine(ActiveRoom.Lines[I]).Font.Free;
     ActiveRoom.Count := 0;
@@ -1694 +1697 @@
   I: Integer;
 begin
-  ComboBox1.Style:= csDropDown;
+  ComboBox1.Style := csDropDown;
   with SunriseChatNetworkCore1, ComboBox1.Items do begin
     BeginUpdate;
     Clear;
-    for I := 0 to UserList.Count-1 do with TUser(UserList[I]) do begin
-      if Copy(Nick,1,Length(ComboBox1.Text)) = ComboBox1.Text then Add(Nick+': ');
+    for I := 0 to UserList.Count - 1 do with TUser(UserList[I]) do begin
+      if Copy(Nick, 1, Length(ComboBox1.Text)) = ComboBox1.Text then Add(Nick + ': ');
     end;
     Update;
     EndUpdate;
-    if ComboBox1.Items.Count>0 then ComboBox1.DroppedDown:= True;
+    if ComboBox1.Items.Count > 0 then ComboBox1.DroppedDown:= True;
   end;
 end;
@@ -1714 +1717 @@
 procedure TMainWindow.ComboBox1DropDown(Sender: TObject);
 begin
-  ComboBox1.Style:= csSimple;
+  ComboBox1.Style := csSimple;
 end;
 
 procedure TMainWindow.ComboBox1CloseUp(Sender: TObject);
 begin
-  ComboBox1.Style:= csSimple;
-  ComboBox1.SelStart:= -1;
+  ComboBox1.Style := csSimple;
+  ComboBox1.SelStart := -1;
 end;
 
@@ -1733 +1736 @@
 begin
   RichView1.Clear;
-  for I:= 0 to High(AppUserEvents) do
+  for I := 0 to High(AppUserEvents) do
   if Assigned(AppUserEvents[I].Image) then FreeAndNil(AppUserEvents[I].Image);
   TabControl1Change(Self);
@@ -1767 +1770 @@
       Clear;
       AddStrings(StringList);
-      if Count>0 then DroppedDown:= True;
+      if Count > 0 then DroppedDown:= True;
       Update;
       EndUpdate;
@@ -1819 +1822 @@
   SoundDisable := True;
   SunriseChatNetworkCore1.SendCommand(scDisconnect);
+  SunriseChatNetworkCore1.Free;
   Options.Free;
   for I := 0 to High(AppEvents) do

@@ -6 +6 @@
 Network.cfg
 Error.txt
+ProjectGroup1.bdsgroup
+ProjectGroup1.bdsgroup.local