Been playing around a little with that QuickNotes script ... still doesn't actually send notes but was trying to make it look more professional ...
Re-arranged the buttons some. Created what can best be described as a "poor-mans-menu-bar" ... also added what can best be described as a "poor-mans-status-bar" ... need the real thing me thinks ...
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