diff --git a/CastleEngineManifest.xml b/CastleEngineManifest.xml index 8a4e564..a95655e 100644 --- a/CastleEngineManifest.xml +++ b/CastleEngineManifest.xml @@ -1,7 +1,12 @@ + + + + + diff --git a/glinformation.lpr b/glinformation.dpr similarity index 94% rename from glinformation.lpr rename to glinformation.dpr index 643843d..b297dbe 100644 --- a/glinformation.lpr +++ b/glinformation.dpr @@ -30,10 +30,10 @@ CastleFilesUtils, CastleLog, CastleApplicationProperties; var - Window: TCastleWindowBase; + Window: TCastleWindow; const - Version = '1.2.2'; + Version = '1.3.0'; Options: array[0..11] of TOption = ( (Short: 'h'; Long: 'help'; Argument: oaNone), @@ -78,7 +78,7 @@ procedure OptionProc(OptionNum: Integer; HasArgument: boolean; ' double buffered anyway)' +nl+ ' --double Double buffered visual (default)' +nl+ nl+ - TCastleWindowBase.ParseParametersHelp(StandardParseOptions, true) +nl+ + TCastleWindow.ParseParametersHelp +nl+ nl+ SCastleEngineProgramHelpSuffix(ApplicationName, Version, true)); Halt; @@ -103,10 +103,11 @@ procedure OptionProc(OptionNum: Integer; HasArgument: boolean; begin ApplicationProperties.Version := Version; - Window := TCastleWindowBase.Create(Application); + Window := TCastleWindow.Create(Application); + Window.Visible := false; { parse params } - Window.ParseParameters(StandardParseOptions); + Window.ParseParameters; Parameters.Parse(Options, @OptionProc, nil); if Parameters.High <> 0 then raise EInvalidParams.CreateFmt('Excessive parameter "%s"', [Parameters[1]]); diff --git a/glinformation.lpi b/glinformation.lpi index 744a64a..b9fbe81 100644 --- a/glinformation.lpi +++ b/glinformation.lpi @@ -41,7 +41,7 @@ - +