Version=6.80
NumberOfForms=1
Form1=Form1
FormWidth=238
FormHeight=268
IconFile=
NumberOfDesktopIncludes=0
NumberOfDeviceIncludes=0
NumberOfObjects=0
NumberOfModules=0
Sub designer
addform(Form1,"Form1","",220,220,220)@
addbutton(form1,btnDelete,75,145,70,23,"Delete",212,208,200,0,0,0,True,True,9)@
addlabel(form1,lb,5,5,230,45,"",220,220,220,0,0,0,True,True,12,False)@
addtable(form1,Table1,205,145,20,25,"",245,245,245,0,0,0,True,False,9)@
addlabel(form1,Label1,65,5,125,25,"",220,220,220,0,0,0,True,True,11,False)@
addbutton(form1,btnAdd,75,110,70,23,"Add",212,208,200,0,0,0,True,True,9)@
addtextbox(form1,a,30,65,75,22,"",255,255,255,0,0,0,True,True,False,9)@
addcombo(form1,cb,165,65,60,22,"",255,255,255,0,0,0,True,True,4,"a","c","b","d",9)@
End Sub
@EndOfDesignText@
Sub Globals
	'Declare the global variables here.

End Sub

Sub App_Start
	Dim file
	
	Form1.Show
	a.Focus
	Table1.AddCol(cString,"sort",1)
	file=AppPath&"\Init.txt"
	If FileExist(file) Then
		Table1.LoadCSV(file,",",False,False)
  	Table1.TableSort ("sort ASC")
		cb.Clear
		For j= 0 To Table1.RowCount-1
  		cb.Add(Table1.Cell("sort",j))
		Next
	Else
		For i=0 To cb.Count-1
			Table1.AddRow(cb.Item(i))
			Table1.TableSort ("sort ASC")
		Next
	End If
	cb.SelectedIndex=0
End Sub

Sub btnAdd_Click
	If a.text<>"" Then
		Table1.AddRow(a.text)
		Table1.TableSort ("sort ASC")
		a.text=""
		sort
	End If
End Sub

Sub sort
	cb.Clear
	For j= 0 To Table1.RowCount-1
  	cb.Add(Table1.Cell("sort",j))
	Next
End Sub

Sub Form1_Close
	Table1.SaveCSV(AppPath&"\Init.txt",",",False)
End Sub

Sub btnDelete_Click
	Dim answ,txt
	
	txt="Do you really want"&CRLF&"to delete item : "&cb.Item(cb.SelectedIndex)
	answ=Msgbox(txt,"A T T E N T I O N",cMsgboxYesNo,cMsgboxQuestion)
	If answ=cNo Then
		Return
	End If
	
	If cb.Count = 1 Then 
		Msgbox("Can't delete last Item.")
	Else If cb.SelectedIndex<0 Then
		Msgbox("No item selected.")
	Else 
		Table1.RemoveRow(cb.SelectedIndex)
		cb.RemoveAt(cb.SelectedIndex)
	End If
End Sub