243 var p: TPathType;

   243 var p: TPathType;

   244     s: shortstring;

   244     s: shortstring;

   245 begin

   245 begin

   246 {$IFDEF HWLIBRARY}

   246 {$IFDEF HWLIBRARY}

   247     initEverything();

   247     initEverything();

   249 

   248 

   250     cBits:= 32;

   249     cBits:= 32;

   251     cFullScreen:= false;

   250     cFullScreen:= false;

   252     cVSyncInUse:= true;

   251     cVSyncInUse:= true;

   253     cTimerInterval:= 8;

   252     cTimerInterval:= 8;

   415 begin

   414 begin

   416 {$IFDEF IPHONEOS}

   415 {$IFDEF IPHONEOS}

   417     initEverything();

   416     initEverything();

   418     WriteLnToConsole('Preview connecting on port ' + inttostr(port));

   417     WriteLnToConsole('Preview connecting on port ' + inttostr(port));

   419     ipcPort:= port;

   418     ipcPort:= port;

   420 {$ENDIF}

   421 {$ENDIF}

   421     InitIPC;

   422     InitIPC;

   422     IPCWaitPongEvent;

   423     IPCWaitPongEvent;

   423     TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);

   424     TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);

   424 

   425