Changeset 4
- Timestamp:
- May 15, 2009, 9:08:00 AM (16 years ago)
- Files:
-
- 1 added
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
/
-
Property svn:ignore
set to
*.dcu
HoFclient.dsk
HoFclient.exe
*.~dsk
-
Property svn:ignore
set to
-
HoFclient.dpr
r2 r4 17 17 18 18 begin 19 {$WARN SYMBOL_PLATFORM OFF} 20 ReportMemoryLeaksOnShutdown := DebugHook <> 0; 21 {$WARN SYMBOL_PLATFORM ON} 19 22 Application.Initialize; 20 23 Application.CreateForm(TForm1, Form1); -
ImportZWebu.dfm
r1 r4 58 58 end 59 59 object IdHTTP1: TIdHTTP 60 MaxLineAction = maException61 ReadTimeout = 062 60 AllowCookies = True 63 61 ProxyParams.BasicAuthentication = False -
Main.dfm
r1 r4 2 2 Left = 334 3 3 Top = 74 4 Width = 3565 Height = 2316 4 Caption = 'Heroes of Fantasy - Client' 5 ClientHeight = 254 6 ClientWidth = 389 7 7 Color = clBtnFace 8 8 Font.Charset = DEFAULT_CHARSET … … 15 15 OnCloseQuery = FormCloseQuery 16 16 OnCreate = FormCreate 17 OnDestroy = FormDestroy 17 18 OnResize = FormResize 18 19 DesignSize = ( 19 3 4820 177)20 389 21 254) 21 22 PixelsPerInch = 96 22 23 TextHeight = 13 23 24 object Label1: TLabel 24 Left = 2 4125 Left = 282 25 26 Top = 4 26 27 Width = 5 … … 33 34 Font.Style = [fsBold] 34 35 ParentFont = False 36 ExplicitLeft = 241 35 37 end 36 38 object Label2: TLabel 37 Left = 2 4139 Left = 282 38 40 Top = 20 39 41 Width = 3 40 42 Height = 13 41 43 Anchors = [akTop, akRight] 44 ExplicitLeft = 241 42 45 end 43 46 object StatusBar1: TStatusBar 44 47 Left = 162 45 Top = 15846 Width = 18648 Top = 215 49 Width = 227 47 50 Height = 19 48 51 Align = alNone … … 53 56 object Panel1: TPanel 54 57 Left = 0 55 Top = 15858 Top = 215 56 59 Width = 161 57 60 Height = 19 … … 394 397 end 395 398 object RichEdit1: TRichEdit 396 Left = 2 41399 Left = 282 397 400 Top = 36 398 401 Width = 105 399 Height = 1 01402 Height = 158 400 403 Anchors = [akTop, akRight, akBottom] 401 404 BorderStyle = bsNone … … 415 418 end 416 419 object Button1: TButton 417 Left = 299418 Top = 1 40420 Left = 340 421 Top = 197 419 422 Width = 46 420 423 Height = 17 … … 428 431 Left = 0 429 432 Top = 0 430 Width = 2 28431 Height = 158433 Width = 269 434 Height = 215 432 435 Hint = 433 436 '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' + … … 447 450 Width = 120 448 451 end> 449 Items.Data = {450 6B0000000100000001000000FFFFFFFFFFFFFFFF020000000000000011486572451 6F6573206F662046616E746173790F776F772E7A646563686F762E6E65742863452 3A5C50726F6772616D2046696C65735C576F726C644F6657617263726166745C453 776F772E657865FFFFFFFF}454 452 LargeImages = ImageList32 455 453 ReadOnly = True … … 465 463 end 466 464 object Panel2: TPanel 467 Left = 2 27465 Left = 268 468 466 Top = 0 469 467 Width = 9 470 Height = 158468 Height = 215 471 469 Cursor = crHSplit 472 470 Hint = 'K schov'#225'n'#237' detajl'#367' p'#345'et'#225'hn'#283'te k prav'#233'mu okraji' … … 817 815 end 818 816 end 819 object SkinData1: TSkinData820 Active = False821 DisableTag = 99822 SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcSpin, xcPanel, xcGroupBox, xcStatusBar, xcTab, xcTrackBar, xcSystemMenu]823 Options = [xoPreview, xoToolbarBK]824 Skin3rd.Strings = (825 'TCategoryButtons=scrollbar'826 'TPngBitBtn=pngbitbtn'827 'TVirtualStringTree=scrollbar'828 'TVirtualDrawTree=scrollbar'829 'TTBXDockablePanel=Panel'830 'TAdvPanelGroup=scrollbar'831 'TComboboxex=combobox'832 'TRxSpeedButton=speedbutton'833 'THTMLViewer=scrollbar'834 'TDBCtrlGrid=scrollbar'835 'TfrSpeedButton=speedbutton'836 'TfrTBButton=speedbutton'837 'TControlBar=Panel'838 'TTBDock=Panel'839 'TTBToolbar=Panel'840 'TImageEnMView=scrollbar'841 'TImageEnView=scrollbar'842 'TAdvMemo=scrollbar'843 'TDBAdvMemo=scrollbar'844 'TcxDBLookupComboBox=combobox'845 'TcxDBComboBox=combobox'846 'TcxDBDateEdit=combobox'847 'TcxDBImageComboBox=combobox'848 'TcxDBCalcEdit=combobox'849 'TcxDBBlobEdit=combobox'850 'TcxDBPopupEdit=combobox'851 'TcxDBFontNameComboBox=combobox'852 'TcxDBShellComboBox=combobox'853 'TRxLookupEdit=combobox'854 'TRxDBLookupCombo=combobox'855 'TRzGroup=panel'856 'TRzButton=button'857 'TRzBitbtn=bitbtn'858 'TRzMenuButton=menubtn'859 'TRzCheckGroup=CheckGroup'860 'TRzRadioGroup=Radiogroup'861 'TRzButtonEdit=Edit'862 'TRzDBRadioGroup=Radiogroup'863 'TRzDBRadioButton=Radiobutton'864 'TRzDateTimeEdit=combobox'865 'TRzColorEdit=combobox'866 'TRzDateTimePicker=combobox'867 'TRzDBDateTimeEdit=combobox'868 'TRzDbColorEdit=combobox'869 'TRzDBDateTimePicker=combobox'870 'TLMDButton=bitbtn'871 'TLMDGroupBox=Groupbox'872 'TDBCheckboxEh=Checkbox'873 'TDBCheckboxEh=Checkbox'874 'TLMDCHECKBOX=Checkbox'875 'TLMDDBCHECKBOX=Checkbox'876 'TLMDRadiobutton=Radiobutton'877 'TLMDCalculator=panel'878 'TLMDGROUPBOX=Panel'879 'TLMDSIMPLEPANEL=Panel'880 'TLMDDBCalendar=Panel'881 'TLMDButtonPanel=Panel'882 'TLMDLMDCalculator=Panel'883 'TLMDHeaderPanel=Panel'884 'TLMDTechnicalLine=Panel'885 'TLMDLMDClock=Panel'886 'TLMDTrackbar=panel'887 'TLMDListCombobox=combobox'888 'TLMDCheckListCombobox=combobox'889 'TLMDHeaderListCombobox=combobox'890 'TLMDImageCombobox=combobox'891 'TLMDColorCombobox=combobox'892 'TLMDFontCombobox=combobox'893 'TLMDFontSizeCombobox=combobox'894 'TLMDFontSizeCombobox=combobox'895 'TLMDPrinterCombobox=combobox'896 'TLMDDriveCombobox=combobox'897 'TLMDCalculatorComboBox=combobox'898 'TLMDTrackBarComboBox=combobox'899 'TLMDCalendarComboBox=combobox'900 'TLMDTreeComboBox=combobox'901 'TLMDRADIOGROUP=radiogroup'902 'TLMDCheckGroup=CheckGroup'903 'TLMDDBRADIOGROUP=radiogroup'904 'TLMDDBCheckGroup=CheckGroup'905 'TLMDCalculatorEdit=edit'906 'TLMDEDIT=Edit'907 'TLMDMASKEDIT=Edit'908 'TLMDBROWSEEDIT=Edit'909 'TLMDEXTSPINEDIT=Edit'910 'TLMDCALENDAREDIT=Edit'911 'TLMDFILEOPENEDIT=Edit'912 'TLMDFILESAVEEDIT=Edit'913 'TLMDCOLOREDIT=Edit'914 'TLMDDBEDIT=Edit'915 'TLMDDBMASKEDIT=Edit'916 'TLMDDBEXTSPINEDIT=Edit'917 'TLMDDBSPINEDIT=Edit'918 'TLMDDBEDITDBLookup=Edit'919 'TLMDEDITDBLookup=Edit'920 'TDBLookupCombobox=Combobox'921 'TWWDBCombobox=Combobox'922 'TWWDBLookupCombo=Combobox'923 'TWWDBCombobox=Combobox'924 'TWWKeyCombo=Combobox'925 'TWWTempKeyCombo=combobox'926 'TWWDBDateTimePicker=Combobox'927 'TWWRADIOGROUP=radiogroup'928 'TWWDBEDIT=Edit'929 'TcxButton=bitbtn'930 'TcxDBRadioGroup=radiogroup'931 'TcxRadioGroup=radiogroup'932 'TcxGroupbox=groupbox'933 'TOVCPICTUREFIELD=Edit'934 'TOVCDBPICTUREFIELD=Edit'935 'TOVCSLIDEREDIT=Edit'936 'TOVCDBSLIDEREDIT=Edit'937 'TOVCSIMPLEFIELD=Edit'938 'TOVCDBSIMPLEFIELD=Edit'939 'TO32DBFLEXEDIT=Edit'940 'TOVCNUMERICFIELD=Edit'941 'TOVCDBNUMERICFIELD=Edit')942 SkinStore = '(none)'943 SkinFormtype = sfMainform944 Version = '4.04.04.11'945 MenuUpdate = True946 MenuMerge = False947 Left = 10948 Top = 10949 SkinStream = {00000000}950 end951 817 object ImageList16default: TImageList 952 818 Left = 40 953 819 Top = 72 954 820 Bitmap = { 955 494C010102000 400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600821 494C010102000300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 956 822 0000000000003600000028000000400000001000000001002000000000000010 957 823 00000000000000000000000000000000000000000000F2F2F200E9E7E400DFDB … … 1098 964 Top = 72 1099 965 Bitmap = { 1100 494C010102000 400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600966 494C010102000300040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 1101 967 0000000000003600000028000000800000002000000001002000000000000040 1102 968 0000000000000000000000000000000000000000000000000000F2F2F200F1F1 … … 1653 1519 end 1654 1520 object IdHTTP1: TIdHTTP 1655 MaxLineAction = maException1656 ReadTimeout = 01657 1521 AllowCookies = True 1658 1522 ProxyParams.BasicAuthentication = False 1659 1523 ProxyParams.ProxyPort = 0 1660 1524 Request.ContentLength = -1 1661 Request.ContentRangeEnd = 01662 Request.ContentRangeStart = 01663 1525 Request.ContentType = 'text/html' 1664 1526 Request.Accept = 'text/html, */*' … … 1684 1546 object IdIcmpClient1: TIdIcmpClient 1685 1547 ReceiveTimeout = 3000 1548 Protocol = 1 1549 ProtocolIPv6 = 58 1550 IPVersion = Id_IPv4 1551 PacketSize = 1024 1686 1552 OnReply = IdIcmpClient1Reply 1687 1553 Left = 48 -
Main.pas
r2 r4 6 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 7 Dialogs, StdCtrls, Menus, ImgList, ComCtrls, XPMan, CoolTrayIcon, Registry, ShellApi, 8 WinSkinData, ExtCtrls, xmldom, XMLIntf, msxmldom, XMLDoc, 8 //WinSkinData, 9 ExtCtrls, xmldom, XMLIntf, msxmldom, XMLDoc, 9 10 IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, RichEdit, 10 11 IdRawBase, IdRawClient, IdIcmpClient, MPlayer; 12 13 const 14 ApplicationVersion = '3.3'; 15 ApplicationRevision = 5; 16 R = '\Software\maronsoft\Heroes of Fantasy client pack\'; 17 UpdateInfoFile = 'http://wow.zdechov.net/client/aktualizace.txt'; 18 DefaultRSSChannel = 'http://wow.zdechov.net/rss.php?category=articles'; 19 OldRSSChannel = 'http://wow.zdechov.net/rss.php'; 11 20 12 21 type … … 23 32 protected 24 33 procedure Execute; override; 25 end; 26 27 type 34 procedure Update; 35 end; 36 37 TServer = record 38 Name: string; 39 Address: string; 40 ExeFile: string; 41 Image: string; 42 Description: string; 43 OnlinePlayersAddress: string; 44 end; 45 28 46 TForm1 = class(TForm) 29 47 MainMenu1: TMainMenu; … … 56 74 Editovatoznaen2: TMenuItem; 57 75 Smazat1: TMenuItem; 58 SkinData1: TSkinData;59 76 ImageList16default: TImageList; 60 77 ImageList32default: TImageList; … … 165 182 procedure Importzwowstatusnet2Click(Sender: TObject); 166 183 procedure Zkoprovatfonty1Click(Sender: TObject); 184 procedure FormDestroy(Sender: TObject); 167 185 private 168 186 { Private declarations } … … 177 195 178 196 // veřejné proměné 179 Servers: array of record 180 Name: string; 181 Address: string; 182 ExeFile: string; 183 Image: string; 184 Description: string; 185 OnlinePlayersAddress: string; 186 end; 197 Servers: array of TServer; 187 198 188 199 //obecné procedury … … 217 228 end; 218 229 219 const220 ApplicationVersion = '3.2';221 ApplicationRevision = 5;222 R = '\Software\maronsoft\Heroes of Fantasy client pack\';223 UpdateInfoFile = 'http://wow.zdechov.net/client/aktualizace.txt';224 225 230 var 226 231 Form1: TForm1; … … 235 240 ShowDetails: Boolean = False; 236 241 // MakePing: boolean = True; 237 RSSAddress: string = 'http://wow.zdechov.net/rss.php';242 RSSAddress: string; 238 243 CopyFonts: Boolean = True; 239 244 … … 247 252 Desktop: TRect; 248 253 249 // veřejné přoměné 250 vlakno: TVlakno; 254 Vlakno: TVlakno; 251 255 252 256 implementation … … 361 365 procedure TForm1.FormCreate(Sender: TObject); 362 366 begin 363 //Načítání nastavení a vypsání 367 Vlakno := TVlakno.Create(True); 368 369 // Načítání nastavení a vypsání 364 370 LoadRegOptions; 365 371 LoadRegServers; … … 367 373 WriteServers; 368 374 369 // Akce na záhladě nastavení375 // Akce na záhladě nastavení 370 376 if StartMinimalize then 371 377 Application.ShowMainForm := False; 372 378 373 // ostatní379 // ostatní 374 380 Form1.Caption := Form1.Caption+' '+ApplicationVersion; 375 381 SystemParametersInfo(SPI_GETWORKAREA, 0, @Desktop, 0); 376 382 InitRichEditURLDetection(RichEdit1); 377 383 378 // zjištění aktualizace384 // zjištění aktualizace 379 385 if UpdateApplication then 380 386 if NeedUpdate then 381 387 ProcedureUpdateApplication; 388 end; 389 390 procedure TForm1.FormDestroy(Sender: TObject); 391 begin 392 Vlakno.WaitFor; 393 Vlakno.Free; 382 394 end; 383 395 … … 450 462 MyTextFile: TextFile; 451 463 begin 464 try 452 465 AssignFile(MyTextFile, ExtractFileDir(Servers[SeverIndex].ExeFile)+'\realmlist.wtf'); 453 466 Rewrite(MyTextFile); … … 466 479 if AfterWoWStartMinimalize then 467 480 Application.Minimize; 481 except 482 raise Exception.Create('Nepodařilo se spustit hru pro připojení k serveru ' + Servers[SeverIndex].Name + '.'); 483 end; 468 484 end; 469 485 … … 485 501 Form4.Edit3.Text := GetWoWExeFile; 486 502 BitMap := TBitmap.Create; 487 ImageList32default.GetBitmap(0,BitMap); 488 Form4.Image1.Picture.Graphic := BitMap; 503 ImageList32default.GetBitmap(0, BitMap); 504 Form4.Image1.Picture.Graphic.Assign(BitMap); 505 BitMap.Free; 489 506 end; 490 507 … … 530 547 if FileExists(Servers[i].Image) then begin 531 548 BitMap.LoadFromFile(Servers[i].Image); 532 ResizeBitmap(BitMap, BitMap2,32,32);533 ImageList32.Add(BitMap2, nil);534 ResizeBitmap(BitMap2,BitMap, 16,16);535 ImageList16.Add(BitMap, nil);549 ResizeBitmap(BitMap, BitMap2, 32, 32); 550 ImageList32.Add(BitMap2, nil); 551 ResizeBitmap(BitMap2,BitMap, 16, 16); 552 ImageList16.Add(BitMap, nil); 536 553 end; 537 554 end else begin //todo dodělat pro ikony 538 555 end; 539 556 end; 557 Bitmap.Free; 558 Bitmap2.Free; 540 559 end; 541 560 end; … … 558 577 if ImageFile = '1' then begin 559 578 BitMap := TBitmap.Create; 560 ImageList32default.GetBitmap(1,BitMap); 561 Form4.Image1.Picture.Graphic := BitMap; 579 ImageList32default.GetBitmap(1, BitMap); 580 Form4.Image1.Picture.Graphic.Assign(BitMap); 581 BitMap.Free; 562 582 end else begin 563 583 if FileExists(ImageFile) then begin … … 568 588 BitMap := TBitmap.Create; 569 589 Form1.ImageList32default.GetBitmap(0,BitMap); 570 Form4.Image1.Picture.Graphic := BitMap; 590 Form4.Image1.Picture.Graphic.Assign(Bitmap); 591 BitMap.Free; 571 592 end; 572 593 end; … … 654 675 ShowDetails := Reg.ReadBool('ShowDetails'); 655 676 if reg.ValueExists('RSSAddress') then RSSAddress := Reg.ReadString('RSSAddress'); 677 if RSSAddress = OldRSSChannel then RSSAddress := DefaultRSSChannel; // Přesměrování na novou adresu RSS 678 656 679 if reg.ValueExists('Ping') then Timer4.Enabled := Reg.ReadBool('Ping'); 657 680 end; … … 665 688 //skiny 666 689 if Reg.OpenKey(R+'CheckBox3', False) then begin 667 SkinData1.Active := Reg.ReadBool('Boolean');690 //SkinData1.Active := Reg.ReadBool('Boolean'); 668 691 end; 669 692 if Reg.OpenKey(R+'skiny', False) then begin 670 693 if reg.ValueExists('skiny') then begin 671 SkinData1.SkinFile := Reg.ReadString('Skiny');694 //SkinData1.SkinFile := Reg.ReadString('Skiny'); 672 695 end else 673 SkinData1.Active := False;696 //SkinData1.Active := False; 674 697 end; 675 698 … … 807 830 //skiny 808 831 if Reg.OpenKey(R+'CheckBox3', True) then begin 809 Reg.WriteBool('Boolean',SkinData1.Active);832 //Reg.WriteBool('Boolean',SkinData1.Active); 810 833 end; 811 834 if Reg.OpenKey(R+'skiny', True) then begin 812 Reg.WriteString('Skiny',SkinData1.SkinFile);835 //Reg.WriteString('Skiny',SkinData1.SkinFile); 813 836 end; 814 837 … … 1007 1030 begin 1008 1031 SetLength(Servers,length(Servers)+1); 1009 1010 Servers[length(Servers)-1].Name := 'Heroes of Fantasy'; 1011 Servers[length(Servers)-1].Address := 'wow.zdechov.net'; 1012 Servers[length(Servers)-1].OnlinePlayersAddress := 'http://wow.zdechov.net/stat/stat.xml'; 1013 Servers[length(Servers)-1].ExeFile := GetWoWExeFile; 1014 Servers[length(Servers)-1].Image := '1'; 1015 Servers[length(Servers)-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)+'reamlist: wow.zdechov.net'; 1032 with Servers[length(Servers) - 1] do begin 1033 Name := 'Heroes of Fantasy'; 1034 Address := 'wow.zdechov.net'; 1035 OnlinePlayersAddress := 'http://wow.zdechov.net/stat/stat.xml'; 1036 ExeFile := GetWoWExeFile; 1037 Image := '1'; 1038 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'; 1039 end; 1016 1040 WriteImages; 1017 1041 WriteServers; … … 1099 1123 procedure TForm1.ShowWeb; 1100 1124 begin 1101 ShellExecute(Handle, 'open', PChar('http://wow.zdechov.net/ client/'), nil, nil, SW_SHOWNORMAL);1125 ShellExecute(Handle, 'open', PChar('http://wow.zdechov.net/?page=client/'), nil, nil, SW_SHOWNORMAL); 1102 1126 end; 1103 1127 … … 1496 1520 const AReplyStatus: TReplyStatus); 1497 1521 begin 1498 if AReplyStatus.MsRoundTripTime > IdIcmpClient1.ReceiveTimeoutthen begin1499 Label2.Caption := 'Of line';1522 if AReplyStatus.MsRoundTripTime > Cardinal(IdIcmpClient1.ReceiveTimeout) then begin 1523 Label2.Caption := 'Offline'; 1500 1524 Label2.Font.Color := clRed; 1501 1525 end else begin … … 1504 1528 Label2.Caption := 'Odezva: <1 ms' 1505 1529 else 1506 Label2.Caption := 'Odezva: '+IntToStr(AReplyStatus.MsRoundTripTime)+' ms'; 1507 end; 1508 end; 1509 1510 { TVlakno } 1511 1512 procedure TVlakno.Execute; 1513 begin 1514 if Form1.IdIcmpClient1.Host <> '' then begin 1515 try 1516 Form1.IdIcmpClient1.Ping; 1517 except 1518 Form1.Label2.Caption := 'Ofline'; 1519 Form1.Label2.Font.Color := clRed; 1520 end; 1521 end; 1530 Label2.Caption := 'Odezva: ' + IntToStr(AReplyStatus.MsRoundTripTime) + ' ms'; 1531 end; 1522 1532 end; 1523 1533 1524 1534 procedure TForm1.Timer4Timer(Sender: TObject); 1525 1535 begin 1526 // vlakno.Terminate;1527 1536 Timer4.Interval := 4000; 1528 Vlakno := TVlakno.Create(true);1529 vlakno.Resume;1530 // vlakno.Execute;1531 1537 Vlakno.Free; 1538 Vlakno := TVlakno.Create(True); 1539 Vlakno.Resume; 1540 Vlakno.WaitFor; 1532 1541 end; 1533 1542 … … 1639 1648 end; 1640 1649 1650 { TVlakno } 1651 1652 procedure TVlakno.Execute; 1653 begin 1654 if Form1.IdIcmpClient1.Host <> '' then 1655 try 1656 Form1.IdIcmpClient1.Ping; 1657 except 1658 Synchronize(Update); 1659 end; 1660 end; 1661 1662 procedure TVlakno.Update; 1663 begin 1664 Form1.Label2.Caption := 'Offline'; 1665 Form1.Label2.Font.Color := clRed; 1666 end; 1667 1641 1668 end. -
News.dfm
r1 r4 2 2 Left = 334 3 3 Top = 304 4 Width = 3565 Height = 3736 4 BorderStyle = bsSizeToolWin 7 5 Caption = 'Aktuality - Heroes Of Fantasy' 6 ClientHeight = 347 7 ClientWidth = 348 8 8 Color = clBtnFace 9 9 Font.Charset = DEFAULT_CHARSET … … 18 18 DesignSize = ( 19 19 348 20 3 39)20 347) 21 21 PixelsPerInch = 96 22 22 TextHeight = 13 … … 82 82 Top = 48 83 83 Bitmap = { 84 494C010102000 400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D360084 494C010102000300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 85 85 0000000000003600000028000000400000001000000001002000000000000010 86 86 0000000000000000000000000000000000000000000000000000000000000000 -
News.pas
r1 r4 178 178 XMLDocument1.Active:=True; 179 179 180 ANode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item') ; 181 180 ANode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item'); 182 181 repeat 183 182 STitle := ANode.ChildNodes['title'].Text; … … 195 194 until ANode = nil; 196 195 196 HaveNewNews := False; 197 197 if Length(News) = 0 then begin 198 198 SetLength(News,length(NewNews)); … … 204 204 end; 205 205 end else begin 206 for i :=0 to length(NewNews)-1 do begin206 for i := 0 to length(NewNews) - 1 do begin 207 207 if News[i].pubDate = NewNews[i].pubDate then begin 208 208 … … 347 347 348 348 //ukládání velikosti panelů a zobrazení 349 i := 0; 349 350 if Reg.OpenKey(R+'Newsdisplay', True) then begin 350 351 if ListView1.ViewStyle = vsIcon then -
Options.dfm
r1 r4 2 2 Left = 396 3 3 Top = 139 4 Width = 4165 Height = 3856 4 Caption = 'Nastaveni' 5 ClientHeight = 351 6 ClientWidth = 408 7 7 Color = clBtnFace 8 8 Font.Charset = DEFAULT_CHARSET … … 68 68 object TabSheet1: TTabSheet 69 69 Caption = 'Nastaven'#237' programu' 70 ExplicitLeft = 0 71 ExplicitTop = 0 72 ExplicitWidth = 0 73 ExplicitHeight = 0 70 74 object CheckBox1: TCheckBox 71 75 Left = 16 … … 137 141 Caption = 'Online hr'#225#269'i' 138 142 ImageIndex = 1 143 ExplicitLeft = 0 144 ExplicitTop = 0 145 ExplicitWidth = 0 146 ExplicitHeight = 0 139 147 object Label3: TLabel 140 148 Left = 240 … … 390 398 Caption = 'Aktuality' 391 399 ImageIndex = 2 400 ExplicitLeft = 0 401 ExplicitTop = 0 402 ExplicitWidth = 0 403 ExplicitHeight = 0 392 404 object Label1: TLabel 393 405 Left = 16 … … 553 565 Caption = 'Skiny' 554 566 ImageIndex = 3 567 ExplicitLeft = 0 568 ExplicitTop = 0 569 ExplicitWidth = 0 570 ExplicitHeight = 0 555 571 object Button3: TButton 556 572 Left = 294 … … 592 608 Caption = 'Servery' 593 609 ImageIndex = 4 610 ExplicitLeft = 0 611 ExplicitTop = 0 612 ExplicitWidth = 0 613 ExplicitHeight = 0 594 614 object CheckBox10: TCheckBox 595 615 Left = 16 -
Options.pas
r1 r4 135 135 end; 136 136 CheckBox5.Checked := UpdateApplication; 137 CheckBox3.Checked := Form1.SkinData1.Active;138 Edit1.Text := Form1.SkinData1.SkinFile;137 //CheckBox3.Checked := Form1.SkinData1.Active; 138 //Edit1.Text := Form1.SkinData1.SkinFile; 139 139 CheckBox10.Checked := ShowDetails; 140 140 CheckBox4.Checked := Form1.Timer4.Enabled; … … 207 207 AfterWoWStartMinimalize := RadioButton1.Checked; 208 208 UpdateApplication := CheckBox5.Checked; 209 Form1.SkinData1.Active := CheckBox3.Checked;209 //Form1.SkinData1.Active := CheckBox3.Checked; 210 210 ShowDetails := CheckBox10.Checked; 211 211 Form1.Timer4.Enabled := CheckBox4.Checked; … … 266 266 Edit1.Enabled := False; 267 267 Button3.Enabled := False; 268 Form1.SkinData1.Active := False;268 //Form1.SkinData1.Active := False; 269 269 end else begin 270 270 Edit1.Enabled := True; 271 271 Button3.Enabled := True; 272 Form1.SkinData1.Active := True;272 //Form1.SkinData1.Active := True; 273 273 end; 274 274 end; … … 283 283 if OpenDialog1.Execute then begin 284 284 Edit1.Text:= OpenDialog1.FileName; 285 Form1.SkinData1.SkinFile := Edit1.Text;286 Form1.SkinData1.Active := False;287 Form1.SkinData1.Active := True;285 //Form1.SkinData1.SkinFile := Edit1.Text; 286 //Form1.SkinData1.Active := False; 287 //Form1.SkinData1.Active := True; 288 288 end; 289 289 end; … … 465 465 RSSAddress := 'http://wow.zdechov.net/rss.php'; 466 466 Form1.CoolTrayIcon1.MinimizeToTray := True; 467 Form1.SkinData1.Active := False;467 //Form1.SkinData1.Active := False; 468 468 Form1.Timer4.Enabled := True; 469 469
Note:
See TracChangeset
for help on using the changeset viewer.