diff --git a/components/tvplanit/examples/fulldemo/demomain.pas b/components/tvplanit/examples/fulldemo/demomain.pas
index 0276bb9bc..ca74fa9fd 100644
--- a/components/tvplanit/examples/fulldemo/demomain.pas
+++ b/components/tvplanit/examples/fulldemo/demomain.pas
@@ -510,6 +510,8 @@ end;
 
 // Load the last resource.
 procedure TMainForm.FormCreate(Sender: TObject);
+var
+  i: Integer;
 begin
   PopulateLanguages;
   ReadIni;
@@ -559,6 +561,21 @@ begin
   end;
 
   Caption := Application.Title;
+  // Fix TLabel transparency issue of Laz 2.2.2
+  for i := 0 to ComponentCount-1 do
+    if Components[i] is TLabel then TLabel(Components[i]).Transparent := true;
+  {
+  TitleLbl.Transparent := true;
+  LblVisibleDays.Transparent := true;
+  LblGranularity.Transparent := true;
+  LblOtherResources.Transparent := true;
+  LblResources.Transparent := true;
+  LblLanguage.Transparent := true;
+  LblDrawingStyle.Transparent := true;
+  LblAddressBuilder.Transparent := true;
+  LblFirstDayOfWeek.Transparent := true;
+  LblTimeFormat.Transparent := true;
+  }
 end;
 
 procedure TMainForm.lbOtherResourcesClickCheck(Sender: TObject);