tvplanit: Increment package version number to 1.05. Check commandline of mormot full demo for option -noserver to run the demo without the RESTserver.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5124 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/examples/fulldemo/demomain.pas

@@ -450,6 +450,8 @@ begin
     if Resources.Count > 0 then
       Resource := Resources.Items[Resources.Count-1];
   end;
+
+  Caption := Application.Title;
 end;
 
 procedure TMainForm.MnuAboutClick(Sender: TObject);

components/tvplanit/examples/fulldemo/mormotdatamodule.pas

@@ -15,6 +15,8 @@ type
     Timer1: TTimer;
     procedure Timer1Timer(Sender: TObject);
   private
+    FNoServer: Boolean;
+    procedure ReadCmdLine;
   public
     Datastore: TVpmORMotDatastore;
     constructor Create(AOwner: TComponent); override;
@@ -31,6 +33,8 @@ constructor TDemoDM.Create(AOwner: TComponent);
 begin
   inherited;
 
+  ReadCmdLine;
+
   Datastore := TVpmORMotDatastore.Create(self);
 
   with Datastore do
@@ -38,11 +42,13 @@ begin
     // if the HostIP is set, it will look for a running server on this IP address when connecting.
     // leave blank (comment out) for a local (and private) database
 
-    HostIP := 'localhost';
+    if FNoServer then
+      HostIP := '' else
+      HostIP := 'localhost';
     Directory := 'data';
     Connected := true;
 
-    if (Length(HostIP)>0) and (not Connected) then
+    if (Length(HostIP) > 0) and (not Connected) then
     begin
       MessageDlg('Cannot connect with server', mtError, [mbOk], 0);
       Application.Terminate;
@@ -52,6 +58,21 @@ begin
   Timer1.Enabled := true;
 end;
 
+procedure TDemoDM.ReadCmdLine;
+var
+  s: String;
+  i: Integer;
+begin
+  for i:=1 to ParamCount do begin
+    s := lowercase(ParamStr(i));
+    if (s[1] = '-') or (s[1] = '/') then begin
+      Delete(s, 1, 1);
+      if s = 'noserver' then
+        FNoServer := true;
+    end;
+  end;
+end;
+
 procedure TDemoDM.Timer1Timer(Sender: TObject);
 begin
   Timer1.Enabled := False;

components/tvplanit/examples/fulldemo/mormotdemo.lpi

@@ -6,7 +6,7 @@
     <General>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <Title Value="mORMot Demo"/>
+      <Title Value="TurboPower VisualPlanIt &amp; mORMot Demo"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
     </General>
@@ -26,6 +26,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
+        <CommandLineParams Value="-noserver"/>
       </local>
     </RunParams>
     <RequiredPackages Count="3">

components/tvplanit/examples/fulldemo/mormotdemo.lpr

@@ -1,5 +1,8 @@
 program mormotdemo;
 
+{ commandline parameters:
+  -noserver ---> run without server, otherwise HostIP is localhost }
+
 {$mode objfpc}{$H+}
 
 uses
@@ -13,7 +16,7 @@ uses
 {$R *.res}
 
 begin
-  Application.Title := 'mORMot Demo';
+  Application.Title := 'TurboPower VisualPlanIt & mORMot Demo';
   RequireDerivedFormResource := True;
   Application.Initialize;
   Application.CreateForm(TDemoDM, DemoDM);

components/tvplanit/source/addons/zeos/laz_visualplanit_zeos.lpk

@@ -15,7 +15,7 @@
       </SearchPaths>
     </CompilerOptions>
     <Description Value="Visual PlanIt datastore for ZEOS database components"/>
-    <Version Major="1" Release="4"/>
+    <Version Major="1" Release="5"/>
     <Files Count="2">
       <Item1>
         <Filename Value="vpregzeos.pas"/>

components/tvplanit/source/laz_visualplanit.lpk

@@ -35,7 +35,7 @@ The Initial Developer of the Original Code is TurboPower Software.
 Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved. 
 
 Contributor(s): "/>
-    <Version Major="1" Release="4"/>
+    <Version Major="1" Release="5"/>
     <Files Count="78">
       <Item1>
         <Filename Value="vpalarmdlg.lfm"/>