Changeset 13 for trunk/OnlinePlayers.pas

Timestamp:

Nov 27, 2009, 8:36:34 AM (14 years ago)

Author:

george

Message:

• Opraveno: Všechny odkazy na starý web wow.zdechov.net opraveny na aktuální www.heroesoffantasy.cz.

File:

• trunk/OnlinePlayers.pas (modified) (13 diffs)

trunk/OnlinePlayers.pas

@@ -79 +79 @@
   FriendSoundFile: string;
   LockOnlineAddres: Boolean = True;
-  LockAddres: string = 'http://wow.zdechov.net/stat/stat.xml';
+  LockAddres: string = HoFOnlineListURL;
 
   ColumnIndexSoft: integer = 0;
@@ -186 +186 @@
         StateIndex := StrToInt(sRace) - 1;
       end;
-      //zjišťování přátel a zobrazení
+      // Zjišťování přátel a zobrazení
       for i:=0 to length(Friends) - 1 do begin
         if GetLowerString(sName) = GetLowerString(Friends[i]) then begin
@@ -203 +203 @@
     until ANode = nil;
 
-    Label1.Caption := IntToStr(ListView1.Items.Count+1);
+    Label1.Caption := IntToStr(ListView1.Items.Count + 1);
     if LockOnlineAddres then begin
       Form1.CoolTrayIcon1.Hint := IntToStr(ListView1.Items.Count + 1)+' hráčů';
@@ -229 +229 @@
 
 
-  //zjišťování zda se připojil nový přítel
-  if FirstDownload = false then begin
+  // Zjišťování, zda se připojil nový přítel
+  if FirstDownload = False then begin
     if ListView2.Items.Count > length(OldOnlineFriend) then begin
       if BeepAfterNewFriend then
@@ -255 +255 @@
 var
   reg: TRegistry;
-  i, count: integer;
+  i, Count: integer;
 begin
   Reg := TRegistry.Create;
   try
-    // načítání pozice formuláře
-    if Reg.OpenKey(R+'FormOnlinePlayers', False) then begin
+    // Načítání pozice formuláře
+    if Reg.OpenKey(R + 'FormOnlinePlayers', False) then begin
       Top := Reg.ReadInteger('Top');
       Left := Reg.ReadInteger('Left');
@@ -292 +292 @@
     end;
 
-    if Reg.OpenKey(R+'Friends', False) then begin
-      count := Reg.ReadInteger('Count');
-      SetLength(Friends,count);
-      for i:=0 to count-1 do begin
-        Friends[i] := Reg.ReadString('Friend'+IntToStr(i));
+    if Reg.OpenKey(R + 'Friends', False) then begin
+      Count := Reg.ReadInteger('Count');
+      SetLength(Friends, Count);
+      for i:=0 to Count - 1 do begin
+        Friends[i] := Reg.ReadString('Friend' + IntToStr(i));
       end;
     end;
@@ -391 +391 @@
   case ColumnIndexSoft of
     1:begin
-        if StrToInt(ListView1.Items[0].SubItems[0]) > StrToInt(ListView1.Items[ListView1.Items.count-1].SubItems[0]) then
-          Compare := -OrderNumber(Item1, Item2,Compare)
+        if StrToInt(ListView1.Items[0].SubItems[0]) > StrToInt(ListView1.Items[ListView1.Items.count - 1].SubItems[0]) then
+          Compare := -OrderNumber(Item1, Item2, Compare)
         else
-          Compare := OrderNumber(Item1, Item2,Compare);
+          Compare := OrderNumber(Item1, Item2, Compare);
       end;
     2:begin
-      if AnsiCompareText(ListView1.Items[0].SubItems[1], ListView1.Items[ListView1.Items.count-1].SubItems[1]) = -1 then
-        Compare := OrderMap(Item1, Item2,Compare)
+      if AnsiCompareText(ListView1.Items[0].SubItems[1], ListView1.Items[ListView1.Items.count - 1].SubItems[1]) = -1 then
+        Compare := OrderMap(Item1, Item2, Compare)
       else
-        Compare := -OrderMap(Item1, Item2,Compare);
+        Compare := -OrderMap(Item1, Item2, Compare);
       end;
     3:begin
-      if AnsiCompareText(ListView1.Items[0].SubItems[2], ListView1.Items[ListView1.Items.count-1].SubItems[2]) = -1 then
-        Compare := OrderZone(Item1, Item2,Compare)
+      if AnsiCompareText(ListView1.Items[0].SubItems[2], ListView1.Items[ListView1.Items.count - 1].SubItems[2]) = -1 then
+        Compare := OrderZone(Item1, Item2, Compare)
       else
-        Compare := -OrderZone(Item1, Item2,Compare);
+        Compare := -OrderZone(Item1, Item2, Compare);
       end;
   else
     if AnsiCompareText(ListView1.Items[0].Caption, ListView1.Items[ListView1.Items.count-1].Caption) = -1 then
-      Compare := Order(Item1, Item2,Compare)
+      Compare := Order(Item1, Item2, Compare)
     else
-      Compare := -Order(Item1, Item2,Compare);
+      Compare := -Order(Item1, Item2, Compare);
   end;
 end;
@@ -784 +784 @@
   if Assigned(ListView1.Selected) then begin
     if IsStringInArray(ListView1.Selected.Caption,Friends) then begin
-      SetLength(Friends,length(Friends)+1);
-      Friends[length(Friends)-1] := ListView1.Selected.Caption;
+      SetLength(Friends,length(Friends) + 1);
+      Friends[length(Friends) - 1] := ListView1.Selected.Caption;
       with ListView2.Items.Add do begin
         Caption := ListView1.Selected.Caption;
@@ -812 +812 @@
   if DragDown then begin
     GetCursorPos(Position);
-    if Position.y-Top-Panel2.Height < Height-38 then
-      Panel2.Top := Position.Y-Top-Panel2.Height-16
+    if Position.Y - Top - Panel2.Height < Height - 38 then
+      Panel2.Top := Position.Y - Top - Panel2.Height - 16
     else
-      Panel2.Top := Height-35;
+      Panel2.Top := Height - 35;
     DrawForm;
   end;
@@ -828 +828 @@
 procedure TForm5.DrawForm;
 begin
-  ListView1.Height := Panel2.Top-20;
-  ListView2.Top := Panel2.Top+Panel2.Height;
-  ListView2.Height := Height-Panel2.Top-Panel2.Height-20;
+  ListView1.Height := Panel2.Top - 20;
+  ListView2.Top := Panel2.Top + Panel2.Height;
+  ListView2.Height := Height - Panel2.Top - Panel2.Height - 20;
 
 end;
@@ -841 +841 @@
 begin
   NewFriend := True;
-  for i:=0 to length(ArrayOfString)-1 do begin
+  for i := 0 to length(ArrayOfString) - 1 do begin
     if (GetLowerString(Find) = GetLowerString(ArrayOfString[i])) then
-      NewFriend := false;
+      NewFriend := False;
   end;
 
@@ -884 +884 @@
   YetWas := False;
   if Assigned(ListView2.Selected) then begin
-    for i:=0 to High(Friends) do begin
+    for i := 0 to High(Friends) do begin
       if YetWas then
-        Friends[i-1] := Friends[i];
+        Friends[i - 1] := Friends[i];
 
       if (GetLowerString(Friends[i]) = GetLowerString(ListView2.Selected.Caption)) then
         YetWas := true;
     end;
-    SetLength(Friends,Length(Friends)-1);
+    SetLength(Friends, Length(Friends) - 1);
     ListView2.Selected.Delete;
   end;
@@ -901 +901 @@
   MousePos: TPoint;
 begin
-  if Assigned(ListView2.GetItemAt(x,y)) and (Button = mbRight) then begin
+  if Assigned(ListView2.GetItemAt(x, y)) and (Button = mbRight) then begin
     GetCursorPos(MousePos);
-    PopupMenu3.Popup(MousePos.X,MousePos.y);
+    PopupMenu3.Popup(MousePos.X, MousePos.y);
   end;
 end;