If (page1object=0) Then
Page("EditBox")
Return()
End
If (page6object=0) Then
page6object=1
var$ ='MMB|ComboBox|315|130|100|21|Mask ...'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Create_Object")
*****
var$ ='MMB|ComboBox|315|170|100|21|Type it ...|242,242,242|140,0,0|R|1|'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Create_Object")
var$ ='Object22|Member22|ComboBox|Combo_Style|DropDown'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
*****
var$ ='MMB|ComboBox|316|211|83|20||||||0'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Create_Object")
*****
var$ ='MMB|ComboBox|465|135|125|20|||0,0,255||1|0'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Create_Object")
var$ ='Object24|Member24|ComboBox|Combo_Style|OwnerDrawVariable'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
*****
var$ ='MMB|ComboBox|465|175|125|20||225,235,255|0,0,255||1|0'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Create_Object")
*****
var$ ='MMB|ComboBox|485|215|105|20|||0,0,255|R|1|0'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Create_Object")
var$ ='Object26|Member26|ComboBox|Combo_Style|Simple'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
For i=1 To 20
var$ = 'Object21|Member21|ComboBox|Add_Item|Abtin' +CHAR(i)
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
var$ = 'Object22|Member22|ComboBox|Add_Item|Item' +CHAR(i)
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
var$ = 'Object23|Member23|ComboBox|Add_Item|Item' +CHAR(i)
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
var$ = 'Object24|Member24|ComboBox|Add_Item|Abtin' +CHAR(i)
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
var$ = 'Object25|Member25|ComboBox|Add_Item|Item' +CHAR(i)
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
var$ = 'Object26|Member26|ComboBox|Add_Item|Item' +CHAR(i)
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
Next i
For i=21 To 26
var$ = 'Object'+CHAR(i)+'|Member'+CHAR(i)+'|ComboBox|Select_Item|1'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
Next i
End
*************
For i=21 To 26
var$ = 'Object'+CHAR(i)+'|Show_Object'
PluginSet("Epigraph","var$")
PluginRun("Epigraph","Set_Param")
Next i
Refresh("")
tab=1
*********
MoveTo("Master Layer::Bitmap1","261,90,10")
*********
PluginRun("Epigraph","Get_numObject")
PluginGet("Epigraph","Obj$")
PluginRun("Epigraph","Get_numMember")
PluginGet("Epigraph","Mem$")
ob$='Ob:'+Obj$+' M:'+Mem$
DisplayValue("Header1","ob$")