
24-12-2022, 11:03
|
 |
Registered User
|
|
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
|
|
TCheckListBoxCreate v3
TCheckListBoxCreate v3
Code:
- CheckListBoxGetItemCount(FCheckListBox);
- CheckListBoxGetAbsItemIndex(FCheckListBox);
- CheckListBoxGetSubItemFontStyle(FCheckListBox, 0);
- CheckListBoxGetItemFontStyle(FCheckListBox, 0);
- CheckListBoxGetItemExpanded(FCheckListBox, 2);
- CheckListBoxGetChecked(FCheckListBox, 2);
- CheckListBoxGetState(FCheckListBox, 3);
- CheckListBoxGetItemCaption(FCheckListBox, 3);
- CheckListBoxGetItemEnabled(FCheckListBox, 5);
- CheckListBoxGetItemLevel(FCheckListBox, 5);
- CheckListBoxGetItemObject(FCheckListBox, 6);
- CheckListBoxGetItemSubItem(FCheckListBox, 6);
Code:
- CheckListBoxSetSubItemFontStyle(FCheckListBox, 0, [fsBold]);
- CheckListBoxSetItemFontStyle(FCheckListBox, 0, [fsItalic]);
- CheckListBoxSetItemExpanded(FCheckListBox, 3, True);
- CheckListBoxSetChecked(FCheckListBox, 3, True);
- CheckListBoxSetItemCaption(FCheckListBox, 5, 'ItemCaption');
- CheckListBoxSetItemEnabled(FCheckListBox, 5, True);
- CheckListBoxSetItemObject(FCheckListBox, 6, nil);
- CheckListBoxSetItemSubItem(FCheckListBox, 6, 'ItemSubItem');
Code:
- ExtractTemporaryFile('BtnImage.bmp');
- ExtractTemporaryFile('BGImage.bmp');
- CheckListBoxBtnFromFile(FCheckListBox, ExpandConstant('{tmp}\BtnImage.bmp'));
- CheckListBoxBGFromFile(FCheckListBox, ExpandConstant('{tmp}\BGImage.bmp'), CheckListBoxGetLeft(FCheckListBox)-20, CheckListBoxGetTop(FCheckListBox)-20);
Last edited by DelphiBuilder; 24-12-2022 at 13:20.
|