Break On

$Form = CreateObject("Kixtart.Form")
$Form.Size = 600,400
$Form.FontSize = 9
$Form.FontName = "MS Sans Serif"

$RichEdit = $Form.RichTextBox
$RichEdit.Location = 10,10
$RichEdit.Right = $Form.ClientWidth - 10
$RichEdit.Bottom = $Form.ClientHeight - 10
$RichEdit.LoadFile(".\winzip.rtf")

$Form.Center
$Form.Show

While $Form.Visible
$=Execute($Form.DoEvents)
Loop

exit

Break On

$Form = CreateObject("Kixtart.Form")
$Form.Size = 400,200

$ProgressBar = $Form.ProgressBar()
$ProgressBar.Center
$ProgressBar.Value = 50

$Button = $Form.Button()
$Button.Top = 10
$Button.Left = $Form.ClientWidth-$Button.Width-10
$Button.OnClick = "Button_Click"

Function Button_Click
$ProgressBar.Visible = Not $ProgressBar.Visible
EndFunction

$Form.Center
$Form.Show
While $Form.Visible
$=Execute($Form.DoEvents)
Loop

$frmMain = CreateObject("Kixtart.Form")
$frmMain.Size = 300, 373
$frmMain.SysMenu = 0
$frmMain.Text = "Welcome to the @DOMAIN Domain"
$frmMain.Center

$fraStatus = $frmMain.Frame
$fraStatus.Size = 280, 115
$fraStatus.Center
$fraStatus.Top = 225
$fraStatus.Text = " Progress "

$prgStatus = $fraStatus.ProgressBar
$prgStatus.Size = 260, 17
$prgStatus.Center
$prgStatus.Style = 1
$prgStatus.Top = 40

Break On

$frmMain = CreateObject("Kixtart.Form")
$frmMain.Size = 300, 373
$frmMain.SysMenu = 0
$frmMain.Text = "Welcome to the @DOMAIN Domain"
$frmMain.Center

$btn = $frmMain.Button
$btn.OnClick = "btn_Click"

Function btn_Click
$prgStatus.Visible = 0
$frmMain.ReFresh
EndFunction

$fraStatus = $frmMain.Frame
$fraStatus.Size = 280, 115
$fraStatus.Center
$fraStatus.Top = 225
$fraStatus.Text = " Progress "

$prgStatus = $fraStatus.ProgressBar
$prgStatus.Size = 260, 17
$prgStatus.Center
$prgStatus.Style = 1
$prgStatus.Top = 40

$frmMain.Center
$frmMain.Show
While $frmMain.Visible
$=Execute($frmMain.DoEvents)
Loop

Well, I will give some background in terms of what the problem is. The problem is that I'm trying to support two different ways of showing child controls in a frame.

1) Some folks create controls that are children of the form, then use a frame to visually group the controls. In this case, the frame must be totally transparent so that the child controls can be seen. If the frame is moved, the child controls do not move with. Plus, RadioButtons that are grouped this way are not mutually exclusive by default.

2) Other folks create controls that are children for the frame. In this scenario, the frame doesn't have to be transparent and if the frame is moved, the child controls move with it. RadioButons grouped in this fashion are mutually exclusive by default.

The second option is actually the one I had in mind for proper usage of a frame. If you actually look at VB .FRM statements, child controls "appear" to be children of the frame, and not the form. They seem to be created in a nested fashion.

So what I did, when I created Kixforms v2, was to make the frame non-transparent. The refreshing issue as we see it now, was not a problem. Plus, one could actually set the BackColor of a frame if one wanted. But - when I went back over some legacy scripts that I had - found some scripts that did things "the other way" and the frame hid all the controls underneath.

So caught between a rock and a hard-place right now. Its important to realize that BOTH methods are correct. For example in regular C++ dialogs, the child controls placed in a frame are not children of the frame, they are owned by the dialogbox itself. The frame is just used for visual grouping. The difference is that one doesn't noramally see controls appear and vanish on the fly - plus, C++ dialogs are statically declared and built before they are shown - with Kixforms and Kixtart scripting - the controls are built on the fly - thus we sometimes see them move and flash in certain circumstances. Thats why we usually defer showing the form until just before the DoEvents loop - to keep things hidden until the form is fully rendered.

To change the FRAME behavior this late in the game might be a mistake. The other option you might want to explore is to use the PictureBox object - which can also act as a container. To be honest - the PictureBox object is a FORM ... diff being that its owned by the parent form - its really a borderless sub-form. It has a persistent bitmap background just like a regular form, and can host child controls.

The next best option is to explore a new type of container control - which I've already started to do. dotnet has an object called a "PANE" with behave very much like a frame (its the dotnet version of a frame - its also called a GROUPBOX in some other circles) - the discussion will really center around whether this new control wil REQUIRE that the contained controls be created as children of the pane. My take is that this should be a requirement.

[ 06. November 2002, 16:43: Message edited by: Shawn ]

Break On

$frmMain = CreateObject("Kixtart.Form")
$frmMain.Size = 400,200
$frmMain.SysMenu = 0
$frmMain.Text = "Welcome to the @DOMAIN Domain"
$frmMain.Center
$frmMain.BackColor = MediumAquaMarine

$fraStatus = $frmMain.PictureBox
$fraStatus.BackColor = IndianRed
$fraStatus.Location = 10,10
$fraStatus.Right = $frmMain.ClientWidth - 10
$fraStatus.Bottom = 0.70 * $frmMain.ClientHeight - 10
$fraStatus.Text = " Progress "

$prgStatus = $fraStatus.ProgressBar
$prgStatus.BackColor = Khaki
$prgStatus.ForeColor = $frmMain.BackColor
$prgStatus.BorderStyle = 2
$prgStatus.Size = 260, 17
$prgStatus.Center
$prgStatus.Style = 1
$prgStatus.Top = 40

$btnDo = $frmMain.Button
$btnDo.Text = "Do"
$btnDo.OnClick = "btnDo_Click"
$btnDo.Center
$btnDo.Top = $fraStatus.Bottom + 10

Function btnDo_Click
$prgStatus.Visible = Not $prgStatus.Visible
If $prgStatus.Visible
For $i = 0 to $prgStatus.Max
$prgStatus.Value = $i
Sleep 0.010
Next
$prgStatus.Value = 0
EndIf
EndFunction

$frmMain.Center
$frmMain.Show
While $frmMain.Visible
$=Execute($frmMain.DoEvents)
Loop

Break On

$frmMain = CreateObject("Kixtart.Form")
$frmMain.Size = 400,200
$frmMain.SysMenu = 0
$frmMain.Text = "Welcome to the @DOMAIN Domain"
$frmMain.Center
$frmMain.BackColor = MediumAquaMarine

$fraStatus = $frmMain.PictureBox
$fraStatus.BackColor = $frmMain.BackColor
$fraStatus.BorderStyle = 0
$fraStatus.Location = 10,10
$fraStatus.Right = $frmMain.ClientWidth - 10
$fraStatus.Bottom = 0.70 * $frmMain.ClientHeight - 10
$fraStatus.ForeColor = DarkGreen
$fraStatus.FontBold = 1
$fraStatus.Rectangle(0,7,$fraStatus.ClientWidth-7,$fraStatus.ClientHeight-7)
$fraStatus.ForeColor = Blue
$fraStatus.FontTransparent = False
$fraStatus.PrintXY(5,0," Caption ")

$prgStatus = $fraStatus.ProgressBar
$prgStatus.BackColor = Khaki
$prgStatus.ForeColor = $fraStatus.ForeColor
$prgStatus.BorderStyle = 2
$prgStatus.Size = 260, 17
$prgStatus.Center
$prgStatus.Top = 40

$btnDo = $frmMain.Button
$btnDo.Text = "Do"
$btnDo.OnClick = "btnDo_Click"
$btnDo.Center
$btnDo.Top = $fraStatus.Bottom + 10

Function btnDo_Click
For $i = 0 to $prgStatus.Max
$prgStatus.Value = $i
Sleep 0.010
Next
$prgStatus.Value = 0
EndFunction

$frmMain.Center
$frmMain.Show
While $frmMain.Visible
$=Execute($frmMain.DoEvents)
Loop

Break On

$Form = CreateObject("Kixtart.Form")

$Form.ScaleWidth = 300
$Form.ScaleHeight = 200
$Form.FontSize = 12

$Form.BackColor = 128,128,255

$Form.ForeColor = 0,0,255
$Form.FillColor = $Form.ForeColor

$Form.FillStyle = 1

$Form.Circle(26,30,40)
;$Form.Rectangle(27,10,110,40)
$Form.Circle(133,30,40)
$Form.Circle(80,80,50)

$Form.ForeColor = 255,255,255
$Form.FontName = "Comic Sans MS"
$Form.FontSize = 24
$Form.FontBold = 1
$Form.PrintXY(25,25,"Mickey")
$Form.FontSize = 12
$Form.FontBold = 0

$PBar = $Form.ProgressBar
$PBar.Size = 280,30
$PBar.Location = 10,140
$PBar.Max = 100
$PBar.Value = 50
$PBar.ForeColor = 150,255,150

$Form.Center
$Form.Show

While $Form.Visible
$=Execute($Form.DoEvents)
Loop

Exit 1