Inno Setup - Transparency under text in page name and description labels -
i want make transparency under text here:
as can see, have black background don't want have.
greetings.
the pagenamelabel , pagedescriptionlabel tnewstatictext components. component not support transparency. though tlabel component, has similar functionality otherwise, support transparency (in unicode version of inno setup only).
so, can replace 2 components tlabel equivalent. , need make sure, captions of new custom components updated, whenever inno setup update original components. these 2 components, quite easy, updated only, when page changes. can update custom components curpagechanged event function.
function clonestatictexttolabel(statictext: tnewstatictext): tlabel; begin result := tlabel.create(wizardform); result.parent := statictext.parent; result.left := statictext.left; result.top := statictext.top; result.width := statictext.width; result.height := statictext.height; result.autosize := statictext.autosize; result.showaccelchar := statictext.showaccelchar; result.wordwrap := statictext.wordwrap; result.font := statictext.font; statictext.visible := false; end; var pagedescriptionlabel: tlabel; pagenamelabel: tlabel; procedure initializewizard(); begin { ... } { create tlabel equivalent of standard tnewstatictext components } pagenamelabel := clonestatictexttolabel(wizardform.pagenamelabel); pagedescriptionlabel := clonestatictexttolabel(wizardform.pagedescriptionlabel); end; procedure curpagechanged(curpageid: integer); begin { update custom tlabel components standard hidden components } pagedescriptionlabel.caption := wizardform.pagedescriptionlabel.caption; pagenamelabel.caption := wizardform.pagenamelabel.caption; end; way easier change original labels background color:
inno setup - change size of page name , description labels


Comments
Post a Comment