Tweaks.

narspt · Dec 29, 2018 · 82e24c6 · 82e24c6
1 parent e69b5b5
commit 82e24c6
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/Components/NewTabSet.pas b/Components/NewTabSet.pas
@@ -34,7 +34,7 @@   TNewTabSet = class(TCustomControl)
     destructor Destroy; override;
   published
     property Align;
-    property Flat: Boolean read FFlat write FFlat;
+    property Flat: Boolean read FFlat write FFlat default True;
     property Font;
     property ParentFont;
     property TabIndex: Integer read FTabIndex write SetTabIndex;

diff --git a/Projects/CompMsgs.pas b/Projects/CompMsgs.pas
@@ -293,7 +293,7 @@ interface
 
   { [Code] }
   SCompilerCodeUnsupportedEventFunction = 'Event function named "%s" is no longer supported. Create a "%s" function instead';
-  SCompilerCodeFunctionRenamed = 'Support function "%s" has been renamed. Use "%s" instead.';
+  SCompilerCodeFunctionRenamedWithAlternative = 'Support function "%s" has been renamed. Use "%s" instead or consider using "%s".';
 
   { [Types] }
   SCompilerTypesCustomTypeAlreadyDefined = 'A custom type has already been defined';

diff --git a/Projects/ScriptFunc_C.pas b/Projects/ScriptFunc_C.pas
@@ -146,7 +146,7 @@ procedure ScriptFuncLibraryRegister_C(ScriptCompiler: TPSPascalCompiler;
   RegisterFunctionTable(BrowseFuncTable);
   RegisterFunctionTable(CmnFuncTable);
   RegisterFunctionTable(CmnFunc2Table);
-  ObsoleteFunctionWarnings.Add('IsAdminLoggedOn', Format(SCompilerCodeFunctionRenamed, ['IsAdminLoggedOn', 'IsAdmin']));
+  ObsoleteFunctionWarnings.Add('IsAdminLoggedOn', Format(SCompilerCodeFunctionRenamedWithAlternative, ['IsAdminLoggedOn', 'IsAdmin', 'IsAdminInstallMode']));
   RegisterFunctionTable(InstallTable);
   RegisterFunctionTable(InstFuncTable);
   RegisterFunctionTable(InstFnc2Table);