Home Explore Help
Sign In
pascal
/
innosetup
mirror of https://github.com/jrsoftware/issrc.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Add example to CodeClasses.iss.

Martijn Laan 4 years ago
parent
20b837d47c
commit
ed2ec8298c
1 changed files with 6 additions and 2 deletions
Split View Show Diff Stats
  1. 6 2
      Examples/CodeClasses.iss

+ 6 - 2
Examples/CodeClasses.iss
View File 

@@ -277,9 +277,13 @@ begin
 
   CheckListBox.AddRadioButton('TNewCheckListBox', '', 1, False, True, nil);

   CheckListBox.AddCheckBox('TNewCheckListBox', '', 0, True, True, False, True, nil);

   CheckListBox.AddCheckBox('TNewCheckListBox', '', 1, True, True, False, True, nil);

-  CheckListBox.AddCheckBox('TNewCheckListBox', '', 2, True, True, False, True, nil);

-  CheckListBox.AddCheckBox('TNewCheckListBox', '', 2, False, True, False, True, nil);

+  CheckListBox.AddCheckBox('TNewCheckListBox', '123', 2, True, True, False, True, nil);

+  CheckListBox.AddCheckBox('TNewCheckListBox', '456', 2, False, True, False, True, nil);

   CheckListBox.AddCheckBox('TNewCheckListBox', '', 1, False, True, False, True, nil);

+  CheckListBox.ItemFontStyle[5] := [fsBold];

+  CheckListBox.SubItemFontStyle[5] := [fsBold];

+  CheckListBox.ItemFontStyle[6] := [fsBold, fsItalic];

+  CheckListBox.SubItemFontStyle[6] := [fsBold, fsUnderline];

 

   CheckListBox2 := TNewCheckListBox.Create(Page);

   CheckListBox2.Top := CheckListBox.Top + CheckListBox.Height + ScaleY(8);