quote:

---

2.0.3
=====

- Added the OnAbout event to the FORM object. This will allow one
to override and customize the default ABOUT menuitem in SysMenu.

- Changed the default behavior of TEXTBOX to support automatic
horizontal and vertical scrolling of text. See WORDWRAP

- WordWrap

A boolean indicating whether the TextBox supports (automatic)
horizontal scrolling of text, or automatic wrapping of text
to the next line.

Single-line TextBox:

WordWrap is FALSE by default. Text will automatically scroll
horizontally. To disable horizontal scrolling, set WordWrap
to TRUE. Since there is no "next line" in a single-line
control, this effectively limits input to the width of the
control.

Mutli-Line TextBox:

WordWrap is TRUE by default. Text will automatically wrap to
the next line and not scroll horizontally. To enable horizontal
scrolling, set WordWrap to FALSE.

- AcceptsTab

A boolean indicating whether the control accepts the TAB key as
user input

- AcceptsReturn

A boolean indicating whether the control accepts the RETURN key as
user input.

---

code:

---

Break On
 
$Form = CreateObject("Kixtart.Form")
$Form.Caption = "QuickNote"
$Form.OnAbout = "About()"
 
$Form.FontSize = 10
$Form.FontName = "Arial"
$Form.Size = 400,400
 
$Form.PrintXY(40,45,"To:")
 
$Address = $Form.ComboBox
$Address.Size = 310,100
$Address.Location = 70,45
$Address.MaxLength = 50
$Address.AutoTab = True
$Address.List = "joe@@hotmail.com","sam@@yahoo.com","sally@@sympatico.ca"
 
$Form.PrintXY(10,80,"Subject:")
  
$Subject = $Form.ComboBox
$Subject.Size = 310,100
$Subject.Location = 70,75
$Subject.MaxLength = 50
$Subject.AutoTab = True
$Subject.List = "Emergency","Lunch","Meeting","Review","Status","Question"
 
$Message = $Form.TextBox
$Message.Size = 370,180
$Message.Location = 10,120
$Message.MultiLine = True
$Message.AcceptsTab = True
$Message.AcceptsReturn = True
 
$Send = $Form.Button
$Send.Caption = "Send Now"
$Send.Center
$Send.Top = $Message.Bottom + 20
$Send.OnClick = "Send()"
$Send.Appearance = 0
$Send.Default = 1
 
$Form.FontSize = 20
$Form.ForeColor = 190,190,190
$Form.PrintXY(128,7,"QuickNote")
 
$Form.ForeColor = 0,0,255
$Form.PrintXY(125,4,"QuickNote")
 
$Form.Center
$Form.Show
 
$Address.SetFocus
   
While $Form.Visible 
 
 $=Execute($Form.DoEvents)
 
Loop
  
Exit 1
 
Function Send()
 
 $rs = $Form.MsgBox("Message sent (not really!)","QuickNote",64)
 
EndFunction

Function About()
 
 $rs = $Form.MsgBox("QuickNote v1.0","QuickNote",32)
 
EndFunction

---

code:

---

;
; KIXTART 4.0
; KIFORMS 2.0.3
;

$APPNAME = "QuickNotes"
 
Break On
 
$Form = CreateObject("Kixtart.Form")
$Form.Caption = $APPNAME
$Form.OnAbout = "About()"
$Form.BorderStyle = 6
$Form.FontSize = 10
$Form.FontName = "Arial"
$Form.Size = 400,350
 
$Frame = $Form.Frame
$Frame.Size = $Form.ClientWidth,53
$Frame.Location = 0,-5
  
$Send = $Form.Button
$Send.Caption = "Send"
$Send.Size = 60,40
$Send.Location = 2,$Frame.Top+10
$Send.OnClick = "Send()"
$Send.Appearance = 0
$Send.ToolTip = "Send your message now"
 
$Options = $Form.Button
$Options.Caption = "Options"
$Options.Size = 60,40
$Options.Location = $Send.Right-1,$Frame.Top+10
$Options.OnClick = "Options()"
$Options.Appearance = 0
$Options.ToolTip = "Customize settings"
 
$Exit = $Form.Button
$Exit.Caption = "Exit"
$Exit.Size = 60,40
$Exit.Location = $Options.Right-1,$Frame.Top+10
$Exit.OnClick = "Finish()"
$Exit.Appearance = 0
$Exit.ToolTip = "Exit without sending"
 
$Form.PrintXY(40,60,"To:")
 
$Address = $Form.ComboBox
$Address.Size = 310,100
$Address.Location = 70,$Frame.Bottom+5
$Address.MaxLength = 50
$Address.AutoTab = True
$Address.List = "joe@@hotmail.com","sam@@yahoo.com","sally@@sympatico.ca"
$Address.OnGotFocus = "$$Status.Text = 'Type recipients name'"
 
$Form.PrintXY(10,85,"Subject:")
  
$Subject = $Form.ComboBox
$Subject.Size = 310,100
$Subject.Location = 70,$Address.Bottom+5
$Subject.MaxLength = 50
$Subject.AutoTab = True
$Subject.List = "Emergency","Lunch","Meeting","Review","Status","Question"
$Subject.OnGotFocus = "$$Status.Text = 'Type the subject for this message'"
  
$Message = $Form.TextBox
$Message.Size = 388,180
$Message.Location = 3,$Subject.Bottom+5
$Message.MultiLine = True
;$Message.AcceptsTab = True
$Message.AcceptsReturn = True
$Message.OnGotFocus = "$$Status.Text = 'Type your message here'"
 
$Status = $Form.Label
$Status.Size = 388,20
$Status.Location = 3,$Message.Bottom + 5
$Status.BorderStyle = 5 ; Sunken
$Status.Text = "Ready"
  
$Form.ClientHeight = $Status.Bottom + 2
$Form.Center
$Form.Show
 
$Address.SetFocus
   
While $Form.Visible 
 
 $=Execute($Form.DoEvents)
 
Loop
   
Exit 1
 
Function Send()
 
 $rs = $Form.MsgBox("Message sent (not really!)",$APPNAME,64)
 
EndFunction
 
Function About()
 
 $rs = $Form.MsgBox("QuickNote v1.0",$APPNAME,32)
 
EndFunction
 
Function Options()
 
 $rs = $Form.MsgBox("QuickNotes v1.0",$APPNAME,32)
 
EndFunction
 
Function Finish()
 
 If $Form.MsgBox("Do you really wish to quit ?",$APPNAME,4) = 6
 
  $Form.Hide
 
 EndIf
 
EndFunction

---

code:

---

$Form = CreateObject("Kixtart.Form")
$t = $Form.editbox("The KiXtart Bulletin Board")
$t.width = 400
$t.height=200
$t.multiline=1
$t.Center

---