You've already forked lazarus-ccr
TvPlanIt: Workaround for TLabel transparency issue of Laz 2.2+
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8297 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -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);
|
||||
|
Reference in New Issue
Block a user