by Gingernut63 » Fri Jan 06, 2017 3:51 pm
Peke wrote:Can you make screenshot showing the direction of resize that do not work?
Two screen shots (before and after) plus code. The first image is the first time the options page is opened. The second is what it looks like every time it is opened thereafter, even if the options page window is resized.
Code: Select all
Sub OnStartup
Dim ind
ind = SDB.UI.AddOptionSheet("TestSheet",Script.ScriptPath,"InitSheet","SaveSheet",-2)
End Sub
Sub InitSheet(Sheet)
Dim form, Panel1, Panel2, Panel3, Panel4
Set Panel1 = SDB.UI.NewGroupBox(Sheet)
Panel1.Common.SetRect 10,5,Sheet.Common.Width -20,50
Panel1.Common.Anchors = 1+2+4
Panel1.Caption = "Panel 1"
Set Panel2 = SDB.UI.NewGroupBox(Sheet)
Panel2.Common.SetRect 10,65,Sheet.Common.Width -20,50
Panel2.Common.Anchors = 1+2+4
Panel2.Caption = "Panel 2"
Set Panel3 = SDB.UI.NewGroupBox(Sheet)
Panel3.Common.SetRect 10,125,Sheet.Common.Width -20,50
Panel3.Common.Anchors = 1+2+4
Panel3.Caption = "Panel 3"
Set Panel4 = SDB.UI.NewGroupBox(Sheet)
Panel4.Common.SetRect 10,185,Sheet.Common.Width -20,50
Panel4.Common.Anchors = 1+2+4
Panel4.Caption = "Panel 4"
End Sub
Sub SaveSheet(Sheet)
End Sub
[quote="Peke"]Can you make screenshot showing the direction of resize that do not work?[/quote]
Two screen shots (before and after) plus code. The first image is the first time the options page is opened. The second is what it looks like every time it is opened thereafter, even if the options page window is resized.
[img]http://i1263.photobucket.com/albums/ii637/Gingernut63/Test%20Panel/Before.jpg[/img]
[img]http://i1263.photobucket.com/albums/ii637/Gingernut63/Test%20Panel/After.jpg[/img]
[code]Sub OnStartup
Dim ind
ind = SDB.UI.AddOptionSheet("TestSheet",Script.ScriptPath,"InitSheet","SaveSheet",-2)
End Sub
Sub InitSheet(Sheet)
Dim form, Panel1, Panel2, Panel3, Panel4
Set Panel1 = SDB.UI.NewGroupBox(Sheet)
Panel1.Common.SetRect 10,5,Sheet.Common.Width -20,50
Panel1.Common.Anchors = 1+2+4
Panel1.Caption = "Panel 1"
Set Panel2 = SDB.UI.NewGroupBox(Sheet)
Panel2.Common.SetRect 10,65,Sheet.Common.Width -20,50
Panel2.Common.Anchors = 1+2+4
Panel2.Caption = "Panel 2"
Set Panel3 = SDB.UI.NewGroupBox(Sheet)
Panel3.Common.SetRect 10,125,Sheet.Common.Width -20,50
Panel3.Common.Anchors = 1+2+4
Panel3.Caption = "Panel 3"
Set Panel4 = SDB.UI.NewGroupBox(Sheet)
Panel4.Common.SetRect 10,185,Sheet.Common.Width -20,50
Panel4.Common.Anchors = 1+2+4
Panel4.Caption = "Panel 4"
End Sub
Sub SaveSheet(Sheet)
End Sub[/code]