From 661f42b5ba432ed0827bb143aed7189620323e99 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Tue, 14 Jun 2022 09:17:02 +0000 Subject: [PATCH] TvPlanIt: Clean up. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8298 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/examples/fulldemo/demomain.pas | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) 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);