Control List Inherits Listbox
ControlInstance List Inherits Listbox
EventHandler Sub ExpandRow(row As Integer)
dim v as Variant = me.RowTag(row)
if v isa page then
dim p as page = v
for each f as field in p.Fields
me.AddFolder str(f.index)
me.Cell(me.LastIndex,1) = f.name
me.RowTag(me.LastIndex) = f
next
elseif v isa Field then
dim f as Field = v
me.AddRow "Name", f.name
dim ts as string
Select case f.type
case DynaPDFMBS.kftButton
ts = " Button"
case DynaPDFMBS.kftCheckBox
ts = " CheckBox"
case DynaPDFMBS.kftComboBox
ts = " ComboBox"
case DynaPDFMBS.kftGroup
ts = " Group"
case DynaPDFMBS.kftListBox
ts = " ListBox"
case DynaPDFMBS.kftRadioBtn
ts = " RadioButton"
case DynaPDFMBS.kftSignature
ts = " Signature"
case DynaPDFMBS.kftText
ts = " Text"
end Select
me.AddRow "Type", str(f.type)+ts
me.AddRow "Index", str(f.index)
me.AddRow "Deleted", str(f.info.Deleted)
me.AddRow "BBox", str(f.info.BBox.Left)+" "+str(f.info.BBox.Top)+" to "+str(f.info.BBox.Right)+" "+str(f.info.BBox.Bottom)
me.AddRow "GroupType", str(f.info.GroupType)
me.AddRow "Checked;", str(f.info.Checked)
me.AddRow "CheckBoxChar", str(f.info.CheckBoxChar)
me.AddRow "Default Value", str(f.info.DefValue)
me.AddRow "ExpValCount", str(f.info.ExpValCount)
me.AddRow "ExpValue", str(f.info.ExpValue)
me.AddRow "KidCount", str(f.info.KidCount)
me.AddRow "UniqueName", str(f.info.UniqueName)
me.AddRow "ToolTip", str(f.info.ToolTip)
me.AddRow "Value", str(f.info.Value)
me.AddRow "ExpValue", str(f.ExpValue)
for i as integer = 0 to f.Info.KidCount-1
me.AddFolder "Child "+str(i)
me.RowTag(me.LastIndex) = f.Info.Kids(i)
next
end if
End EventHandler
End Control