code:

---

;
; KIXTART 4.0
; KIXFORMS BUILD 32
;
 
Break On
 
$Form = CreateObject("Kixtart.Form")
 
If Val($Form.Build) < 32
 ?"This script requires Kixforms Build 32" Quit()
EndIf
 
$Form.FontSize = 10
$Form.Size = 250,300
 
$Label = $Form.Label
$Label.Size = 230,20
$Label.Location = 5,15
$Label.FontBold = 1
$Label.Text = "I WANT MORE"
$Label.Alignment = 2
$Label.BackColor = 255,255,255
 
$Opt1 = $Form.RadioButton("Pizza")
$Opt1.Top = $Label.Bottom + 20
$Opt1.Left = 20
$Opt1.Value = TRUE
 
$Opt2 = $Form.RadioButton("Sex")
;$Opt2.Size = 100,20
$Opt2.Top = $Opt1.Bottom + 8
$Opt2.Left = 20
 
$Opt3 = $Form.RadioButton("Beer")
$Opt3.Top = $Opt2.Bottom + 8
$Opt3.Left = 20
 
$Opt4 = $Form.RadioButton("Money")
$Opt4.Top = $Opt3.Bottom + 8
$Opt4.Left = 20
 
$Button = $Form.Button("Come On!!!")
$Button.Center
$Button.Top = $Opt4.Bottom + 20
$Button.OnClick = "Click()"
 
Function Click()
 
 ; Exit if button text set to "Exit"
 
 If $Button.Text = "Exit"
  Quit()
 EndIf
  
; Change our message ...
 
 $Label.FontSize = 10
 $Label.Text = "OK, OK, I WANT MORE"
 
 ; Set Option 3 as the start of a new option group ... 
 
 $Opt3.TabGroup = TRUE 
 
 ;
 ; Now re-initialize option values ...
 ;
 
 $Opt1.Value = 1
 $Opt2.Value = 0
 $Opt3.Value = 1
 $Opt4.Value = 0

 ; Draw some boxes to seperate our new options
 ; groups - look ma, no frames.
 
 $Form.Rectangle(15,50,210,75)
 $Form.Rectangle(15,124,210,75)
 
 ; Set button to exit on next go-around ...
 
 $Button.Text = "Exit"
 
EndFunction
 
$Form.Center
$Form.Show
While $Form.Visible
 $=Execute($Form.DoEvents)
Loop
 
Exit 1

---

code:

---

If $Form.Build < 32
 ?"Kixforms build not current"
 Quit()
EndIf

---

code:

---

If Val($Form.Build) < 32
 ?"Kixforms not installed or build not current"
 Quit()
EndIf

---

code:

---

;
; KIXTART 4.0
; KIXFORMS BUILD 2.0.4.32
;
 
Break On
 
$Form = CreateObject("Kixtart.Form")
 
$Form.FontSize = 10
$Form.Size = 250,335
$Form.ForeColor = 0,0,200
 
$Form.PrintXY(10,30,"Please choose a color:")
 
$RedOption = $Form.OptionButton
$RedOption.Text = "Red"
$RedOption.Top = 60
$RedOption.Left = 20
$RedOption.TabGroup = TRUE
$RedOption.ForeColor = 200,0,0
 
$GreenOption = $Form.OptionButton
$GreenOption.Text = "Green"
$GreenOption.Top = $RedOption.Bottom + 5
$GreenOption.Left = 20
$GreenOption.ForeColor = 0,200,0
 
$Form.PrintXY(10,140,"Please choose a number:")
 
$OneOption = $Form.OptionButton
$OneOption.Text = "One"
$OneOption.Top = 170
$OneOption.Left = 20
$OneOption.Value = TRUE
 
$TwoOption = $Form.OptionButton
$TwoOption.Text = "Two"
$TwoOption.Top = $OneOption.Bottom + 5
$TwoOption.Left = 20
 
$Button = $Form.Button
$Button.Text = "Exit"
$Button.Center
$Button.Top = 260
$Button.OnClick = "Click()"
 
Function Click()
 
  Quit()
 
EndFunction
 
;
; Initialize our options ..
;
 
$RedOption.Value = TRUE
$OneOption.TabGroup = TRUE
 
$Form.Center
$Form.Show
While $Form.Visible
 $=Execute($Form.DoEvents)
Loop
 
Exit 1

---

quote:

---

Button Control & Method
CommandButton Control & Method

---

code:

---

 
$Form.FontTransparent = FALSE
 
$Form.PrintXY(10,10,"Hello World")
 
; Now overwrite the text - tranparency is
; already turned off.
 
;
; Laydown a string of blanks - big enough to
; "cover-up" the largest string
;
 
$Form.PrintXY(10,10,"                     ") ; Hi
 
$Form.PrintXY(10,10,"Hi !")
 

---

code:

---

Break On
 
$Form = CreateObject("Kixtart.Form")
$Form.FontSize = 12
$Form.Size = 300,300
 
$TextBox1 = $Form.TextBox
$TextBox1.Center
$TextBox1.Top = 20
$TextBox1.OnChange = "TextBox_Change()"
 
$TextBox2 = $Form.TextBox
$TextBox2.Center
$TextBox2.Top = $TextBox1.Bottom + 20
$TextBox2.OnChange = "TextBox_Change()"
 
$TextBox3 = $Form.TextBox
$TextBox3.MultiLine = TRUE
$TextBox3.Size = $Form.ClientWidth-20,100
$TextBox3.Center
$TextBox3.Top = $TextBox2.Bottom + 50
 
$Form.PrintXY(30,25,"To:")
$Form.PrintXY(30,75,"About:")
 
$Form.Center
$Form.Show
$TextBox1.SetFocus
 
While $Form.Visible
 $=Execute($Form.DoEvents)
Loop
  
Exit 1
 
Function TextBox_Change()
 
 $TextBox3.Text =
	"Message to "
	+ $TextBox1.Text
	+ " about " 
	+ $TextBox2.Text
	+ ". Lets do it!"
 
EndFunction

---

code:

---

$lstGroups1			= $fraDetails.ListBox
$lstGroups1.HEIGHT		= 134
$lstGroups1.LEFT		= $USR_LBLLEFT
$lstGroups1.TOP			= $lblGroups1.TOP + 20
$lstGroups1.WIDTH		= 220
$lstGroups1.Enabled		= 0
$lstGroups1.Sorted		= 1 ; <---

---

code:

---

;
; Initialize our options ..
;

;$RedOption.Value = TRUE
;$OneOption.TabGroup = TRUE

---

code:

---

	- Improved task switching behavior. Form now restores
	  keyboard focus back to previous control when task 
	  switching between forms and other windows applications.
 
 	- Added OnKeyDown Event. Occurs when a user presses 
	  a key while the object has the focus.
 
	- Added KeyCode Property. Gets the key code associated
	  with the key that caused the OnKeyDown Event. 
 
	- Fixed Sorted and List property memory leak.
 
	- Fixed automatic vertical and horizontal scroll bars
	  for ListBox and ComboBox object.

---

code:

---

$Form.BorderStyle = 2

---

Please note that even though you do not see the normal visual cue in the bottom right hand corner that the form is resizable, the mouse pointer still changes shape as you approach the borders and you can resize normally. Try it out

Rod.