Author: remi
Date: 2009-07-30 19:33:16 +0200 (Thu, 30 Jul 2009)
New Revision: 5246
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/Unit2.dfm
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
Log:
* Updated progress bar step progression
* Updated slash screen show command
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 17:19:11 UTC (rev 5245)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
2009-07-30 17:33:16 UTC (rev 5246)
@@ -222,6 +222,12 @@
procedure TForm1.DelegateInitTimer(Sender: TObject);
begin
DelegateInit.Enabled := false;
+
+ //Show Splash screen
+ Form2.PmGauge1.Progress := 0;
+ Form2.Timer1.Enabled := true;
+ Form2.Visible := true;
+
//Setting app icon.
AppIcon := TIcon.Create;
ImageList1.GetIcon(1, AppIcon);
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 17:19:11 UTC (rev 5245)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm
2009-07-30 17:33:16 UTC (rev 5246)
@@ -3551,7 +3551,8 @@
Progress = 0
end
object Timer1: TTimer
- Interval = 120
+ Enabled = False
+ Interval = 500
OnTimer = Timer1Timer
Left = 120
Top = 32
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 17:19:11 UTC (rev 5245)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
2009-07-30 17:33:16 UTC (rev 5246)
@@ -28,7 +28,7 @@
procedure TForm2.Timer1Timer(Sender: TObject);
begin
if PmGauge1.Progress < 100 then
- PmGauge1.Progress := PmGauge1.Progress + 1;
+ PmGauge1.Progress := PmGauge1.Progress + 3;
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
