'All variants script
AutoScaleAll
'Variant specific script: 320x480,scale=1
AutoScaleAll
SelectText.Top = 10%y
SelectLog.bottom = SelectClose.Top - 1%y
clvSelect.Top = SelectText.bottom
If SelectInput.Visible = false Then
clvSelect.SetTopAndBottom (SelectText.Bottom + 5dip ,SelectLog.Top - 5dip)
Else
SelectInput.right = clvSelect.right
SelectInput.bottom = SelectLog.Top - 1%y
SelectInputLabel.bottom = SelectLog.Top - 1%y
clvSelect.SetTopAndBottom (SelectText.Bottom + 5dip ,SelectInput.Top - 5dip)
End If
'Variant specific script: 480x320,scale=1
AutoScaleAll
SelectText.Top = 1%y
'SelectLog.bottom = SelectClose.Top - 1%y
If SelectInput.Visible = false Then
clvSelect.width = 70%x
clvSelect.SetTopAndBottom(SelectText.bottom + 1%y,SelectClose.Top - 1%y)
clvSelect.SetLeftAndRight (SelectText.Left,SelectText.right)
Else
clvSelect.Width = 50%x
clvSelect.SetTopAndBottom(SelectText.bottom + 1%y,SelectClose.Top - 1%y)
SelectInputLabel.Left = clvSelect.Right + 2%x
SelectInput.Left = clvSelect.Right + 2%x
SelectInputLabel.top = clvSelect.top + 15%y
SelectInput.Top = SelectInputLabel.bottom + 2%y
End If