Hide Frame deprecation warnings (to not obscure other warnings), but …

…add TODO
castle-engine · Aug 25, 2024 · 6d7b197 · 6d7b197
1 parent ed4ae1a
commit 6d7b197
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/code/v3dscenenamedanimations.pas b/code/v3dscenenamedanimations.pas
@@ -305,7 +305,10 @@ constructor TNamedAnimationsUi.Create(const AOwner: TComponent; const AScene: TC
   inherited Create(AOwner);
 
   Scene := AScene;
+  // TODO: remove Frame usage, we need parent UI with filling and border, and AutoSizeToChildren
+  {$warnings off}
   Frame := true;
+  {$warnings on}
   Padding := Margin;
   Spacing := 4;
 

diff --git a/code/v3dscenestatus.pas b/code/v3dscenestatus.pas
@@ -68,7 +68,10 @@ constructor TStatusText.Create(AOwner: TComponent);
   FontSize := 15;
   CustomFont := TCastleFont.Create(Self);
   TCastleFont(CustomFont).Load(Font_Default3d_MonoB);
+  // TODO: remove Frame usage, we need parent UI with filling and border, and AutoSizeToChildren
+  {$warnings off}
   Frame := true;
+  {$warnings on}
 end;
 
 procedure TStatusText.Render;