Available from my temporary server:

Kixforms Version 2.0.3

[rod - still can't email you the zip file - could you pull it directly from this server ?]

Summary of changes in 2.0.3:

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.


Here's a quick and dirty script to excersise some of the new features. It emulates a QuickNote type GUI interface ... doesn't really send a quick note (but could be enhanced with MAPI or OUTLOOK type automation to really send a quick note) ...

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



[ 27. August 2002, 17:07: Message edited by: Shawn ]