[tuxdroid-svn] r5360 - software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_b
Status: Beta
Brought to you by:
ks156
Menu
▾
▴
[tuxdroid-svn] r5360 - software_suite_v3/software/tool/tux_droid_browser_launcher/trunk/tux_droid_browser_launcher
|
From: jerome <c2m...@c2...> - 2009-09-11 12:59:49
|
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
|
