;
; KIXTART 4.12
; KIXFORM 2.20
;

Break On

$APPLICATION = "kixpad"
$VERSION = "1.0"
$AUTHOR = "Shawn Tassie"
$UNTITLED = "Untitled"
$FORM_WIDTH = 700
$FORM_HEIGHT = 480
$FORM_FONTSIZE = 10
$MARGIN = 5

; Create the main form ...

$Form = CreateObject("Kixtart.Form")
$Form.Text = $UNTITLED+" - "+$APPLICATION
$Form.Icon = "write.exe;0"
$Form.ClientSize = 700,480

;
; Create the Tool Buttons. $btnNew is the prototype and all
; subsequent buttons are modeled after this object.
;

$btnNew = $Form.ToolButton
$btnNew.Text = "New"
$btnNew.Location = $MARGIN,8
$btnNew.Size = 50,40
$btnNew.Icon = 0
$btnNew.OnClick = "btnNew_Click()"
$btnNew.FlatStyle = 1
$btnNew.Alignment = 2

$btnOpen = $Form.ToolButton
$btnOpen.Text = "Open"
$btnOpen.Size = $btnNew.Size
$btnOpen.Location = $btnNew.Right,$btnNew.Top
$btnOpen.Icon = 1
$btnOpen.OnClick = "btnOpen_Click()"
$btnOpen.FlatStyle = 1
$btnOpen.Alignment = 2

$btnSave = $Form.ToolButton
$btnSave.Text = "Save"
$btnSave.Size = $btnNew.Size
$btnSave.Location = $btnOpen.Right,$btnNew.Top
$btnSave.Icon = 3
$btnSave.OnClick = "btnSave_Click()"
$btnSave.FlatStyle = 1
$btnSave.Alignment = 2

$btnFind = $Form.ToolButton
$btnFind.Text = "Find"
$btnFind.Size = $btnNew.Size
$btnFind.Location = $btnSave.Right,$btnNew.Top
$btnFind.Icon = 5
$btnFind.OnClick = "btnFind_Click()"
$btnFind.FlatStyle = 1
$btnFind.Alignment = 2

$btnCut = $Form.ToolButton
$btnCut.Text = "Cut"
$btnCut.Size = $btnNew.Size
$btnCut.Location = $btnFind.Right,$btnNew.Top
$btnCut.Icon = 6
$btnCut.OnClick = "btnCut_Click()"
$btnCut.FlatStyle = 1
$btnCut.Alignment = 2

$btnCopy = $Form.ToolButton
$btnCopy.Text = "Copy"
$btnCopy.Size = $btnNew.Size
$btnCopy.Location = $btnCut.Right,$btnNew.Top
$btnCopy.Icon = 7
$btnCopy.OnClick = "btnCopy_Click()"
$btnCopy.FlatStyle = 1
$btnCopy.Alignment = 2

$btnPaste = $Form.ToolButton
$btnPaste.Text = "Paste"
$btnPaste.Size = $btnNew.Size
$btnPaste.Location = $btnCopy.Right,$btnNew.Top
$btnPaste.Icon = 8
$btnPaste.OnClick = "btnPaste_Click()"
$btnPaste.FlatStyle = 1
$btnPaste.Alignment = 2

$btnUndo = $Form.ToolButton
$btnUndo.Text = "Undo"
$btnUndo.Size = $btnNew.Size
$btnUndo.Location = $btnPaste.Right,$btnNew.Top
$btnUndo.Icon = 11
$btnUndo.OnClick = "btnUndo_Click()"
$btnUndo.FlatStyle = 1
$btnUndo.Alignment = 2

$btnHelp = $Form.ToolButton
$btnHelp.Text = "Help"
$btnHelp.Size = $btnNew.Size
$btnHelp.Location = $btnUndo.Right,$btnNew.Top
$btnHelp.Icon = 15
$btnHelp.OnClick = "btnHelp_Click()"
$btnHelp.FlatStyle = 1
$btnHelp.CanFocus = False
$btnHelp.Alignment = 2

;
; Etched ToolBar Lines ...
;

;$Form.Line(5,$btnNew.Top-2,$Form.ClientWidth-5,$btnNew.Top-2,Gray)
;$Form.Line(5,$btnNew.Top-1,$Form.ClientWidth-5,$btnNew.Top-1,White)

$Form.Line(5,$btnNew.Bottom,$Form.ClientWidth-5,$btnNew.Bottom,Gray)
$Form.Line(5,$btnNew.Bottom+1,$Form.ClientWidth-5,$btnNew.Bottom+1,White)

;
; ToolBar controls ...
;

$cmbFontName = $Form.ComboBox
$cmbFontName.Left = 10
$cmbFontName.Top = $btnNew.Bottom + 8
$cmbFontName.Bottom = $Form.ClientHeight / 2
$cmbFontName.Width = 200
$cmbFontName.List = "Arial","Courier New","Times New Roman","Verdana"
$cmbFontName.ListIndex = 0
$cmbFontName.TabStop = 0
$cmbFontName.Style = 1
$cmbFontName.OnClick = "cmbFontName_Click"

$cmbFontSize = $Form.ComboBox
$cmbFontSize.Left = $cmbFontName.Right + 10
$cmbFontSize.Top = $cmbFontName.Top
$cmbFontSize.Bottom = $Form.ClientHeight / 2
$cmbFontSize.Width = 50
$cmbFontSize.List = 8,10,12,14,16,18,20
$cmbFontSize.ListIndex = 1
$cmbFontSize.TabStop = 0
$cmbFontSize.Style = 1
$cmbFontSize.OnClick = "cmbFontSize_Click"

$btnFontBold = $Form.ToolButton
$btnFontBold.Size = 25,25
$btnFontBold.Location = $cmbFontSize.Right + 10,$cmbFontName.Top
$btnFontBold.ToolTip = "Bold"
$btnFontBold.Icon = 20
$btnFontBold.OnClick = "btnFontBold_Click()"
$btnFontBold.ToggleStyle = 1

$btnFontItalic = $Form.ToolButton
$btnFontItalic.Size = 25,25
$btnFontItalic.Location = $btnFontBold.Right,$btnFontBold.Top
$btnFontItalic.ToolTip = "Italic"
$btnFontItalic.Icon = 21
$btnFontItalic.OnClick = "btnFontItalic_Click()"
$btnFontItalic.ToggleStyle = 1 ; Toggle button

$btnFontUnderline = $Form.ToolButton
$btnFontUnderline.Size = 25,25
$btnFontUnderline.Location = $btnFontItalic.Right,$btnFontItalic.Top
$btnFontUnderline.ToolTip = "Underline"
$btnFontUnderline.Icon = 22
$btnFontUnderline.OnClick = "btnFontUnderline_Click()"
$btnFontUnderline.ToggleStyle = 1

$btnFontColor = $Form.ToolButton
$btnFontColor.Size = 25,25
$btnFontColor.Location = $btnFontUnderline.Right,$btnFontUnderline.Top
$btnFontColor.ToolTip = "Color"
$btnFontColor.Icon = 17
$btnFontColor.OnClick = "btnFontColor_Click()"
$btnFontColor.ToggleStyle = 1

$btnAlignLeft = $Form.ToolButton
$btnAlignLeft.Size = 25,25
$btnAlignLeft.Location = $btnFontColor.Right+10,$btnFontColor.Top
$btnAlignLeft.ToolTip = "Align Left"
$btnAlignLeft.Icon = 23
$btnAlignLeft.OnClick = "btnAlignLeft_Click()"
$btnAlignLeft.ToggleStyle = 1

$btnAlignCenter = $Form.ToolButton
$btnAlignCenter.Size = 25,25
$btnAlignCenter.Location = $btnAlignLeft.Right,$btnAlignLeft.Top
$btnAlignCenter.ToolTip = "Center"
$btnAlignCenter.Icon = 24
$btnAlignCenter.OnClick = "btnAlignCenter_Click()"
$btnAlignCenter.ToggleStyle = 1

$btnAlignRight = $Form.ToolButton
$btnAlignRight.Size = 25,25
$btnAlignRight.Location = $btnAlignCenter.Right,$btnAlignCenter.Top
$btnAlignRight.ToolTip = "Align Right"
$btnAlignRight.Icon = 25
$btnAlignRight.OnClick = "btnAlignRight_Click()"
$btnAlignRight.ToggleStyle = 1

;
; Create the textbox view ...
;

$TextBox = $Form.TextBox
$TextBox.Top = $cmbFontName.Bottom + 6
$TextBox.Left = 5
$TextBox.Right = $Form.ClientWidth - 5
$TextBox.Bottom = $Form.ClientHeight - 5
$TextBox.ScrollBars = 3
$TextBox.MultiLine = True
$TextBox.AcceptsTab = True
$TextBox.WordWrap = 1
$TextBox.BackColor = White;ToolTip

;
; Setup the application ...
;

$cmbFontName.ListIndex = 1
$TextBox.FontName = $cmbFontName.Value
$TextBox.FontSize = $cmbFontSize.Value
$TextBox.Text = ""

;
; Run the application ...
;

$Form.Center
$Form.Show
$TextBox.SetFocus

While $Form.Visible
 $=Execute($Form.DoEvents)
Loop

Exit 1

;====================
Function btnNew_Click

 $TextBox.SetFocus
 $TextBox.Text = ""

EndFunction

;=====================
Function btnOpen_Click

 $FileName = $Form.FileOpenDialog("Open", ".\", "", "", 0)

 If $FileName

  If Open(1,$FileName) = 0

   $Form.MousePointer = 11
   $Form.Enabled = 0

   $Line = ReadLine(1)

   While @ERROR = 0

    $Line = $Line + @CRLF + ReadLine(1)

   Loop

   If $Line

    $TextBox.SetFocus

    $TextBox.BeginUpdate
    $TextBox.Text = $Line
    $TextBox.EndUpdate

    $Form.Text = SubStr($FileName,InStrRev($FileName,"\")+1) + " - " + $APPLICATION

   EndIf

   $= Close(1)

   $Form.MousePointer = 0
   $Form.Enabled = 1
   $TextBox.SelStart = 0

  EndIf

 EndIf

EndFunction

;=====================
Function btnFind_Click
EndFunction

;=====================
Function btnSave_Click
EndFunction

;=====================
Function btnCut_Click

 $TextBox.SetFocus
 $TextBox.Cut

EndFunction

;=====================
Function btnCopy_Click

 $TextBox.SetFocus
 $TextBox.Copy

EndFunction

;=====================
Function btnPaste_Click

 $TextBox.SetFocus
 $TextBox.Paste

EndFunction

;=====================
Function btnUndo_Click

 $TextBox.SetFocus
 $TextBox.Undo

EndFunction

;=====================
Function btnHelp_Click
EndFunction

Function cmbFontName_Click
;=========================

 $TextBox.SetFocus
 $TextBox.FontName = $cmbFontName.Text

EndFunction

Function cmbFontSize_Click
;=========================

 $TextBox.SetFocus
 $TextBox.FontSize = $cmbFontSize.Text

EndFunction

Function btnFontBold_Click
;=========================

 $TextBox.SetFocus
 $TextBox.FontBold = Not $TextBox.FontBold

EndFunction

Function btnFontItalic_Click
;===========================

 $TextBox.SetFocus
 $TextBox.FontItalic = Not $TextBox.FontItalic

EndFunction

Function btnFontUnderline_Click
;==============================

 $TextBox.SetFocus
 $TextBox.FontUnderline = Not $TextBox.FontUnderline

EndFunction

Function btnFontColor_Click
;==========================

 $TextBox.SetFocus

EndFunction

Function btnAlignLeft_Click
;==========================

 $TextBox.SetFocus
 $TextBox.Alignment = 0
 $btnAlignCenter.Value = 0
 $btnAlignRight.Value = 0

EndFunction

Function btnAlignCenter_Click
;============================

 $TextBox.SetFocus
 $TextBox.Alignment = 2
 $btnAlignLeft.Value = 0
 $btnAlignRight.Value = 0

EndFunction

Function btnAlignRight_Click
;===========================

 $TextBox.SetFocus
 $TextBox.Alignment = 1
 $btnAlignCenter.Value = 0
 $btnAlignLeft.Value = 0

EndFunction