pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanIt: Workaround for TLabel transparency issue of Laz 2.2+

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8297 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-14 09:13:33 +00:00
parent b806147dfa
commit a962fbb40e
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -510,6 +510,8 @@ end;
// Load the last resource. // Load the last resource.
procedure TMainForm.FormCreate(Sender: TObject); procedure TMainForm.FormCreate(Sender: TObject);
var
i: Integer;
begin begin
PopulateLanguages; PopulateLanguages;
ReadIni; ReadIni;
@ -559,6 +561,21 @@ begin
end; end;
Caption := Application.Title; 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; end;
procedure TMainForm.lbOtherResourcesClickCheck(Sender: TObject); procedure TMainForm.lbOtherResourcesClickCheck(Sender: TObject);