Author: jerome
Date: 2009-09-11 14:59:36 +0200 (Fri, 11 Sep 2009)
New Revision: 5360
Modified:
software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.dfm
software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas
Log:
* Updated project to allow Second installer to keep priority on 'run'.
Modified:
software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.dfm
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.dfm
2009-09-11 12:58:43 UTC (rev 5359)
+++
software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.dfm
2009-09-11 12:59:36 UTC (rev 5360)
@@ -104,8 +104,14 @@
DisableCtrlShortcuts = 'N'
UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
About = ' EmbeddedWB http://bsalsa.com/'
+ PrintOptions.Margins.Left = 19.05
+ PrintOptions.Margins.Right = 19.05
+ PrintOptions.Margins.Top = 19.05
+ PrintOptions.Margins.Bottom = 19.05
+ PrintOptions.Header = '&w&bPage &p of &P'
PrintOptions.HTMLHeader.Strings = (
'<HTML></HTML>')
+ PrintOptions.Footer = '&u&b&d'
PrintOptions.Orientation = poPortrait
ControlData = {
4C000000E20E00007A0800000000000000000000000000000000000000000000
Modified:
software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas
2009-09-11 12:58:43 UTC (rev 5359)
+++
software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher/start.pas
2009-09-11 12:59:36 UTC (rev 5360)
@@ -151,7 +151,8 @@
ShellExecute(HWND(nil), 'open', PChar(APPLICATION), PChar(action), nil,
SW_HIDE);
end;
-
+var
+ timeout : Integer;
{#### Main entry point ####}
begin
if not isSmartServerRunning then
@@ -183,6 +184,27 @@
if ParamStr(1) = 'minimize' then
begin
startAll('hide');
+ end
+ else if ParamStr(1) = 'keep' then
+ begin
+ timeout := 120; //seconds.
+ while not isTuxBoxRunning() do
+ begin
+ if timeout <> 0 then
+ begin
+ //sleeping until the other instance is running.
+ sleep(1000);
+ Application.ProcessMessages();
+ Dec(timeout, 1);
+ end
+ else
+ begin
+ exit;
+ end;
+ end;
+ KillTask('TuxBox.exe');
+ sleep(2000);
+ startAll('show');
end;
end
else
------------------------------------------------------------------------------
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
