Author: remi
Date: 2009-07-30 10:46:50 +0200 (Thu, 30 Jul 2009)
New Revision: 5236
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
Log:
* Added a fake loading progression in the splash screen
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
2009-07-30 08:18:22 UTC (rev 5235)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
2009-07-30 08:46:50 UTC (rev 5236)
@@ -60,7 +60,6 @@
Width = 955
Height = 619
TabOrder = 0
- Silent = False
RegisterAsBrowser = True
RegisterAsDropTarget = False
OnDocumentComplete = EmbeddedWB1DocumentComplete
@@ -88,7 +87,7 @@
end
object StatusBar1: TStatusBar
Left = 0
- Top = 600
+ Top = 607
Width = 955
Height = 19
Panels = <>
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
2009-07-30 08:18:22 UTC (rev 5235)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
2009-07-30 08:46:50 UTC (rev 5236)
@@ -253,6 +253,9 @@
smartcoreReady := true;
//Hide Splash screen
+ Form2.Timer1.Enabled := false;
+ Form2.PmGauge1.Progress := 100;
+ Sleep(500);
Form2.Visible := false;
//Start the Connection checker
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm
2009-07-30 08:18:22 UTC (rev 5235)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm
2009-07-30 08:46:50 UTC (rev 5236)
@@ -3540,4 +3540,20 @@
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FF00}
end
+ object PmGauge1: TPmGauge
+ Left = 14
+ Top = 89
+ Width = 307
+ Height = 10
+ ShowText = False
+ ForeColor = 642810
+ BackColor = 3947580
+ Progress = 0
+ end
+ object Timer1: TTimer
+ Interval = 120
+ OnTimer = Timer1Timer
+ Left = 120
+ Top = 32
+ end
end
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
2009-07-30 08:18:22 UTC (rev 5235)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
2009-07-30 08:46:50 UTC (rev 5236)
@@ -4,11 +4,14 @@
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, ExtCtrls, StdCtrls;
+ Dialogs, ExtCtrls, StdCtrls, PmGauge;
type
TForm2 = class(TForm)
Image1: TImage;
+ PmGauge1: TPmGauge;
+ Timer1: TTimer;
+ procedure Timer1Timer(Sender: TObject);
private
{ D�clarations priv�es }
public
@@ -22,4 +25,10 @@
{$R *.dfm}
+procedure TForm2.Timer1Timer(Sender: TObject);
+begin
+ if PmGauge1.Progress < 100 then
+ PmGauge1.Progress := PmGauge1.Progress + 1;
+end;
+
end.
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
