Changeset 7 for trunk/News.pas

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:

• . (modified) (1 prop)
• News.pas (modified) (3 diffs)

trunk

@@ -2 +2 @@
 HoFclient.dsk
 HoFclient.~dsk
+*.dcu

@@ -2 +2 @@
 HoFclient.dsk
 HoFclient.~dsk
+*.dcu

trunk/News.pas

@@ -32 +32 @@
       const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
       Headers: OleVariant; var Cancel: WordBool);
+    procedure FormShow(Sender: TObject);
   private
     { Private declarations }
@@ -378 +379 @@
 begin
   LoadRegNewsOptions;
-  DrawForm;
-  LoadRegRSS;
-  if Form1.Timer1.Enabled then begin
-    DownloadRSS;            //todo: vyjímka při nepřipojeném netu
-    WriteNews;
-  end;
-  if Form1.Aktuality1.Checked and (StartMinimalize = false) then
-    Form6.Show;
 end;
 
@@ -442 +435 @@
 begin
   DrawForm;
+end;
+
+procedure TForm6.FormShow(Sender: TObject);
+begin
+  DrawForm;
+  LoadRegRSS;
+  if Form1.Timer1.Enabled then begin
+    DownloadRSS;            //todo: vyjímka při nepřipojeném netu
+    WriteNews;
+  end;
+  if Form1.Aktuality1.Checked and (StartMinimalize = false) then
+    Form6.Show;
 end;
 

@@ -2 +2 @@
 HoFclient.dsk
 HoFclient.~dsk
+*.dcu