Corroder Grandmaster Cheater Supreme Reputation: 75 Joined: 10 Apr 2015 Posts: 1667
|
Posted: Tue Mar 26, 2019 6:03 am Post subject: |
|
|
Dark Byte wrote: | No, there is no way to get the selected items right now
but you can show it using
Code: |
clb=createComponentClass('TCheckListBox',formname)
clb.Parent=formname
|
|
I am using CE 6.8.3, when trying the code above its give error message "Access Violation' and also Scrollbox does not work on form designer.
Btw, I try this method as a wish on topic.
Code: | function createScrollBox(Parent)
local scrbox = createComponentClass('TScrollBox', Parent)
scrbox.Parent = Parent
return scrbox
end
f = createForm()
f.Width = 150
f.Height = 600
a = createScrollBox(f)
a.Top = 10
a.Left = 10
a.Width = 130
a.Height = 580
a.Color = '0xFFFFFF'
a.VertScrollBar.Increment = 200
a.VertScrollBar.Page = 700
a.VertScrollBar.Smooth = true
a.VertScrollBar.Range = 700
local ctop=10
local i
for i=1,50 do
local cbxname='cbx'..i
local cbx=createCheckBox(a)
_G[cbxname]=cbx
cbx.Left = 10
cbx.Top = ctop
ctop=ctop+20
cbx.caption = "+/- "..i
end
|
_________________ Stealing Code From Stolen Code...
And Admit It.. Hmmm....Typically LOL
|
|