Code: Select all
'example demonstrating WidthPercentage
dim oPSet,oPPGLayout
set oPSet=ActiveSceneRoot.AddProperty("CustomProperty",false,"Demo")
oPSet.AddParameter3 "P1",siString, "Default Text"
set oPPGLayout = oPSet.PPGLayout
oPPGLayout.AddRow
'Give Softimage the hint that we want the edit box to
'have extra space
set oItem = oPPGLayout.AddItem( "P1", "Parameter 1" )
oItem.WidthPercentage = 80
set oItem = oPPGLayout.AddButton( "Button" )
oItem.WidthPercentage = 20
oPPGLayout.EndRow
'Show our PPG
InspectObj oPSetThis code is an example from SDK page.
I've tried to refresh PPG, it's do nothing.