Changeset 13

Timestamp:

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

Author:

george

Message:

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

Location:

trunk

Files:

• About.dfm (modified) (2 diffs)
• About.pas (modified) (1 diff)
• ImportZWebu.dfm (modified) (5 diffs)
• ImportZWebu.pas (modified) (3 diffs)
• Main.dfm (modified) (11 diffs)
• Main.pas (modified) (8 diffs)
• OnlinePlayers.pas (modified) (13 diffs)
• Options.dfm (modified) (3 diffs)
• Options.pas (modified) (3 diffs)
• help/Nápověda HoFClient.jrt (modified) (2 diffs)
• image/OnlinePlayers/Class/Thumbs.db (deleted)
• image/OnlinePlayers/Thumbs.db (deleted)
• image/OnlinePlayers/race/Thumbs.db (deleted)

trunk/About.dfm

@@ -41 +41 @@
     Left = 40
     Top = 56
-    Width = 98
-    Height = 13
-    Caption = 'maron2@centrum.cz'
+    Width = 58
+    Height = 13
+    Caption = 'Author email'
     DragCursor = crHandPoint
     Font.Charset = DEFAULT_CHARSET
@@ -204 +204 @@
     Left = 40
     Top = 72
-    Width = 150
+    Width = 77
     Height = 13
     Cursor = crHandPoint
-    Caption = 'http://wow.zdechov.net/client/'
+    Caption = 'Homepage URL'
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clNavy

trunk/About.pas

@@ -40 +40 @@
 procedure TForm3.FormCreate(Sender: TObject);
 begin
+  Label4.Caption := AuthorEmail;
   Label6.Caption := ProjectHomepage;
   Label2.Caption := 'Verze: ' + ApplicationVersion;

trunk/ImportZWebu.dfm

@@ -2 +2 @@
   Left = 396
   Top = 141
-  Width = 636
-  Height = 323
   Caption = 'Import server'#367' z servery.wowresource.eu'
+  ClientHeight = 296
+  ClientWidth = 628
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -19 +19 @@
     Top = 0
     Width = 628
-    Height = 289
+    Height = 296
     Align = alClient
     Columns = <
@@ -56 +56 @@
     OnDblClick = ListView1DblClick
     OnMouseDown = ListView1MouseDown
+    ExplicitHeight = 289
   end
   object IdHTTP1: TIdHTTP
@@ -62 +63 @@
     ProxyParams.ProxyPort = 0
     Request.ContentLength = -1
-    Request.ContentRangeEnd = 0
-    Request.ContentRangeStart = 0
     Request.ContentType = 'text/html'
     Request.Accept = 'text/html, */*'
@@ -76 +75 @@
     Top = 80
     Bitmap = {
-      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010101000200040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000001000000001002000000000000010
       00000000000000000000000000000000000000000000F2F2F200E9E7E400DFDB

trunk/ImportZWebu.pas

@@ -246 +246 @@
 procedure TForm8.LoadCountRegServers;
 var
-  reg: TRegistry;
+  Reg: TRegistry;
 begin
   Reg := TRegistry.Create;
   try
     // načítání pozice formuláře
-    if Reg.OpenKey(R+'CountSerers', False) then begin
+    if Reg.OpenKey(R + 'CountSerers', False) then begin
       CountWoWStatusServers := Reg.ReadInteger('WoWStatus');
       CountWoWResourceServers := Reg.ReadInteger('WoWResource');
     end;
   finally
-    reg.Free;
+    Reg.Free;
   end;
 end;
@@ -262 +262 @@
 procedure TForm8.SaveCountRegServers;
 var
-  reg: TRegistry;
+  Reg: TRegistry;
 begin
   Reg := TRegistry.Create;
@@ -268 +268 @@
   try
     // načítání pozice formuláře
-    if Reg.OpenKey(R+'CountSerers', True) then begin
-      Reg.WriteInteger('WoWStatus',CountWoWStatusServers);
-      Reg.WriteInteger('WoWResource',CountWoWResourceServers);
+    if Reg.OpenKey(R + 'CountSerers', True) then begin
+      Reg.WriteInteger('WoWStatus', CountWoWStatusServers);
+      Reg.WriteInteger('WoWResource', CountWoWResourceServers);
     end;
   finally
-    reg.Free;
+    Reg.Free;
   end;
 end;

trunk/Main.dfm

@@ -3 +3 @@
   Top = 74
   Caption = 'Heroes of Fantasy - Client'
-  ClientHeight = 274
+  ClientHeight = 293
   ClientWidth = 389
   Color = clBtnFace
@@ -20 +20 @@
   DesignSize = (
     389
-    274)
+    293)
   PixelsPerInch = 96
   TextHeight = 13
@@ -47 +47 @@
   object StatusBar1: TStatusBar
     Left = 162
-    Top = 254
+    Top = 273
     Width = 227
     Height = 19
@@ -54 +54 @@
     Panels = <>
     SimplePanel = True
+    ExplicitTop = 254
   end
   object Panel1: TPanel
     Left = 0
-    Top = 254
+    Top = 273
     Width = 161
     Height = 19
     Anchors = [akLeft, akBottom]
     TabOrder = 1
+    ExplicitTop = 254
     object Image1: TImage
       Left = 108
@@ -401 +403 @@
     Top = 36
     Width = 105
-    Height = 189
+    Height = 208
     Anchors = [akTop, akRight, akBottom]
     BorderStyle = bsNone
@@ -417 +419 @@
     ReadOnly = True
     TabOrder = 2
+    ExplicitHeight = 189
   end
   object Button1: TButton
     Left = 343
-    Top = 231
+    Top = 250
     Width = 46
     Height = 17
@@ -428 +431 @@
     TabOrder = 3
     OnClick = Button1Click
+    ExplicitTop = 231
   end
   object ListView1: TListView
@@ -433 +437 @@
     Top = 0
     Width = 269
-    Height = 249
+    Height = 268
     Hint = 
       'Poklep'#225'n'#237'm se p'#345'ipoj'#237'te na dan'#253' server, uk'#225'z'#225'n'#237'm zobraz'#237'te infor' +
@@ -463 +467 @@
     OnMouseMove = ListView1MouseMove
     OnSelectItem = ListView1SelectItem
+    ExplicitHeight = 249
   end
   object Panel2: TPanel
@@ -468 +473 @@
     Top = 0
     Width = 9
-    Height = 249
+    Height = 268
     Cursor = crHSplit
     Hint = 'K schov'#225'n'#237' detajl'#367' p'#345'et'#225'hn'#283'te k prav'#233'mu okraji'
@@ -479 +484 @@
     OnMouseMove = Panel2MouseMove
     OnMouseUp = Panel2MouseUp
+    ExplicitHeight = 249
   end
   object MediaPlayer1: TMediaPlayer
     Left = 152
     Top = 8
-    Width = 29
+    Width = 0
     Height = 30
     EnabledButtons = [btPlay, btPause, btStop]

trunk/Main.pas

@@ -12 +12 @@
 
 const
-  ApplicationVersion = '3.3';
+  ApplicationVersion = '3.4';
   ApplicationRevision = 6;
   R = '\Software\maronsoft\Heroes of Fantasy client pack\';
-  UpdateInfoFile = 'http://wow.zdechov.net/client/aktualizace.txt';
-  DefaultRSSChannel = 'http://wow.zdechov.net/rss.php?category=articles';
-  OldRSSChannel = 'http://wow.zdechov.net/rss.php';
+  HoFWeb = 'www.heroesoffantasy.cz';
+  HoFRealmList = 'heroesoffantasy.cz';
+  UpdateInfoFile = 'http://' + HoFWeb + '/client/aktualizace.txt';
+  DefaultRSSChannel = 'http://' + HoFWeb + '/rss.php?category=articles';
+  OldRSSChannel = 'http://' + HoFWeb + '/rss.php';
   AoWoWSearchURL = 'http://wowpreklad.zdechov.net/aowow/?search=';
-  HoFOnlineListURL = 'http://wow.zdechov.net/stat/stat.xml';
-  ProjectHomepage = 'http://wow.zdechov.net/?page=client';
-
+  HoFOnlineListURL = 'http://' + HoFWeb + '/stat/stat.xml';
+  ProjectHomepage = 'http://' + HoFWeb + '/?page=client';
+  AuthorEmail = 'maron2@centrum.cz';
+  
 type
   TWMMoving = record
@@ -343 +346 @@
         SetLength(Servers, 3);
         Servers[0].Name := 'Heroes of Fantasy';
-        Servers[0].Address := 'wow.zdechov.net';
+        Servers[0].Address := HoFRealmList;
         Servers[0].OnlinePlayersAddress := HoFOnlineListURL;
         Servers[0].ExeFile := GetWoWExeFile;
         Servers[0].Image := '1';
-        Servers[0].Description := 'Free server'+chr(13)+chr(10)+'Server podporovaný výrobcem programu'+chr(13)+chr(10)+'web: http://wow.zdechov.net/'+chr(13)+chr(10)+'reamlist: wow.zdechov.net';
+        Servers[0].Description := 'Free server'#13#10'Server podporovaný výrobcem programu'#13#10'web: http://' + HoFWeb + '/'#13#10'reamlist: ' + HoFRealmList;
 
         Servers[1].Name := 'Oficiální Server - Eu';
@@ -353 +356 @@
         Servers[1].ExeFile := GetWoWExeFile;
         Servers[1].Image := '';
-        Servers[1].Description := 'Oficiální server - Evropa'+chr(13)+chr(10)+'Web: http://www.wow-europe.com/';
+        Servers[1].Description := 'Oficiální server - Evropa'#13#10'Web: http://www.wow-europe.com/';
 
         Servers[2].Name := 'Oficiální Server - USA';
@@ -359 +362 @@
         Servers[2].ExeFile := GetWoWExeFile;
         Servers[2].Image := '';
-        Servers[2].Description := 'Oficiální server - Evropa'+chr(13)+chr(10)+'Web: http://www.worldofwarcraft.com/';
+        Servers[2].Description := 'Oficiální server - Evropa'#13#10'Web: http://www.worldofwarcraft.com/';
       end;
 
@@ -1037 +1040 @@
   with Servers[length(Servers) - 1] do begin
     Name := 'Heroes of Fantasy';
-    Address := 'wow.zdechov.net';
+    Address := HoFRealmList;
     OnlinePlayersAddress := HoFOnlineListURL;
     ExeFile := GetWoWExeFile;
     Image := '1';
-    Description := 'Heroes of Fantasy - Free server'+chr(13)+chr(10)+' 2x XP'+chr(13)+chr(10)+'web: http://wow.zdechov.net/'+chr(13)+chr(10)+'realmlist: wow.zdechov.net';
+    Description := 'Heroes of Fantasy - Free server'#13#10' 2x XP'#13#10'web: http://' + HoFWeb + '/'#13#10'realmlist: ' + HoFRealmList;
   end;
   WriteImages;
@@ -1203 +1206 @@
   {
 <?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE server SYSTEM "http://wow.zdechov.net/projectonlineplayes/onlineplayers.dtd">
+<!DOCTYPE server SYSTEM "http://www.heroesoffantasy.cz/projectonlineplayes/onlineplayers.dtd">
 <server>
   <servername>Heroes Of Fantasy</servername>
-  <serveraddress>wow.zdechov.net</serveraddress>
+  <serveraddress>www.heroesoffantasy.cz</serveraddress>
   <owner>Chronos</owner>
   <patch>2.13</patch>
@@ -1421 +1424 @@
 procedure TForm1.Importzwowstatusnet1Click(Sender: TObject);
 begin
-//http://wowstatus.net/serverlist.php
-
-  //načtení počtu serverů
+  // http://wowstatus.net/serverlist.php
+
+  // Načtení počtu serverů
   Form8.Caption := 'Import serverů z WoWStatus.net';
   Form8.LoadCountRegServers;
-  Form9.Gauge1.MaxValue := CountWoWStatusServers+80;
+  Form9.Gauge1.MaxValue := CountWoWStatusServers + 80;
   Form9.Show;
 
@@ -1432 +1435 @@
   Form8.ListView1.Clear;
   Form8.WriteServersWoWStatus('http://wowstatus.net/serverlist.php');
-
   Form9.Close;
 
-
-  if EndLoadingBool = false then begin
+  if not EndLoadingBool then begin
     Form8.Show;
-    //uložení počtu serverů
+    // Uložení počtu serverů
     CountWoWStatusServers := Form8.ListView1.Items.Count;
     Form8.SaveCountRegServers;
   end;
    // Form8.Timer1.Enabled := true;
-
 end;
 

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;

trunk/Options.dfm

@@ -63 +63 @@
     Width = 393
     Height = 305
-    ActivePage = TabSheet2
+    ActivePage = TabSheet3
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 3
@@ -384 +384 @@
         Height = 21
         TabOrder = 4
-        Text = 'http://wow.zdechov.net/stat/stat.xml'
       end
     end
@@ -512 +511 @@
         Width = 361
         Height = 21
-        Hint = 'Adresa RSS '#269'te'#269'ky pro HeF (http://wow.zdechov.net/rss.php)'
+        Hint = 'Adresa RSS '#269'te'#269'ky'
         ParentShowHint = False
         ShowHint = True

trunk/Options.pas

@@ -463 +463 @@
   ShowBalloonHint := True;
   ShowDetails := False;
-  RSSAddress := 'http://wow.zdechov.net/rss.php';
+  RSSAddress := DefaultRSSChannel;
   Form1.CoolTrayIcon1.MinimizeToTray := True;
   //Form1.SkinData1.Active := False;
@@ -471 +471 @@
   Form1.Timer1.Enabled := True;
   Form1.Aktuality1.Checked := True;
-  Form1.Timer1.Interval := 10*60000;
+  Form1.Timer1.Interval := 10 * 60000;
   PlaySoundNews := False;
   SoundFileNews := '';
@@ -477 +477 @@
   //online hráči
   Form1.Timer2.Enabled := True;
-  Form1.Timer2.Interval := 10*60000;
+  Form1.Timer2.Interval := 10 * 60000;
   LockOnlineAddres := True;
-  LockAddres := 'http://wow.zdechov.net/stat/stat.xml';
+  LockAddres := HoFOnlineListURL;
   if LockOnlineAddres then
     Form5.Button2.Enabled := false

trunk/help/Nápověda HoFClient.jrt

@@ -46 +46 @@
 Email\b0
 : \i
-maron2@cenrum.cz\par
+maron2@centrum.cz\par
 \b
 \i0
@@ -53 +53 @@
 
 
-{\uldb http://wow.zdechov.net/client/}{\v !ExecFile(http://wow.zdechov.net/client/)}\cf1
+{\uldb http://www.heroesoffantasy.cz/page=client}{\v !ExecFile(http://www.heroesoffantasy.cz/page=client)}\cf1