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.
|
// 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);
|
||||||
|
Reference in New Issue
Block a user