Changeset 12 for trunk/UMainWindow.pas

Timestamp:

Feb 11, 2008, 11:37:07 AM (16 years ago)

Author:

george

Message:

Aktualizace: Vyměněna jednotka UWaitingDialog za novější UJobProgressView.
Opraveno: Chyba při vytváření souboru Error.txt.

Location:

trunk

Files:

• . (modified) (1 prop)
• UMainWindow.pas (modified) (4 diffs)

trunk

@@ -5 +5 @@
 *.~dsk
 Network.cfg
+Error.txt

@@ -5 +5 @@
 *.~dsk
 Network.cfg
+Error.txt

trunk/UMainWindow.pas

@@ -251 +251 @@
     { Private declarations }
   public
-    SunriseChatNetworkCore1: TSunriseChatNEtworkCore;
+    SunriseChatNetworkCore1: TSunriseChatNetworkCore;
     UserEventsImagesEnabled: Boolean;
     FirstStart: Boolean;
@@ -331 +331 @@
 
 uses UInfoWindow, UAboutWindow, UOptionsWindow, UNetworkTest, UNewRoom,
-  DateUtils, ULocalization, UWaitingDialog, MMSystem;
+  DateUtils, ULocalization, UJobProgressView, MMSystem;
 
 {$R *.dfm}
@@ -1406 +1406 @@
     if I<Length(AppUserEvents) then AppUserEventsOptions[I].SaveToRegistry;
     //AppUserEventsOptions[I].Free;
-    if Assigned(WaitingDialog) then WaitingDialog.Pozice := I/Max*100;
+    if Assigned(JobProgressView) then JobProgressView.Progress := I/Max;
   end;
   //SetLength(AppUserEventsOptions,0);
@@ -1487 +1487 @@
       LoadFromRegistry;
     end;
-    if Assigned(WaitingDialog) then WaitingDialog.Pozice := I/AppUserEventsCount*100;
+    if Assigned(JobProgressView) then JobProgressView.Progress := I / AppUserEventsCount;
   end;
 end;

@@ -5 +5 @@
 *.~dsk
 Network.cfg
+Error.txt