#87520 - 2002-08-27 05:05 PM
Kixforms: Version 2.0.3
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
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 ]
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 259 anonymous users online.
|
|
|