Using the idea of more "persistent" child controls of the Frame ... here's a script that better demonstrates the problem ... when the "extra" button is pressed, the window drops down to expose the extra controls. However, there is a ">>" button that will dynamically move one of the extra TextBoxes over to the left, by 5 pixels each click ... this is where the problem appears ... if one move the text box, then clicks the extra key twice - the frame is back to normal ... and like I said, the fixed REFRESH will cover this automatically.
code:
Break On
$CLIENTHEIGHT = 170
$Form = CreateObject("Kixtart.Form")
$Form.FontSize = 10
$Form.BackColor = 0,0,255
$Form.Resizable = 1
$Form.ClientWidth = 300
$Form.ClientHeight = $CLIENTHEIGHT
$Form.Caption = "Children of the Frame"
$TextBox1 = $Form.TextBox
$TextBox1.Text = "FormChild-1"
$TextBox1.Center
$TextBox1.Top = 20
$TextBox2 = $Form.TextBox
$TextBox2.Text = "FormChild-2"
$TextBox2.Center
$TextBox2.Top = $TextBox1.Bottom + 20
$Button = $Form.Button
$Button.Text = "Extra >>"
$Button.Size = 120,25
$Button.Center
$Button.Top = 125
$Button.OnClick = "Button_Click()"
$Frame = $Form.Frame
$Frame.Text = "Frame:"
$Frame.Size = 270,155
$Frame.Center
$Frame.Top = $Form.ClientHeight + 10
$TextBox3 = $Frame.TextBox
$TextBox3.Text = "FrameChild-1"
$TextBox3.Center
$TextBox3.Top = 30
$TextBox3.Enabled = 0
$TextBox4 = $Form.TextBox
$TextBox4.Text = "FormChild-3"
$TextBox4.Center
$TextBox4.Top = 250
$TextBox4.Enabled = 0
$Button2 = $Form.Button
$Button2.Text = "FrameChild-1 >>"
$Button2.Size = 120,25
$Button2.Center
$Button2.Top = $Frame.Bottom + 10
$Button2.OnClick = "Button2_Click()"
$Button3 = $Form.Button
$Button3.Text = "FormChild-3 >>"
$Button3.Size = 120,25
$Button3.Center
$Button3.Top = $Button2.Bottom + 10
$Button3.OnClick = "Button3_Click()"
$Button4 = $Form.Button
$Button4.Text = "Frame >>"
$Button4.Size = 120,25
$Button4.Center
$Button4.Top = $Button3.Bottom + 10
$Button4.OnClick = "Button4_Click()"
Function Button_Click()
If $Form.ClientHeight = $CLIENTHEIGHT
$TextBox3.Enabled = 1
$TextBox4.Enabled = 1
$Button2.Enabled = 1
$Button.Text = "<< Extra"
$Form.ClientHeight = $Button4.Bottom + 20
$Form.Center
Else
$Form.ClientHeight = $CLIENTHEIGHT
$Form.Center
$Button.Text = "Extra >>"
$TextBox3.Enabled = 0
$TextBox4.Enabled = 0
$Button2.Enabled = 0
EndIf
EndFunction
Function Button2_Click()
$TextBox3.Left = $TextBox3.Left + 5
EndFunction
Function Button3_Click()
$TextBox4.Left = $TextBox4.Left + 5
EndFunction
Function Button4_Click()
$Frame.Left = $Frame.Left + 5
EndFunction
$TextBox1.SetFocus
$Form.Center
$Form.Show
While $Form.Visible
$=Execute($Form.DoEvents)
Loop
Exit 1
-Shawn
[ 12. September 2002, 23:21: Message edited by: Shawn ]