Changeset 7 for trunk/OnlinePlayers.pas

Timestamp:

May 15, 2009, 9:49:54 AM (15 years ago)

Author:

george

Message:

• Přesunuto: Komponenty do kořenové složky. Jsou nezávislé na verzi programu.
• Přesunuto: Obrázky ze složky image do podsložky trunk.
• Opraveno: Hledán přes AoWoW přesměrováno na web wowprekladu.
• Opraveno: Prodleva při zobrazení okna seznamu hráčů při spuštění programu. Samotné načítání obsahu okna má být v OnFormShow namísto OnFormCreate, kde jsou pouze inicializace proměnných.

Location:

trunk

Files:

• . (modified) (1 prop)
• OnlinePlayers.pas (modified) (11 diffs)

trunk

@@ -2 +2 @@
 HoFclient.dsk
 HoFclient.~dsk
+*.dcu

@@ -2 +2 @@
 HoFclient.dsk
 HoFclient.~dsk
+*.dcu

trunk/OnlinePlayers.pas

@@ -28 +28 @@
     PopupMenu3: TPopupMenu;
     Smazatzseznamu1: TMenuItem;
-    procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure Button1Click(Sender: TObject);
@@ -49 +48 @@
     procedure ListView2MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
+    procedure FormShow(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
@@ -129 +130 @@
 end;
 
+procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Form1.OnlineHri1.Checked := False;
+end;
+
 procedure TForm5.FormCreate(Sender: TObject);
 begin
   LoadRegOptions;
-  if Form1.Timer2.Enabled then
-    DownloadPlayers;
-  if Form1.OnlineHri1.Checked and (StartMinimalize = false) then
-    Form5.Show;
-  //zablokování tlačítka při nastavení pevné adresy
-        if LockOnlineAddres then
-          Form5.Button2.Enabled := false
-        else
-          Form5.Button2.Enabled := True;
-
-   DrawForm;
-end;
-
-procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  Form1.OnlineHri1.Checked := False;
 end;
 
@@ -160 +150 @@
 begin
   if ListView1.Items.Count = 0 then FirstDownload := True else FirstDownload := False;
-  //zálohování dřívějších online přátel
+  // zálohování dřívějších online přátel
   SetLength(OldOnlineFriend,ListView2.Items.Count);
   for i:= 0 to Length(OldOnlineFriend)-1 do begin
@@ -166 +156 @@
   end;
 
-  //mazání
+  // mazání
   ListView1.Clear;
   ListView2.Clear;
-  try          //načítání z serveru
+  // načítání z serveru
+  try
     if LockOnlineAddres then
       XMLDocument1.FileName := LockAddres
     else
       XMLDocument1.FileName := Form1.Servers[OnlinePlayersIndex].OnlinePlayersAddress;
-    XMLDocument1.Active:=True;
+    XMLDocument1.Active := True;
 
     StartItemNode := XMLDocument1.DocumentElement.ChildNodes['players'].ChildNodes.FindNode('player');
@@ -192 +183 @@
         SubItems.Add(GetNameMap(sMap));
         SubItems.Add(GetNameZone(sZone));
-        ImageIndex := StrToInt(sClass)-1;
-        StateIndex := StrToInt(sRace)-1;
+        ImageIndex := StrToInt(sClass) - 1;
+        StateIndex := StrToInt(sRace) - 1;
       end;
       //zjišťování přátel a zobrazení
-      for i:=0 to length(Friends)-1 do begin
+      for i:=0 to length(Friends) - 1 do begin
         if GetLowerString(sName) = GetLowerString(Friends[i]) then begin
           with ListView2.Items.Add do begin
@@ -203 +194 @@
             SubItems.Add(GetNameMap(sMap));
             SubItems.Add(GetNameZone(sZone));
-            ImageIndex := StrToInt(sClass)-1;
-            StateIndex := StrToInt(sRace)-1;
+            ImageIndex := StrToInt(sClass) - 1;
+            StateIndex := StrToInt(sRace) - 1;
           end;
         end;
@@ -214 +205 @@
     Label1.Caption := IntToStr(ListView1.Items.Count+1);
     if LockOnlineAddres then begin
-      Form1.CoolTrayIcon1.Hint := IntToStr(ListView1.Items.Count+1)+' hráčů';
+      Form1.CoolTrayIcon1.Hint := IntToStr(ListView1.Items.Count + 1)+' hráčů';
   //    Form1.StatusBar1.SimpleText := 'Online hráči aktualizováni';
     end else begin
-      Form1.CoolTrayIcon1.Hint := Form1.Servers[OnlinePlayersIndex].Name+': '+IntToStr(ListView1.Items.Count+1)+' hráčů';
+      Form1.CoolTrayIcon1.Hint := Form1.Servers[OnlinePlayersIndex].Name + ': ' + IntToStr(ListView1.Items.Count + 1) + ' hráčů';
     //  Form1.StatusBar1.SimpleText := 'O.H. aktualizováni: '+Form1.Servers[OnlinePlayersIndex].Name;
     end;
@@ -235 +226 @@
     Caption := 'Online Hráči'
   else
-    Caption := 'OnlineHráči-'+Form1.Servers[OnlinePlayersIndex].Name;
+    Caption := 'OnlineHráči-' + Form1.Servers[OnlinePlayersIndex].Name;
 
 
@@ -245 +236 @@
       if FriendPlaySound then
         Form1.MediaPlay(FriendSoundFile);
-      for i:=0 to ListView2.Items.Count-1 do begin
+      for i := 0 to ListView2.Items.Count - 1 do begin
         if IsStringInArray(ListView2.Items[i].Caption,OldOnlineFriend) then
-          Form1.CoolTrayIcon1.ShowBalloonHint(Form1.Caption+' - Připojil se kamarád',ListView2.Items[i].Caption+' se připojil',bitInfo,10);
+          Form1.CoolTrayIcon1.ShowBalloonHint(Form1.Caption + ' - Připojil se kamarád',ListView2.Items[i].Caption + ' se připojil', bitInfo, 10);
       end;
     end;
@@ -867 +858 @@
 end;
 
+procedure TForm5.FormShow(Sender: TObject);
+begin
+  if Form1.Timer2.Enabled then
+    DownloadPlayers;
+  if Form1.OnlineHri1.Checked and (StartMinimalize = false) then
+    Form5.Show;
+  // zablokování tlačítka při nastavení pevné adresy
+  if LockOnlineAddres then
+    Form5.Button2.Enabled := False
+    else Form5.Button2.Enabled := True;
+
+   DrawForm;
+end;
+
 function TForm5.GetLowerString(Text: string): string;
 begin

@@ -2 +2 @@
 HoFclient.dsk
 HoFclient.~dsk
+*.dcu