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 @@
-
+