- Timestamp:
- May 15, 2009, 9:49:54 AM (16 years ago)
- Location:
- trunk
- Files:
-
- 1 deleted
- 8 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 2 2 HoFclient.dsk 3 3 HoFclient.~dsk 4 *.dcu
-
- Property svn:ignore
-
trunk/Main.dfm
r6 r7 3 3 Top = 74 4 4 Caption = 'Heroes of Fantasy - Client' 5 ClientHeight = 2 545 ClientHeight = 274 6 6 ClientWidth = 389 7 7 Color = clBtnFace … … 17 17 OnDestroy = FormDestroy 18 18 OnResize = FormResize 19 OnShow = FormShow 19 20 DesignSize = ( 20 21 389 21 2 54)22 274) 22 23 PixelsPerInch = 96 23 24 TextHeight = 13 … … 46 47 object StatusBar1: TStatusBar 47 48 Left = 162 48 Top = 2 1549 Top = 235 49 50 Width = 227 50 51 Height = 19 … … 53 54 Panels = <> 54 55 SimplePanel = True 56 ExplicitTop = 215 55 57 end 56 58 object Panel1: TPanel 57 59 Left = 0 58 Top = 2 1560 Top = 235 59 61 Width = 161 60 62 Height = 19 61 63 Anchors = [akLeft, akBottom] 62 64 TabOrder = 1 65 ExplicitTop = 215 63 66 object Image1: TImage 64 67 Left = 108 … … 400 403 Top = 36 401 404 Width = 105 402 Height = 1 58405 Height = 178 403 406 Anchors = [akTop, akRight, akBottom] 404 407 BorderStyle = bsNone … … 416 419 ReadOnly = True 417 420 TabOrder = 2 421 ExplicitHeight = 158 418 422 end 419 423 object Button1: TButton 420 424 Left = 340 421 Top = 197425 Top = 217 422 426 Width = 46 423 427 Height = 17 … … 427 431 TabOrder = 3 428 432 OnClick = Button1Click 433 ExplicitTop = 197 429 434 end 430 435 object ListView1: TListView … … 432 437 Top = 0 433 438 Width = 269 434 Height = 2 15439 Height = 235 435 440 Hint = 436 441 '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' + … … 461 466 OnMouseMove = ListView1MouseMove 462 467 OnSelectItem = ListView1SelectItem 468 ExplicitHeight = 215 463 469 end 464 470 object Panel2: TPanel … … 466 472 Top = 0 467 473 Width = 9 468 Height = 2 15474 Height = 235 469 475 Cursor = crHSplit 470 476 Hint = 'K schov'#225'n'#237' detajl'#367' p'#345'et'#225'hn'#283'te k prav'#233'mu okraji' … … 477 483 OnMouseMove = Panel2MouseMove 478 484 OnMouseUp = Panel2MouseUp 485 ExplicitHeight = 215 479 486 end 480 487 object MediaPlayer1: TMediaPlayer 481 488 Left = 152 482 Top = 32489 Top = 8 483 490 Width = 29 484 491 Height = 30 … … 792 799 OnPopup = PopupMenu2Popup 793 800 Left = 8 794 Top = 40801 Top = 8 795 802 object Pipojit1: TMenuItem 796 803 Caption = 'P'#345'ipojit' … … 1502 1509 Interval = 600000 1503 1510 OnTimer = Timer1Timer 1504 Left = 1201505 Top = 641511 Left = 216 1512 Top = 56 1506 1513 end 1507 1514 object Timer2: TTimer … … 1528 1535 Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' 1529 1536 HTTPOptions = [hoForceEncodeParams] 1530 Left = 1201531 Top = 881537 Left = 8 1538 Top = 120 1532 1539 end 1533 1540 object SaveDialog1: TSaveDialog 1534 Left = 1 201541 Left = 136 1535 1542 Top = 120 1536 1543 end 1537 1544 object OpenDialog1: TOpenDialog 1538 Left = 1 601539 Top = 881545 Left = 104 1546 Top = 120 1540 1547 end 1541 1548 object XMLDocument1: TXMLDocument 1542 Left = 16 01549 Left = 168 1543 1550 Top = 120 1544 1551 DOMVendorDesc = 'MSXML' … … 1551 1558 PacketSize = 1024 1552 1559 OnReply = IdIcmpClient1Reply 1553 Left = 4 81560 Left = 40 1554 1561 Top = 120 1555 1562 end … … 1561 1568 end 1562 1569 object PopupMenu3: TPopupMenu 1563 Left = 241564 Top = 961570 Left = 8 1571 Top = 40 1565 1572 object Pidatrun1: TMenuItem 1566 1573 Caption = 'P'#345'idat ru'#269'n'#283 -
trunk/Main.pas
r6 r7 18 18 DefaultRSSChannel = 'http://wow.zdechov.net/rss.php?category=articles'; 19 19 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/'; 20 23 21 24 type … … 183 186 procedure Zkoprovatfonty1Click(Sender: TObject); 184 187 procedure FormDestroy(Sender: TObject); 188 procedure FormShow(Sender: TObject); 185 189 private 186 190 { Private declarations } … … 340 344 Servers[0].Name := 'Heroes of Fantasy'; 341 345 Servers[0].Address := 'wow.zdechov.net'; 342 Servers[0].OnlinePlayersAddress := 'http://wow.zdechov.net/stat/stat.xml';346 Servers[0].OnlinePlayersAddress := HoFOnlineListURL; 343 347 Servers[0].ExeFile := GetWoWExeFile; 344 348 Servers[0].Image := '1'; … … 365 369 procedure TForm1.FormCreate(Sender: TObject); 366 370 begin 367 Vlakno := TVlakno.Create(True); 371 Timer4.Enabled := False; 372 //Vlakno := TVlakno.Create(True); 368 373 369 374 // Načítání nastavení a vypsání … … 378 383 379 384 // ostatní 380 Form1.Caption := Form1.Caption +' '+ApplicationVersion;385 Form1.Caption := Form1.Caption + ' ' + ApplicationVersion; 381 386 SystemParametersInfo(SPI_GETWORKAREA, 0, @Desktop, 0); 382 387 InitRichEditURLDetection(RichEdit1); … … 433 438 NewMenuItem.Caption := '-'; 434 439 435 for I:= 0 to H IGh(servers) do begin440 for I:= 0 to High(Servers) do begin 436 441 NewMenuItem := TMenuItem.Create(PopupMenu1); // create the new item 437 442 PopupMenu1.Items.Insert(0, NewMenuItem);// add it to the Popupmenu 438 NewMenuItem.Caption := servers[i].Name;443 NewMenuItem.Caption := Servers[i].Name; 439 444 NewMenuItem.Tag := I; 440 445 NewMenuItem.OnClick := PopupMenuItemsClick;// assign it an event handler … … 619 624 begin 620 625 If ReallyYes('Smazat všechny servery?') then begin 621 SetLength(Servers, 0);626 SetLength(Servers, 0); 622 627 WriteImages; 623 628 WriteServers; … … 1033 1038 Name := 'Heroes of Fantasy'; 1034 1039 Address := 'wow.zdechov.net'; 1035 OnlinePlayersAddress := 'http://wow.zdechov.net/stat/stat.xml';1040 OnlinePlayersAddress := HoFOnlineListURL; 1036 1041 ExeFile := GetWoWExeFile; 1037 1042 Image := '1'; … … 1079 1084 begin 1080 1085 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; 1083 1088 if Assigned(ListView1.GetItemAt(x,y)) then begin 1084 1089 Form7.Left := Position.X; … … 1104 1109 NewVersionInt := StrToInt(NewVersion); 1105 1110 except 1106 StatusBar1.SimpleText := 'Chyba spojení s serverem';1111 StatusBar1.SimpleText := 'Chyba spojení se serverem'; 1107 1112 NewVersionInt := 0; 1108 1113 end; … … 1123 1128 procedure TForm1.ShowWeb; 1124 1129 begin 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); 1126 1131 end; 1127 1132 … … 1138 1143 ShellExecute(Handle, 'open', PChar(ExtractFileDir(Application.ExeName)+'\NÁPOVĚDA.HLP'), nil, nil, SW_SHOWNORMAL); 1139 1144 end else begin 1140 ShowMessage('Nápověda n alezena!');1141 StatusBar1.SimpleText := 'Nápověda n alezena!';1145 ShowMessage('Nápověda nenalezena!'); 1146 StatusBar1.SimpleText := 'Nápověda nenalezena!'; 1142 1147 end; 1143 1148 end; … … 1397 1402 procedure TForm1.Image4Click(Sender: TObject); 1398 1403 begin 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); 1401 1405 end; 1402 1406 … … 1476 1480 1477 1481 inherited; 1478 1479 1482 end; 1480 1483 … … 1544 1547 begin 1545 1548 DrawForm; 1549 end; 1550 1551 procedure TForm1.FormShow(Sender: TObject); 1552 begin 1553 if OnlineHri1.Checked then Form5.Show; 1554 if Aktuality1.Checked then Form6.Show; 1546 1555 end; 1547 1556 -
trunk/News.dfm
r6 r7 16 16 OnCreate = FormCreate 17 17 OnResize = FormResize 18 OnShow = FormShow 18 19 DesignSize = ( 19 20 348 -
trunk/News.pas
r6 r7 32 32 const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, 33 33 Headers: OleVariant; var Cancel: WordBool); 34 procedure FormShow(Sender: TObject); 34 35 private 35 36 { Private declarations } … … 378 379 begin 379 380 LoadRegNewsOptions; 380 DrawForm;381 LoadRegRSS;382 if Form1.Timer1.Enabled then begin383 DownloadRSS; //todo: vyjímka při nepřipojeném netu384 WriteNews;385 end;386 if Form1.Aktuality1.Checked and (StartMinimalize = false) then387 Form6.Show;388 381 end; 389 382 … … 442 435 begin 443 436 DrawForm; 437 end; 438 439 procedure TForm6.FormShow(Sender: TObject); 440 begin 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; 444 449 end; 445 450 -
trunk/OnlinePlayers.dfm
r6 r7 2 2 Left = 689 3 3 Top = 75 4 Width = 3055 Height = 6006 4 BorderStyle = bsSizeToolWin 7 5 Caption = 'Online Players' 6 ClientHeight = 574 7 ClientWidth = 297 8 8 Color = clBtnFace 9 9 Font.Charset = DEFAULT_CHARSET … … 16 16 OnCreate = FormCreate 17 17 OnResize = FormResize 18 OnShow = FormShow 18 19 DesignSize = ( 19 20 297 20 5 66)21 574) 21 22 PixelsPerInch = 96 22 23 TextHeight = 13 … … 185 186 Top = 88 186 187 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 317 190 000000000000000000000000000000000000000000002C262400241C19002C26 318 191 24002C2624002C2624002C2624002C262400241C1900241C1900241C19002C26 … … 700 573 8F008C8C8F007A627B008C8C8F008C8C8F008C8C8F008C8C8F008C8C8F008C8C 701 574 8F008C8C8F008C8C8F006B846E0000000000424D3E000000000000003E000000 702 2800000040000000400000000100010000000000000200000000000000000000 703 000000000000000000000000FFFFFF0000000000000000000000000000000000 704 0000000000000000000000000000000000000000000000000000000000000000 705 0000000000000000000000000000000000000000000000000000000000000000 706 0000000000000000000000000000000000000000000000000000000000000000 707 0000000000000000000000000000000080018001800100000000000000000000 575 2800000040000000300000000100010000000000800100000000000000000000 576 000000000000000000000000FFFFFF0080018001800100000000000000000000 708 577 0000000000000000000000000000000000000000000000000000000000000000 709 578 0000000000020000000000000000000000000000000000000000000000000000 … … 724 593 Top = 96 725 594 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 856 597 0000000000000000000000000000000000000000000009050900191C1A000905 857 598 0900191C1A00090509001409170014091700090509001409170014091700191C … … 1239 980 9300848484008484840084848400848D930084848400848D9300989EA000848D 1240 981 9300989EA000989EA0004347460000000000424D3E000000000000003E000000 1241 2800000040000000400000000100010000000000000200000000000000000000 1242 000000000000000000000000FFFFFF0000000000000000000000000000000000 1243 0000000000000000000000000000000000000000000000000000000000000000 1244 0000000000000000000000000000000000000000000000000000000000000000 1245 0000000000000000000000000000000000000000000000000000000000000000 1246 0000000000000000000000000000000080018001800100000000000000000000 982 2800000040000000300000000100010000000000800100000000000000000000 983 000000000000000000000000FFFFFF0080018001800100000000000000000000 1247 984 0000000000000000000000000000000000000000000000000000000000000000 1248 985 0000000000000000000000000000000000000000000000000000000000000000 -
trunk/OnlinePlayers.pas
r6 r7 28 28 PopupMenu3: TPopupMenu; 29 29 Smazatzseznamu1: TMenuItem; 30 procedure FormCreate(Sender: TObject);31 30 procedure FormClose(Sender: TObject; var Action: TCloseAction); 32 31 procedure Button1Click(Sender: TObject); … … 49 48 procedure ListView2MouseDown(Sender: TObject; Button: TMouseButton; 50 49 Shift: TShiftState; X, Y: Integer); 50 procedure FormShow(Sender: TObject); 51 procedure FormCreate(Sender: TObject); 51 52 private 52 53 { Private declarations } … … 129 130 end; 130 131 132 procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction); 133 begin 134 Form1.OnlineHri1.Checked := False; 135 end; 136 131 137 procedure TForm5.FormCreate(Sender: TObject); 132 138 begin 133 139 LoadRegOptions; 134 if Form1.Timer2.Enabled then135 DownloadPlayers;136 if Form1.OnlineHri1.Checked and (StartMinimalize = false) then137 Form5.Show;138 //zablokování tlačítka při nastavení pevné adresy139 if LockOnlineAddres then140 Form5.Button2.Enabled := false141 else142 Form5.Button2.Enabled := True;143 144 DrawForm;145 end;146 147 procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);148 begin149 Form1.OnlineHri1.Checked := False;150 140 end; 151 141 … … 160 150 begin 161 151 if ListView1.Items.Count = 0 then FirstDownload := True else FirstDownload := False; 162 // zálohování dřívějších online přátel152 // zálohování dřívějších online přátel 163 153 SetLength(OldOnlineFriend,ListView2.Items.Count); 164 154 for i:= 0 to Length(OldOnlineFriend)-1 do begin … … 166 156 end; 167 157 168 // mazání158 // mazání 169 159 ListView1.Clear; 170 160 ListView2.Clear; 171 try //načítání z serveru 161 // načítání z serveru 162 try 172 163 if LockOnlineAddres then 173 164 XMLDocument1.FileName := LockAddres 174 165 else 175 166 XMLDocument1.FileName := Form1.Servers[OnlinePlayersIndex].OnlinePlayersAddress; 176 XMLDocument1.Active :=True;167 XMLDocument1.Active := True; 177 168 178 169 StartItemNode := XMLDocument1.DocumentElement.ChildNodes['players'].ChildNodes.FindNode('player'); … … 192 183 SubItems.Add(GetNameMap(sMap)); 193 184 SubItems.Add(GetNameZone(sZone)); 194 ImageIndex := StrToInt(sClass) -1;195 StateIndex := StrToInt(sRace) -1;185 ImageIndex := StrToInt(sClass) - 1; 186 StateIndex := StrToInt(sRace) - 1; 196 187 end; 197 188 //zjišťování přátel a zobrazení 198 for i:=0 to length(Friends) -1 do begin189 for i:=0 to length(Friends) - 1 do begin 199 190 if GetLowerString(sName) = GetLowerString(Friends[i]) then begin 200 191 with ListView2.Items.Add do begin … … 203 194 SubItems.Add(GetNameMap(sMap)); 204 195 SubItems.Add(GetNameZone(sZone)); 205 ImageIndex := StrToInt(sClass) -1;206 StateIndex := StrToInt(sRace) -1;196 ImageIndex := StrToInt(sClass) - 1; 197 StateIndex := StrToInt(sRace) - 1; 207 198 end; 208 199 end; … … 214 205 Label1.Caption := IntToStr(ListView1.Items.Count+1); 215 206 if LockOnlineAddres then begin 216 Form1.CoolTrayIcon1.Hint := IntToStr(ListView1.Items.Count +1)+' hráčů';207 Form1.CoolTrayIcon1.Hint := IntToStr(ListView1.Items.Count + 1)+' hráčů'; 217 208 // Form1.StatusBar1.SimpleText := 'Online hráči aktualizováni'; 218 209 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áčů'; 220 211 // Form1.StatusBar1.SimpleText := 'O.H. aktualizováni: '+Form1.Servers[OnlinePlayersIndex].Name; 221 212 end; … … 235 226 Caption := 'Online Hráči' 236 227 else 237 Caption := 'OnlineHráči-' +Form1.Servers[OnlinePlayersIndex].Name;228 Caption := 'OnlineHráči-' + Form1.Servers[OnlinePlayersIndex].Name; 238 229 239 230 … … 245 236 if FriendPlaySound then 246 237 Form1.MediaPlay(FriendSoundFile); 247 for i :=0 to ListView2.Items.Count-1 do begin238 for i := 0 to ListView2.Items.Count - 1 do begin 248 239 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); 250 241 end; 251 242 end; … … 867 858 end; 868 859 860 procedure TForm5.FormShow(Sender: TObject); 861 begin 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; 872 end; 873 869 874 function TForm5.GetLowerString(Text: string): string; 870 875 begin -
trunk/Options.dfm
r6 r7 25 25 Height = 25 26 26 Hint = 'Ulo'#382'it v'#353'echny zm'#283'ny v nastaven'#237 27 Anchors = [ak Left, akBottom]27 Anchors = [akRight, akBottom] 28 28 Caption = 'Ulo'#382'it' 29 29 ParentShowHint = False … … 38 38 Height = 25 39 39 Hint = 'Proveden'#233' zm'#283'ny se neprojev'#237 40 Anchors = [ak Left, akBottom]40 Anchors = [akRight, akBottom] 41 41 Caption = 'Storno' 42 42 ParentShowHint = False … … 63 63 Width = 393 64 64 Height = 305 65 ActivePage = TabSheet 166 Anchors = [akLeft, akTop, ak Bottom]65 ActivePage = TabSheet2 66 Anchors = [akLeft, akTop, akRight, akBottom] 67 67 TabOrder = 3 68 68 object TabSheet1: TTabSheet 69 69 Caption = 'Nastaven'#237' programu' 70 ExplicitLeft = 071 ExplicitTop = 072 ExplicitWidth = 073 ExplicitHeight = 074 70 object CheckBox1: TCheckBox 75 71 Left = 16 … … 141 137 Caption = 'Online hr'#225#269'i' 142 138 ImageIndex = 1 143 ExplicitLeft = 0144 ExplicitTop = 0145 ExplicitWidth = 0146 ExplicitHeight = 0147 139 object Label3: TLabel 148 140 Left = 240 … … 398 390 Caption = 'Aktuality' 399 391 ImageIndex = 2 400 ExplicitLeft = 0401 ExplicitTop = 0402 ExplicitWidth = 0403 ExplicitHeight = 0404 392 object Label1: TLabel 405 393 Left = 16 … … 565 553 Caption = 'Skiny' 566 554 ImageIndex = 3 567 ExplicitLeft = 0568 ExplicitTop = 0569 ExplicitWidth = 0570 ExplicitHeight = 0571 555 object Button3: TButton 572 556 Left = 294 … … 608 592 Caption = 'Servery' 609 593 ImageIndex = 4 610 ExplicitLeft = 0611 ExplicitTop = 0612 ExplicitWidth = 0613 ExplicitHeight = 0614 594 object CheckBox10: TCheckBox 615 595 Left = 16 … … 698 678 Height = 25 699 679 Hint = 'Obnovit v'#253'choz'#237' nastaven'#237' programu' 680 Anchors = [akLeft, akBottom] 700 681 Caption = 'Obnovit v'#253'choz'#237 701 682 TabOrder = 4
Note:
See TracChangeset
for help on using the changeset viewer.