[Setup] Appname = test Appvername = test Defaultdirname = "E: \ test" Appversion = 1.0 [Files] Source: zzz. ISS; flags: dontcopy [Code] VaR Mypage: twizardpage; LBL: tlabel; Chk1, CHK2, chk3: tcheckbox; Procedure clickchk1 (Sender: tobject ); Begin If chk1.checked then LBL. Font. Style: = LBL. Font. Style + [fsbold] Else LBL. Font. Style: = LBL. Font. Style-[fsbold]; End; Procedure clickchk2 (Sender: tobject ); Begin If chk2.checked then LBL. Font. Style: = LBL. Font. Style + [fsitalic] Else LBL. Font. Style: = LBL. Font. Style-[fsitalic]; End; Procedure clickchk3 (Sender: tobject ); Begin If chk3.checked then LBL. Font. Style: = LBL. Font. Style + [fsunderline] Else LBL. Font. Style: = LBL. Font. Style-[fsunderline]; End; Procedure initializewizard (); Begin Mypage: = createcustompage (wpwelcome ,'Title: Custom page','Description: This is my custom page.'); LBL: = tlabel. Create (mypage ); LBL. Parent: = mypage. surface; LBL. Caption: ='Select the check box and pay attention to text changes'; Chk1: = tcheckbox. Create (mypage ); Chk1.parent: = mypage. surface; Chk1.caption: ='Bold'; Chk1.top: = LBL. Top + 20; Chk1.onclick :=@ clickchk1; CHK2: = tcheckbox. Create (mypage ); Chk2.parent: = mypage. surface; Chk2.caption: ='Italics'; Chk2.top: = chk1.top + 20; Chk2.onclick :=@ clickchk2; Chk3: = tcheckbox. Create (mypage ); Chk3.parent: = mypage. surface; Chk3.caption: ='Underline'; Chk3.top: = chk2.top + 20; Chk3.onclick :=@ clickchk3; End; |