Changeset 4 for News.pas

Timestamp:

May 15, 2009, 9:08:00 AM (16 years ago)

Author:

george

Message:

• Upraveno: Nyní určeno pro novější verzi Delphi zdarma Turbo Delphi.
• Opraveno: Odkaz na RSS kanál aktualit webu.
• Opraveno: Odkaz na web projektu.
• Opraveno: Chyby uvolňování paměti při práci s bitmapami. Použití Assign namísto := a následně Free.
• Upraveno: Zakomentovány odkazy na uzavřenou komponentu WinSkin. Nejsou dostupné zdrojové kódy, nelze doinstalovat správně do Turbo Delphi.

File:

• News.pas (modified) (4 diffs)

News.pas

@@ -178 +178 @@
   XMLDocument1.Active:=True;
 
-  ANode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item') ;
-
+  ANode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
   repeat
     STitle := ANode.ChildNodes['title'].Text;
@@ -195 +194 @@
   until ANode = nil;
 
+  HaveNewNews := False;
   if Length(News) = 0 then begin
     SetLength(News,length(NewNews));
@@ -204 +204 @@
     end;
   end else begin
-    for i:=0 to length(NewNews)-1 do begin
+    for i := 0 to length(NewNews) - 1 do begin
       if News[i].pubDate = NewNews[i].pubDate then begin
 
@@ -347 +347 @@
 
     //ukládání velikosti panelů a zobrazení
+    i := 0;
     if Reg.OpenKey(R+'Newsdisplay', True) then begin
       if ListView1.ViewStyle = vsIcon then