Hi DAW
I am getting a naming conflict error in the view below, I am sure this was working in Alpha 1.
Code:
Use cWebView.pkg
Use cWebPanel.pkg
Use cWebForm.pkg
Object oDynamcGrid is a cWebView
Set piWidth to 700
Set psCaption To "Dynamc Grid"
Set piColumnCount To 12
Object oColumn_Count is a cWebForm
Set psLabel To "Columns"
Set piColumnSpan To 4
Set peLabelAlign To alignRight
Set psValue To 3
End_Object
Object oContainer is a cWebDynamicObjectContainer
Set pbFillHeight To True
Set piColumnSpan To -1
Procedure Create_Grid
Integer iColumns iColumn
Handle ohId
Send ResetContainer
WebGet psValue Of oColumn_Count To iColumns
Get CreateDynamicObject (RefClass(cWebList)) "oList" "" To ohId
Send InitDynamicProp Of ohId "pbFillHeight" True
For iColumn From 0 To (iColumns - 1)
Get CreateDynamicObject (RefClass(cWebColumn)) ("oColumn"+String(iColumn)) "oList" To ohId
Send InitDynamicProp Of ohId "psCaption" ("Column"*String(iColumn))
Loop
Send Activate
End_Procedure
End_Object
Object oButton is a cWebButton
Set psCaption To "Process"
Set piColumnIndex To 10
Set piColumnSpan To 2
Procedure OnClick
Send Create_Grid Of oContainer
End_Procedure
End_Object
End_Object