Changeset 7


Ignore:
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:
1 deleted
8 edited
1 copied

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22HoFclient.dsk
        33HoFclient.~dsk
         4*.dcu

  • trunk/Main.dfm

    r6 r7  
    33  Top = 74
    44  Caption = 'Heroes of Fantasy - Client'
    5   ClientHeight = 254
     5  ClientHeight = 274
    66  ClientWidth = 389
    77  Color = clBtnFace
    … …  
    1717  OnDestroy = FormDestroy
    1818  OnResize = FormResize
     19  OnShow = FormShow
    1920  DesignSize = (
    2021    389
    21     254)
     22    274)
    2223  PixelsPerInch = 96
    2324  TextHeight = 13
    … …  
    4647  object StatusBar1: TStatusBar
    4748    Left = 162
    48     Top = 215
     49    Top = 235
    4950    Width = 227
    5051    Height = 19
    … …  
    5354    Panels = <>
    5455    SimplePanel = True
     56    ExplicitTop = 215
    5557  end
    5658  object Panel1: TPanel
    5759    Left = 0
    58     Top = 215
     60    Top = 235
    5961    Width = 161
    6062    Height = 19
    6163    Anchors = [akLeft, akBottom]
    6264    TabOrder = 1
     65    ExplicitTop = 215
    6366    object Image1: TImage
    6467      Left = 108
    … …  
    400403    Top = 36
    401404    Width = 105
    402     Height = 158
     405    Height = 178
    403406    Anchors = [akTop, akRight, akBottom]
    404407    BorderStyle = bsNone
    … …  
    416419    ReadOnly = True
    417420    TabOrder = 2
     421    ExplicitHeight = 158
    418422  end
    419423  object Button1: TButton
    420424    Left = 340
    421     Top = 197
     425    Top = 217
    422426    Width = 46
    423427    Height = 17
    … …  
    427431    TabOrder = 3
    428432    OnClick = Button1Click
     433    ExplicitTop = 197
    429434  end
    430435  object ListView1: TListView
    … …  
    432437    Top = 0
    433438    Width = 269
    434     Height = 215
     439    Height = 235
    435440    Hint =
    436441      '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' +
    … …  
    461466    OnMouseMove = ListView1MouseMove
    462467    OnSelectItem = ListView1SelectItem
     468    ExplicitHeight = 215
    463469  end
    464470  object Panel2: TPanel
    … …  
    466472    Top = 0
    467473    Width = 9
    468     Height = 215
     474    Height = 235
    469475    Cursor = crHSplit
    470476    Hint = 'K schov'#225'n'#237' detajl'#367' p'#345'et'#225'hn'#283'te k prav'#233'mu okraji'
    … …  
    477483    OnMouseMove = Panel2MouseMove
    478484    OnMouseUp = Panel2MouseUp
     485    ExplicitHeight = 215
    479486  end
    480487  object MediaPlayer1: TMediaPlayer
    481488    Left = 152
    482     Top = 32
     489    Top = 8
    483490    Width = 29
    484491    Height = 30
    … …  
    792799    OnPopup = PopupMenu2Popup
    793800    Left = 8
    794     Top = 40
     801    Top = 8
    795802    object Pipojit1: TMenuItem
    796803      Caption = 'P'#345'ipojit'
    … …  
    15021509    Interval = 600000
    15031510    OnTimer = Timer1Timer
    1504     Left = 120
    1505     Top = 64
     1511    Left = 216
     1512    Top = 56
    15061513  end
    15071514  object Timer2: TTimer
    … …  
    15281535    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    15291536    HTTPOptions = [hoForceEncodeParams]
    1530     Left = 120
    1531     Top = 88
     1537    Left = 8
     1538    Top = 120
    15321539  end
    15331540  object SaveDialog1: TSaveDialog
    1534     Left = 120
     1541    Left = 136
    15351542    Top = 120
    15361543  end
    15371544  object OpenDialog1: TOpenDialog
    1538     Left = 160
    1539     Top = 88
     1545    Left = 104
     1546    Top = 120
    15401547  end
    15411548  object XMLDocument1: TXMLDocument
    1542     Left = 160
     1549    Left = 168
    15431550    Top = 120
    15441551    DOMVendorDesc = 'MSXML'
    … …  
    15511558    PacketSize = 1024
    15521559    OnReply = IdIcmpClient1Reply
    1553     Left = 48
     1560    Left = 40
    15541561    Top = 120
    15551562  end
    … …  
    15611568  end
    15621569  object PopupMenu3: TPopupMenu
    1563     Left = 24
    1564     Top = 96
     1570    Left = 8
     1571    Top = 40
    15651572    object Pidatrun1: TMenuItem
    15661573      Caption = 'P'#345'idat ru'#269'n'#283

  • trunk/Main.pas

    r6 r7  
    1818  DefaultRSSChannel = 'http://wow.zdechov.net/rss.php?category=articles';
    1919  OldRSSChannel = 'http://wow.zdechov.net/rss.php';
     20  AoWoWSearchURL = 'http://wowpreklad.zdechov.net/aowow/?search=';
     21  HoFOnlineListURL = 'http://wow.zdechov.net/stat/stat.xml';
     22  ProjectHomepage = 'http://wow.zdechov.net/?page=client/';
    2023
    2124type
    … …  
    183186    procedure Zkoprovatfonty1Click(Sender: TObject);
    184187    procedure FormDestroy(Sender: TObject);
     188    procedure FormShow(Sender: TObject);
    185189  private
    186190    { Private declarations }
    … …  
    340344        Servers[0].Name := 'Heroes of Fantasy';
    341345        Servers[0].Address := 'wow.zdechov.net';
    342         Servers[0].OnlinePlayersAddress := 'http://wow.zdechov.net/stat/stat.xml';
     346        Servers[0].OnlinePlayersAddress := HoFOnlineListURL;
    343347        Servers[0].ExeFile := GetWoWExeFile;
    344348        Servers[0].Image := '1';
    … …  
    365369procedure TForm1.FormCreate(Sender: TObject);
    366370begin
    367   Vlakno := TVlakno.Create(True);
     371  Timer4.Enabled := False;
     372  //Vlakno := TVlakno.Create(True);
    368373
    369374  // Načítání nastavení a vypsání
    … …  
    378383
    379384  // ostatní
    380   Form1.Caption := Form1.Caption+' '+ApplicationVersion;
     385  Form1.Caption := Form1.Caption + ' ' + ApplicationVersion;
    381386  SystemParametersInfo(SPI_GETWORKAREA, 0, @Desktop, 0);
    382387  InitRichEditURLDetection(RichEdit1);
    … …  
    433438  NewMenuItem.Caption := '-';
    434439
    435   for I:= 0 to HIGh(servers) do begin
     440  for I:= 0 to High(Servers) do begin
    436441    NewMenuItem := TMenuItem.Create(PopupMenu1); // create the new item
    437442    PopupMenu1.Items.Insert(0, NewMenuItem);// add it to the Popupmenu
    438     NewMenuItem.Caption := servers[i].Name;
     443    NewMenuItem.Caption := Servers[i].Name;
    439444    NewMenuItem.Tag := I;
    440445    NewMenuItem.OnClick := PopupMenuItemsClick;// assign it an event handler
    … …  
    619624begin
    620625  If ReallyYes('Smazat všechny servery?') then begin
    621     SetLength(Servers,0);
     626    SetLength(Servers, 0);
    622627    WriteImages;
    623628    WriteServers;
    … …  
    10331038    Name := 'Heroes of Fantasy';
    10341039    Address := 'wow.zdechov.net';
    1035     OnlinePlayersAddress := 'http://wow.zdechov.net/stat/stat.xml';
     1040    OnlinePlayersAddress := HoFOnlineListURL;
    10361041    ExeFile := GetWoWExeFile;
    10371042    Image := '1';
    … …  
    10791084begin
    10801085  GetCursorPos(Position);
    1081   x := Position.X-Form1.left-6;
    1082   y := Position.Y-Form1.top-52;
     1086  x := Position.X-Form1.left - 6;
     1087  y := Position.Y-Form1.top - 52;
    10831088  if Assigned(ListView1.GetItemAt(x,y)) then begin
    10841089    Form7.Left := Position.X;
    … …  
    11041109    NewVersionInt := StrToInt(NewVersion);
    11051110  except
    1106       StatusBar1.SimpleText := 'Chyba spojení s serverem';
     1111      StatusBar1.SimpleText := 'Chyba spojení se serverem';
    11071112      NewVersionInt := 0;
    11081113  end;
    … …  
    11231128procedure TForm1.ShowWeb;
    11241129begin
    1125   ShellExecute(Handle, 'open', PChar('http://wow.zdechov.net/?page=client/'), nil, nil, SW_SHOWNORMAL);
     1130  ShellExecute(Handle, 'open', PChar(ProjectHomepage), nil, nil, SW_SHOWNORMAL);
    11261131end;
    11271132
    … …  
    11381143    ShellExecute(Handle, 'open', PChar(ExtractFileDir(Application.ExeName)+'\NÁPOVĚDA.HLP'), nil, nil, SW_SHOWNORMAL);
    11391144  end else begin
    1140     ShowMessage('Nápověda nalezena!');
    1141     StatusBar1.SimpleText := 'Nápověda nalezena!';
     1145    ShowMessage('Nápověda nenalezena!');
     1146    StatusBar1.SimpleText := 'Nápověda nenalezena!';
    11421147  end;
    11431148end;
    … …  
    13971402procedure TForm1.Image4Click(Sender: TObject);
    13981403begin
    1399   //http://wow.zdechov.net/db/index.php?id=questy&find=Hledat&q=test
    1400   OpenSearchURL('http://wow.zdechov.net/databaze/?search=');
     1404  OpenSearchURL(AoWoWSearchURL);
    14011405end;
    14021406
    … …  
    14761480
    14771481  inherited;
    1478 
    14791482end;
    14801483
    … …  
    15441547begin
    15451548  DrawForm;
     1549end;
     1550
     1551procedure TForm1.FormShow(Sender: TObject);
     1552begin
     1553  if OnlineHri1.Checked then Form5.Show;
     1554  if Aktuality1.Checked then Form6.Show;
    15461555end;
    15471556

  • trunk/News.dfm

    r6 r7  
    1616  OnCreate = FormCreate
    1717  OnResize = FormResize
     18  OnShow = FormShow
    1819  DesignSize = (
    1920    348

  • trunk/News.pas

    r6 r7  
    3232      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
    3333      Headers: OleVariant; var Cancel: WordBool);
     34    procedure FormShow(Sender: TObject);
    3435  private
    3536    { Private declarations }
    … …  
    378379begin
    379380  LoadRegNewsOptions;
    380   DrawForm;
    381   LoadRegRSS;
    382   if Form1.Timer1.Enabled then begin
    383     DownloadRSS;            //todo: vyjímka při nepřipojeném netu
    384     WriteNews;
    385   end;
    386   if Form1.Aktuality1.Checked and (StartMinimalize = false) then
    387     Form6.Show;
    388381end;
    389382
    … …  
    442435begin
    443436  DrawForm;
     437end;
     438
     439procedure TForm6.FormShow(Sender: TObject);
     440begin
     441  DrawForm;
     442  LoadRegRSS;
     443  if Form1.Timer1.Enabled then begin
     444    DownloadRSS;            //todo: vyjímka při nepřipojeném netu
     445    WriteNews;
     446  end;
     447  if Form1.Aktuality1.Checked and (StartMinimalize = false) then
     448    Form6.Show;
    444449end;
    445450

  • trunk/OnlinePlayers.dfm

    r6 r7  
    22  Left = 689
    33  Top = 75
    4   Width = 305
    5   Height = 600
    64  BorderStyle = bsSizeToolWin
    75  Caption = 'Online Players'
     6  ClientHeight = 574
     7  ClientWidth = 297
    88  Color = clBtnFace
    99  Font.Charset = DEFAULT_CHARSET
    … …  
    1616  OnCreate = FormCreate
    1717  OnResize = FormResize
     18  OnShow = FormShow
    1819  DesignSize = (
    1920    297
    20     566)
     21    574)
    2122  PixelsPerInch = 96
    2223  TextHeight = 13
    … …  
    185186    Top = 88
    186187    Bitmap = {
    187       494C01010B000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
    188       0000000000003600000028000000400000004000000001002000000000000040
    189       0000000000000000000000000000000000000000000000000000000000000000
    190       0000000000000000000000000000000000000000000000000000000000000000
    191       0000000000000000000000000000000000000000000000000000000000000000
    192       0000000000000000000000000000000000000000000000000000000000000000
    193       0000000000000000000000000000000000000000000000000000000000000000
    194       0000000000000000000000000000000000000000000000000000000000000000
    195       0000000000000000000000000000000000000000000000000000000000000000
    196       0000000000000000000000000000000000000000000000000000000000000000
    197       0000000000000000000000000000000000000000000000000000000000000000
    198       0000000000000000000000000000000000000000000000000000000000000000
    199       0000000000000000000000000000000000000000000000000000000000000000
    200       0000000000000000000000000000000000000000000000000000000000000000
    201       0000000000000000000000000000000000000000000000000000000000000000
    202       0000000000000000000000000000000000000000000000000000000000000000
    203       0000000000000000000000000000000000000000000000000000000000000000
    204       0000000000000000000000000000000000000000000000000000000000000000
    205       0000000000000000000000000000000000000000000000000000000000000000
    206       0000000000000000000000000000000000000000000000000000000000000000
    207       0000000000000000000000000000000000000000000000000000000000000000
    208       0000000000000000000000000000000000000000000000000000000000000000
    209       0000000000000000000000000000000000000000000000000000000000000000
    210       0000000000000000000000000000000000000000000000000000000000000000
    211       0000000000000000000000000000000000000000000000000000000000000000
    212       0000000000000000000000000000000000000000000000000000000000000000
    213       0000000000000000000000000000000000000000000000000000000000000000
    214       0000000000000000000000000000000000000000000000000000000000000000
    215       0000000000000000000000000000000000000000000000000000000000000000
    216       0000000000000000000000000000000000000000000000000000000000000000
    217       0000000000000000000000000000000000000000000000000000000000000000
    218       0000000000000000000000000000000000000000000000000000000000000000
    219       0000000000000000000000000000000000000000000000000000000000000000
    220       0000000000000000000000000000000000000000000000000000000000000000
    221       0000000000000000000000000000000000000000000000000000000000000000
    222       0000000000000000000000000000000000000000000000000000000000000000
    223       0000000000000000000000000000000000000000000000000000000000000000
    224       0000000000000000000000000000000000000000000000000000000000000000
    225       0000000000000000000000000000000000000000000000000000000000000000
    226       0000000000000000000000000000000000000000000000000000000000000000
    227       0000000000000000000000000000000000000000000000000000000000000000
    228       0000000000000000000000000000000000000000000000000000000000000000
    229       0000000000000000000000000000000000000000000000000000000000000000
    230       0000000000000000000000000000000000000000000000000000000000000000
    231       0000000000000000000000000000000000000000000000000000000000000000
    232       0000000000000000000000000000000000000000000000000000000000000000
    233       0000000000000000000000000000000000000000000000000000000000000000
    234       0000000000000000000000000000000000000000000000000000000000000000
    235       0000000000000000000000000000000000000000000000000000000000000000
    236       0000000000000000000000000000000000000000000000000000000000000000
    237       0000000000000000000000000000000000000000000000000000000000000000
    238       0000000000000000000000000000000000000000000000000000000000000000
    239       0000000000000000000000000000000000000000000000000000000000000000
    240       0000000000000000000000000000000000000000000000000000000000000000
    241       0000000000000000000000000000000000000000000000000000000000000000
    242       0000000000000000000000000000000000000000000000000000000000000000
    243       0000000000000000000000000000000000000000000000000000000000000000
    244       0000000000000000000000000000000000000000000000000000000000000000
    245       0000000000000000000000000000000000000000000000000000000000000000
    246       0000000000000000000000000000000000000000000000000000000000000000
    247       0000000000000000000000000000000000000000000000000000000000000000
    248       0000000000000000000000000000000000000000000000000000000000000000
    249       0000000000000000000000000000000000000000000000000000000000000000
    250       0000000000000000000000000000000000000000000000000000000000000000
    251       0000000000000000000000000000000000000000000000000000000000000000
    252       0000000000000000000000000000000000000000000000000000000000000000
    253       0000000000000000000000000000000000000000000000000000000000000000
    254       0000000000000000000000000000000000000000000000000000000000000000
    255       0000000000000000000000000000000000000000000000000000000000000000
    256       0000000000000000000000000000000000000000000000000000000000000000
    257       0000000000000000000000000000000000000000000000000000000000000000
    258       0000000000000000000000000000000000000000000000000000000000000000
    259       0000000000000000000000000000000000000000000000000000000000000000
    260       0000000000000000000000000000000000000000000000000000000000000000
    261       0000000000000000000000000000000000000000000000000000000000000000
    262       0000000000000000000000000000000000000000000000000000000000000000
    263       0000000000000000000000000000000000000000000000000000000000000000
    264       0000000000000000000000000000000000000000000000000000000000000000
    265       0000000000000000000000000000000000000000000000000000000000000000
    266       0000000000000000000000000000000000000000000000000000000000000000
    267       0000000000000000000000000000000000000000000000000000000000000000
    268       0000000000000000000000000000000000000000000000000000000000000000
    269       0000000000000000000000000000000000000000000000000000000000000000
    270       0000000000000000000000000000000000000000000000000000000000000000
    271       0000000000000000000000000000000000000000000000000000000000000000
    272       0000000000000000000000000000000000000000000000000000000000000000
    273       0000000000000000000000000000000000000000000000000000000000000000
    274       0000000000000000000000000000000000000000000000000000000000000000
    275       0000000000000000000000000000000000000000000000000000000000000000
    276       0000000000000000000000000000000000000000000000000000000000000000
    277       0000000000000000000000000000000000000000000000000000000000000000
    278       0000000000000000000000000000000000000000000000000000000000000000
    279       0000000000000000000000000000000000000000000000000000000000000000
    280       0000000000000000000000000000000000000000000000000000000000000000
    281       0000000000000000000000000000000000000000000000000000000000000000
    282       0000000000000000000000000000000000000000000000000000000000000000
    283       0000000000000000000000000000000000000000000000000000000000000000
    284       0000000000000000000000000000000000000000000000000000000000000000
    285       0000000000000000000000000000000000000000000000000000000000000000
    286       0000000000000000000000000000000000000000000000000000000000000000
    287       0000000000000000000000000000000000000000000000000000000000000000
    288       0000000000000000000000000000000000000000000000000000000000000000
    289       0000000000000000000000000000000000000000000000000000000000000000
    290       0000000000000000000000000000000000000000000000000000000000000000
    291       0000000000000000000000000000000000000000000000000000000000000000
    292       0000000000000000000000000000000000000000000000000000000000000000
    293       0000000000000000000000000000000000000000000000000000000000000000
    294       0000000000000000000000000000000000000000000000000000000000000000
    295       0000000000000000000000000000000000000000000000000000000000000000
    296       0000000000000000000000000000000000000000000000000000000000000000
    297       0000000000000000000000000000000000000000000000000000000000000000
    298       0000000000000000000000000000000000000000000000000000000000000000
    299       0000000000000000000000000000000000000000000000000000000000000000
    300       0000000000000000000000000000000000000000000000000000000000000000
    301       0000000000000000000000000000000000000000000000000000000000000000
    302       0000000000000000000000000000000000000000000000000000000000000000
    303       0000000000000000000000000000000000000000000000000000000000000000
    304       0000000000000000000000000000000000000000000000000000000000000000
    305       0000000000000000000000000000000000000000000000000000000000000000
    306       0000000000000000000000000000000000000000000000000000000000000000
    307       0000000000000000000000000000000000000000000000000000000000000000
    308       0000000000000000000000000000000000000000000000000000000000000000
    309       0000000000000000000000000000000000000000000000000000000000000000
    310       0000000000000000000000000000000000000000000000000000000000000000
    311       0000000000000000000000000000000000000000000000000000000000000000
    312       0000000000000000000000000000000000000000000000000000000000000000
    313       0000000000000000000000000000000000000000000000000000000000000000
    314       0000000000000000000000000000000000000000000000000000000000000000
    315       0000000000000000000000000000000000000000000000000000000000000000
    316       0000000000000000000000000000000000000000000000000000000000000000
     188      494C01010B000C00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
     189      0000000000003600000028000000400000003000000001002000000000000030
    317190      000000000000000000000000000000000000000000002C262400241C19002C26
    318191      24002C2624002C2624002C2624002C262400241C1900241C1900241C19002C26
    … …  
    700573      8F008C8C8F007A627B008C8C8F008C8C8F008C8C8F008C8C8F008C8C8F008C8C
    701574      8F008C8C8F008C8C8F006B846E0000000000424D3E000000000000003E000000
    702       2800000040000000400000000100010000000000000200000000000000000000
    703       000000000000000000000000FFFFFF0000000000000000000000000000000000
    704       0000000000000000000000000000000000000000000000000000000000000000
    705       0000000000000000000000000000000000000000000000000000000000000000
    706       0000000000000000000000000000000000000000000000000000000000000000
    707       0000000000000000000000000000000080018001800100000000000000000000
     575      2800000040000000300000000100010000000000800100000000000000000000
     576      000000000000000000000000FFFFFF0080018001800100000000000000000000
    708577      0000000000000000000000000000000000000000000000000000000000000000
    709578      0000000000020000000000000000000000000000000000000000000000000000
    … …  
    724593    Top = 96
    725594    Bitmap = {
    726       494C01010B000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
    727       0000000000003600000028000000400000004000000001002000000000000040
    728       0000000000000000000000000000000000000000000000000000000000000000
    729       0000000000000000000000000000000000000000000000000000000000000000
    730       0000000000000000000000000000000000000000000000000000000000000000
    731       0000000000000000000000000000000000000000000000000000000000000000
    732       0000000000000000000000000000000000000000000000000000000000000000
    733       0000000000000000000000000000000000000000000000000000000000000000
    734       0000000000000000000000000000000000000000000000000000000000000000
    735       0000000000000000000000000000000000000000000000000000000000000000
    736       0000000000000000000000000000000000000000000000000000000000000000
    737       0000000000000000000000000000000000000000000000000000000000000000
    738       0000000000000000000000000000000000000000000000000000000000000000
    739       0000000000000000000000000000000000000000000000000000000000000000
    740       0000000000000000000000000000000000000000000000000000000000000000
    741       0000000000000000000000000000000000000000000000000000000000000000
    742       0000000000000000000000000000000000000000000000000000000000000000
    743       0000000000000000000000000000000000000000000000000000000000000000
    744       0000000000000000000000000000000000000000000000000000000000000000
    745       0000000000000000000000000000000000000000000000000000000000000000
    746       0000000000000000000000000000000000000000000000000000000000000000
    747       0000000000000000000000000000000000000000000000000000000000000000
    748       0000000000000000000000000000000000000000000000000000000000000000
    749       0000000000000000000000000000000000000000000000000000000000000000
    750       0000000000000000000000000000000000000000000000000000000000000000
    751       0000000000000000000000000000000000000000000000000000000000000000
    752       0000000000000000000000000000000000000000000000000000000000000000
    753       0000000000000000000000000000000000000000000000000000000000000000
    754       0000000000000000000000000000000000000000000000000000000000000000
    755       0000000000000000000000000000000000000000000000000000000000000000
    756       0000000000000000000000000000000000000000000000000000000000000000
    757       0000000000000000000000000000000000000000000000000000000000000000
    758       0000000000000000000000000000000000000000000000000000000000000000
    759       0000000000000000000000000000000000000000000000000000000000000000
    760       0000000000000000000000000000000000000000000000000000000000000000
    761       0000000000000000000000000000000000000000000000000000000000000000
    762       0000000000000000000000000000000000000000000000000000000000000000
    763       0000000000000000000000000000000000000000000000000000000000000000
    764       0000000000000000000000000000000000000000000000000000000000000000
    765       0000000000000000000000000000000000000000000000000000000000000000
    766       0000000000000000000000000000000000000000000000000000000000000000
    767       0000000000000000000000000000000000000000000000000000000000000000
    768       0000000000000000000000000000000000000000000000000000000000000000
    769       0000000000000000000000000000000000000000000000000000000000000000
    770       0000000000000000000000000000000000000000000000000000000000000000
    771       0000000000000000000000000000000000000000000000000000000000000000
    772       0000000000000000000000000000000000000000000000000000000000000000
    773       0000000000000000000000000000000000000000000000000000000000000000
    774       0000000000000000000000000000000000000000000000000000000000000000
    775       0000000000000000000000000000000000000000000000000000000000000000
    776       0000000000000000000000000000000000000000000000000000000000000000
    777       0000000000000000000000000000000000000000000000000000000000000000
    778       0000000000000000000000000000000000000000000000000000000000000000
    779       0000000000000000000000000000000000000000000000000000000000000000
    780       0000000000000000000000000000000000000000000000000000000000000000
    781       0000000000000000000000000000000000000000000000000000000000000000
    782       0000000000000000000000000000000000000000000000000000000000000000
    783       0000000000000000000000000000000000000000000000000000000000000000
    784       0000000000000000000000000000000000000000000000000000000000000000
    785       0000000000000000000000000000000000000000000000000000000000000000
    786       0000000000000000000000000000000000000000000000000000000000000000
    787       0000000000000000000000000000000000000000000000000000000000000000
    788       0000000000000000000000000000000000000000000000000000000000000000
    789       0000000000000000000000000000000000000000000000000000000000000000
    790       0000000000000000000000000000000000000000000000000000000000000000
    791       0000000000000000000000000000000000000000000000000000000000000000
    792       0000000000000000000000000000000000000000000000000000000000000000
    793       0000000000000000000000000000000000000000000000000000000000000000
    794       0000000000000000000000000000000000000000000000000000000000000000
    795       0000000000000000000000000000000000000000000000000000000000000000
    796       0000000000000000000000000000000000000000000000000000000000000000
    797       0000000000000000000000000000000000000000000000000000000000000000
    798       0000000000000000000000000000000000000000000000000000000000000000
    799       0000000000000000000000000000000000000000000000000000000000000000
    800       0000000000000000000000000000000000000000000000000000000000000000
    801       0000000000000000000000000000000000000000000000000000000000000000
    802       0000000000000000000000000000000000000000000000000000000000000000
    803       0000000000000000000000000000000000000000000000000000000000000000
    804       0000000000000000000000000000000000000000000000000000000000000000
    805       0000000000000000000000000000000000000000000000000000000000000000
    806       0000000000000000000000000000000000000000000000000000000000000000
    807       0000000000000000000000000000000000000000000000000000000000000000
    808       0000000000000000000000000000000000000000000000000000000000000000
    809       0000000000000000000000000000000000000000000000000000000000000000
    810       0000000000000000000000000000000000000000000000000000000000000000
    811       0000000000000000000000000000000000000000000000000000000000000000
    812       0000000000000000000000000000000000000000000000000000000000000000
    813       0000000000000000000000000000000000000000000000000000000000000000
    814       0000000000000000000000000000000000000000000000000000000000000000
    815       0000000000000000000000000000000000000000000000000000000000000000
    816       0000000000000000000000000000000000000000000000000000000000000000
    817       0000000000000000000000000000000000000000000000000000000000000000
    818       0000000000000000000000000000000000000000000000000000000000000000
    819       0000000000000000000000000000000000000000000000000000000000000000
    820       0000000000000000000000000000000000000000000000000000000000000000
    821       0000000000000000000000000000000000000000000000000000000000000000
    822       0000000000000000000000000000000000000000000000000000000000000000
    823       0000000000000000000000000000000000000000000000000000000000000000
    824       0000000000000000000000000000000000000000000000000000000000000000
    825       0000000000000000000000000000000000000000000000000000000000000000
    826       0000000000000000000000000000000000000000000000000000000000000000
    827       0000000000000000000000000000000000000000000000000000000000000000
    828       0000000000000000000000000000000000000000000000000000000000000000
    829       0000000000000000000000000000000000000000000000000000000000000000
    830       0000000000000000000000000000000000000000000000000000000000000000
    831       0000000000000000000000000000000000000000000000000000000000000000
    832       0000000000000000000000000000000000000000000000000000000000000000
    833       0000000000000000000000000000000000000000000000000000000000000000
    834       0000000000000000000000000000000000000000000000000000000000000000
    835       0000000000000000000000000000000000000000000000000000000000000000
    836       0000000000000000000000000000000000000000000000000000000000000000
    837       0000000000000000000000000000000000000000000000000000000000000000
    838       0000000000000000000000000000000000000000000000000000000000000000
    839       0000000000000000000000000000000000000000000000000000000000000000
    840       0000000000000000000000000000000000000000000000000000000000000000
    841       0000000000000000000000000000000000000000000000000000000000000000
    842       0000000000000000000000000000000000000000000000000000000000000000
    843       0000000000000000000000000000000000000000000000000000000000000000
    844       0000000000000000000000000000000000000000000000000000000000000000
    845       0000000000000000000000000000000000000000000000000000000000000000
    846       0000000000000000000000000000000000000000000000000000000000000000
    847       0000000000000000000000000000000000000000000000000000000000000000
    848       0000000000000000000000000000000000000000000000000000000000000000
    849       0000000000000000000000000000000000000000000000000000000000000000
    850       0000000000000000000000000000000000000000000000000000000000000000
    851       0000000000000000000000000000000000000000000000000000000000000000
    852       0000000000000000000000000000000000000000000000000000000000000000
    853       0000000000000000000000000000000000000000000000000000000000000000
    854       0000000000000000000000000000000000000000000000000000000000000000
    855       0000000000000000000000000000000000000000000000000000000000000000
     595      494C01010B000C00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
     596      0000000000003600000028000000400000003000000001002000000000000030
    856597      0000000000000000000000000000000000000000000009050900191C1A000905
    857598      0900191C1A00090509001409170014091700090509001409170014091700191C
    … …  
    1239980      9300848484008484840084848400848D930084848400848D9300989EA000848D
    1240981      9300989EA000989EA0004347460000000000424D3E000000000000003E000000
    1241       2800000040000000400000000100010000000000000200000000000000000000
    1242       000000000000000000000000FFFFFF0000000000000000000000000000000000
    1243       0000000000000000000000000000000000000000000000000000000000000000
    1244       0000000000000000000000000000000000000000000000000000000000000000
    1245       0000000000000000000000000000000000000000000000000000000000000000
    1246       0000000000000000000000000000000080018001800100000000000000000000
     982      2800000040000000300000000100010000000000800100000000000000000000
     983      000000000000000000000000FFFFFF0080018001800100000000000000000000
    1247984      0000000000000000000000000000000000000000000000000000000000000000
    1248985      0000000000000000000000000000000000000000000000000000000000000000

  • trunk/OnlinePlayers.pas

    r6 r7  
    2828    PopupMenu3: TPopupMenu;
    2929    Smazatzseznamu1: TMenuItem;
    30     procedure FormCreate(Sender: TObject);
    3130    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    3231    procedure Button1Click(Sender: TObject);
    … …  
    4948    procedure ListView2MouseDown(Sender: TObject; Button: TMouseButton;
    5049      Shift: TShiftState; X, Y: Integer);
     50    procedure FormShow(Sender: TObject);
     51    procedure FormCreate(Sender: TObject);
    5152  private
    5253    { Private declarations }
    … …  
    129130end;
    130131
     132procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
     133begin
     134  Form1.OnlineHri1.Checked := False;
     135end;
     136
    131137procedure TForm5.FormCreate(Sender: TObject);
    132138begin
    133139  LoadRegOptions;
    134   if Form1.Timer2.Enabled then
    135     DownloadPlayers;
    136   if Form1.OnlineHri1.Checked and (StartMinimalize = false) then
    137     Form5.Show;
    138   //zablokování tlačítka při nastavení pevné adresy
    139         if LockOnlineAddres then
    140           Form5.Button2.Enabled := false
    141         else
    142           Form5.Button2.Enabled := True;
    143 
    144    DrawForm;
    145 end;
    146 
    147 procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
    148 begin
    149   Form1.OnlineHri1.Checked := False;
    150140end;
    151141
    … …  
    160150begin
    161151  if ListView1.Items.Count = 0 then FirstDownload := True else FirstDownload := False;
    162   //zálohování dřívějších online přátel
     152  // zálohování dřívějších online přátel
    163153  SetLength(OldOnlineFriend,ListView2.Items.Count);
    164154  for i:= 0 to Length(OldOnlineFriend)-1 do begin
    … …  
    166156  end;
    167157
    168   //mazání
     158  // mazání
    169159  ListView1.Clear;
    170160  ListView2.Clear;
    171   try          //načítání z serveru
     161  // načítání z serveru
     162  try
    172163    if LockOnlineAddres then
    173164      XMLDocument1.FileName := LockAddres
    174165    else
    175166      XMLDocument1.FileName := Form1.Servers[OnlinePlayersIndex].OnlinePlayersAddress;
    176     XMLDocument1.Active:=True;
     167    XMLDocument1.Active := True;
    177168
    178169    StartItemNode := XMLDocument1.DocumentElement.ChildNodes['players'].ChildNodes.FindNode('player');
    … …  
    192183        SubItems.Add(GetNameMap(sMap));
    193184        SubItems.Add(GetNameZone(sZone));
    194         ImageIndex := StrToInt(sClass)-1;
    195         StateIndex := StrToInt(sRace)-1;
     185        ImageIndex := StrToInt(sClass) - 1;
     186        StateIndex := StrToInt(sRace) - 1;
    196187      end;
    197188      //zjišťování přátel a zobrazení
    198       for i:=0 to length(Friends)-1 do begin
     189      for i:=0 to length(Friends) - 1 do begin
    199190        if GetLowerString(sName) = GetLowerString(Friends[i]) then begin
    200191          with ListView2.Items.Add do begin
    … …  
    203194            SubItems.Add(GetNameMap(sMap));
    204195            SubItems.Add(GetNameZone(sZone));
    205             ImageIndex := StrToInt(sClass)-1;
    206             StateIndex := StrToInt(sRace)-1;
     196            ImageIndex := StrToInt(sClass) - 1;
     197            StateIndex := StrToInt(sRace) - 1;
    207198          end;
    208199        end;
    … …  
    214205    Label1.Caption := IntToStr(ListView1.Items.Count+1);
    215206    if LockOnlineAddres then begin
    216       Form1.CoolTrayIcon1.Hint := IntToStr(ListView1.Items.Count+1)+' hráčů';
     207      Form1.CoolTrayIcon1.Hint := IntToStr(ListView1.Items.Count + 1)+' hráčů';
    217208  //    Form1.StatusBar1.SimpleText := 'Online hráči aktualizováni';
    218209    end else begin
    219       Form1.CoolTrayIcon1.Hint := Form1.Servers[OnlinePlayersIndex].Name+': '+IntToStr(ListView1.Items.Count+1)+' hráčů';
     210      Form1.CoolTrayIcon1.Hint := Form1.Servers[OnlinePlayersIndex].Name + ': ' + IntToStr(ListView1.Items.Count + 1) + ' hráčů';
    220211    //  Form1.StatusBar1.SimpleText := 'O.H. aktualizováni: '+Form1.Servers[OnlinePlayersIndex].Name;
    221212    end;
    … …  
    235226    Caption := 'Online Hráči'
    236227  else
    237     Caption := 'OnlineHráči-'+Form1.Servers[OnlinePlayersIndex].Name;
     228    Caption := 'OnlineHráči-' + Form1.Servers[OnlinePlayersIndex].Name;
    238229
    239230
    … …  
    245236      if FriendPlaySound then
    246237        Form1.MediaPlay(FriendSoundFile);
    247       for i:=0 to ListView2.Items.Count-1 do begin
     238      for i := 0 to ListView2.Items.Count - 1 do begin
    248239        if IsStringInArray(ListView2.Items[i].Caption,OldOnlineFriend) then
    249           Form1.CoolTrayIcon1.ShowBalloonHint(Form1.Caption+' - Připojil se kamarád',ListView2.Items[i].Caption+' se připojil',bitInfo,10);
     240          Form1.CoolTrayIcon1.ShowBalloonHint(Form1.Caption + ' - Připojil se kamarád',ListView2.Items[i].Caption + ' se připojil', bitInfo, 10);
    250241      end;
    251242    end;
    … …  
    867858end;
    868859
     860procedure TForm5.FormShow(Sender: TObject);
     861begin
     862  if Form1.Timer2.Enabled then
     863    DownloadPlayers;
     864  if Form1.OnlineHri1.Checked and (StartMinimalize = false) then
     865    Form5.Show;
     866  // zablokování tlačítka při nastavení pevné adresy
     867  if LockOnlineAddres then
     868    Form5.Button2.Enabled := False
     869    else Form5.Button2.Enabled := True;
     870
     871   DrawForm;
     872end;
     873
    869874function TForm5.GetLowerString(Text: string): string;
    870875begin

  • trunk/Options.dfm

    r6 r7  
    2525    Height = 25
    2626    Hint = 'Ulo'#382'it v'#353'echny zm'#283'ny v nastaven'#237
    27     Anchors = [akLeft, akBottom]
     27    Anchors = [akRight, akBottom]
    2828    Caption = 'Ulo'#382'it'
    2929    ParentShowHint = False
    … …  
    3838    Height = 25
    3939    Hint = 'Proveden'#233' zm'#283'ny se neprojev'#237
    40     Anchors = [akLeft, akBottom]
     40    Anchors = [akRight, akBottom]
    4141    Caption = 'Storno'
    4242    ParentShowHint = False
    … …  
    6363    Width = 393
    6464    Height = 305
    65     ActivePage = TabSheet1
    66     Anchors = [akLeft, akTop, akBottom]
     65    ActivePage = TabSheet2
     66    Anchors = [akLeft, akTop, akRight, akBottom]
    6767    TabOrder = 3
    6868    object TabSheet1: TTabSheet
    6969      Caption = 'Nastaven'#237' programu'
    70       ExplicitLeft = 0
    71       ExplicitTop = 0
    72       ExplicitWidth = 0
    73       ExplicitHeight = 0
    7470      object CheckBox1: TCheckBox
    7571        Left = 16
    … …  
    141137      Caption = 'Online hr'#225#269'i'
    142138      ImageIndex = 1
    143       ExplicitLeft = 0
    144       ExplicitTop = 0
    145       ExplicitWidth = 0
    146       ExplicitHeight = 0
    147139      object Label3: TLabel
    148140        Left = 240
    … …  
    398390      Caption = 'Aktuality'
    399391      ImageIndex = 2
    400       ExplicitLeft = 0
    401       ExplicitTop = 0
    402       ExplicitWidth = 0
    403       ExplicitHeight = 0
    404392      object Label1: TLabel
    405393        Left = 16
    … …  
    565553      Caption = 'Skiny'
    566554      ImageIndex = 3
    567       ExplicitLeft = 0
    568       ExplicitTop = 0
    569       ExplicitWidth = 0
    570       ExplicitHeight = 0
    571555      object Button3: TButton
    572556        Left = 294
    … …  
    608592      Caption = 'Servery'
    609593      ImageIndex = 4
    610       ExplicitLeft = 0
    611       ExplicitTop = 0
    612       ExplicitWidth = 0
    613       ExplicitHeight = 0
    614594      object CheckBox10: TCheckBox
    615595        Left = 16
    … …  
    698678    Height = 25
    699679    Hint = 'Obnovit v'#253'choz'#237' nastaven'#237' programu'
     680    Anchors = [akLeft, akBottom]
    700681    Caption = 'Obnovit v'#253'choz'#237
    701682    TabOrder = 4
Note: See TracChangeset for help on using the changeset viewer.