diff --git a/components/tvplanit/examples/fulldemo/demomain.pas b/components/tvplanit/examples/fulldemo/demomain.pas index ca74fa9fd..5d355c955 100644 --- a/components/tvplanit/examples/fulldemo/demomain.pas +++ b/components/tvplanit/examples/fulldemo/demomain.pas @@ -561,21 +561,9 @@ begin end; Caption := Application.Title; - // Fix TLabel transparency issue of Laz 2.2.2 + // Fix TLabel transparency issue of Laz 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);