Version=6.80
NumberOfForms=1
Form1=frmMain
FormWidth=238
FormHeight=268
IconFile=
NumberOfDesktopIncludes=0
NumberOfDeviceIncludes=0
NumberOfObjects=0
NumberOfModules=0
Sub designer
addform(frmMain,"Main","",220,220,220)@
addarraylist(frmmain,ArrayList3,160,240,70,25)@
addarraylist(frmmain,ArrayList2,85,240,70,25)@
addarraylist(frmmain,ArrayList1,10,240,70,25)@
addbutton(frmmain,btnDelete3,160,100,70,23,"Delete",212,208,200,0,0,0,True,True,9)@
addbutton(frmmain,btnDelete2,85,100,70,23,"Delete",212,208,200,0,0,0,True,True,9)@
addbutton(frmmain,btnDelete1,10,100,70,23,"Delete",212,208,200,0,0,0,True,True,9)@
addlistbox(frmmain,ListBox3,160,140,70,105,"",255,255,255,0,0,0,True,True,0,9)@
addlistbox(frmmain,ListBox2,85,140,70,105,"",255,255,255,0,0,0,True,True,0,9)@
addcombo(frmmain,ComboBox3,160,70,70,22,"",255,255,255,0,0,0,True,True,0,9)@
addcombo(frmmain,ComboBox2,85,70,70,22,"",255,255,255,0,0,0,True,True,0,9)@
addcombo(frmmain,ComboBox1,10,70,70,22,"",255,255,255,0,0,0,True,True,0,9)@
addlistbox(frmmain,ListBox1,10,140,70,105,"",255,255,255,0,0,0,True,True,0,9)@
addbutton(frmmain,btnAdd,85,35,70,23,"Add",212,208,200,0,0,0,True,True,9)@
addtextbox(frmmain,TextBox3,160,5,70,22,"",255,255,255,0,0,0,True,True,False,9)@
addtextbox(frmmain,TextBox2,85,5,70,22,"",255,255,255,0,0,0,True,True,False,9)@
addtextbox(frmmain,TextBox1,10,5,70,22,"",255,255,255,0,0,0,True,True,False,9)@
End Sub
@EndOfDesignText@
Sub Globals
	'Declare the global variables here.
	InitFileName=AppPath&"\Init.txt"
End Sub

Sub App_Start
	If FileExist(InitFileName) Then
		LoadInit
	End If
	frmMain.Show
End Sub

Sub btnAdd_Click
	Dim i
	
	If TextBox1.Text<>"" Then
		ArrayList1.Add(TextBox1.Text)
		ArrayList1.Sort(cCaseUnsensitive)
		ComboBox1.Clear
		ListBox1.Clear
		For i=0 To ArrayList1.Count-1
			ComboBox1.Add(ArrayList1.Item(i))
			ListBox1.Add(ArrayList1.Item(i))
		Next
		TextBox1.Text=""
	End If

	If TextBox2.Text<>"" Then
		ArrayList2.Add(TextBox2.Text)
		ArrayList2.Sort(cCaseUnsensitive)
		ComboBox2.Clear
		ListBox2.Clear
		For i=0 To ArrayList2.Count-1
			ComboBox2.Add(ArrayList2.Item(i))
			ListBox2.Add(ArrayList2.Item(i))
		Next
		TextBox2.Text=""
	End If
	
	If TextBox3.Text<>"" Then
		ArrayList3.Add(TextBox3.Text)
		ArrayList3.Sort(cCaseUnsensitive)
		ComboBox3.Clear
		ListBox3.Clear
		For i=0 To ArrayList3.Count-1
			ComboBox3.Add(ArrayList3.Item(i))
			ListBox3.Add(ArrayList3.Item(i))
		Next
		TextBox3.Text=""
	End If
End Sub

Sub LoadInit
	Dim i,n,t
	
	ComboBox1.Clear
	ComboBox2.Clear
	ComboBox3.Clear
	
	ListBox1.Clear
	ListBox2.Clear
	ListBox3.Clear

	ArrayList1.Clear
	ArrayList2.Clear
	ArrayList3.Clear

	FileOpen(c1,InitFileName,cRead)
	
	n=FileRead(c1)
	For i=0 To n
		t=FileRead(c1)
		ComboBox1.Add(t)
		ListBox1.Add(t)
		ArrayList1.Add(t)
	Next
	
	n=FileRead(c1)
	For i=0 To n
		t=FileRead(c1)
		ComboBox2.Add(t)
		ListBox2.Add(t)
		ArrayList2.Add(t)
	Next
	
	n=FileRead(c1)
	For i=0 To n
		t=FileRead(c1)
		ComboBox3.Add(t)
		ListBox3.Add(t)
		ArrayList3.Add(t)
	Next
	
	FileClose(c1)
End Sub

Sub SaveInit
	Dim i
	
	FileOpen(c1,InitFileName,cWrite)
	
	FileWrite(c1,ComboBox1.Count-1)
	For i=0 To ComboBox1.Count-1
		FileWrite(c1,ComboBox1.Item(i))
	Next
	
	FileWrite(c1,ComboBox2.Count-1)
	For i=0 To ComboBox2.Count-1
		FileWrite(c1,ComboBox2.Item(i))
	Next

	FileWrite(c1,ComboBox3.Count-1)
	For i=0 To ComboBox3.Count-1
		FileWrite(c1,ComboBox3.Item(i))
	Next
	
	FileClose(c1)
End Sub

Sub frmMain_Close
	SaveInit
End Sub

Sub btnDelete1_Click
	Dim n
	
	n=ComboBox1.SelectedIndex
	ArrayList1.RemoveAt(n)
	ComboBox1.RemoveAt(n)
	ListBox1.RemoveAt(n)
End Sub

Sub btnDelete2_Click
	Dim n
	
	n=ComboBox2.SelectedIndex
	ArrayList2.RemoveAt(n)
	ComboBox2.RemoveAt(n)
	ListBox2.RemoveAt(n)
End Sub

Sub btnDelete3_Click
	Dim n
	
	n=ComboBox3.SelectedIndex
	ArrayList3.RemoveAt(n)
	ComboBox3.RemoveAt(n)
	ListBox3.RemoveAt(n)
End Sub

Sub ComboBox1_SelectionChanged (Index, Value)
	ListBox1.SelectedIndex=ComboBox1.SelectedIndex
End Sub

Sub ComboBox2_SelectionChanged (Index, Value)
	ListBox2.SelectedIndex=ComboBox2.SelectedIndex
End Sub

Sub ComboBox3_SelectionChanged (Index, Value)
	ListBox3.SelectedIndex=ComboBox3.SelectedIndex
End Sub

Sub ListBox1_SelectionChanged (Index, Value)
	ComboBox1.SelectedIndex=ListBox1.SelectedIndex
End Sub

Sub ListBox2_SelectionChanged (Index, Value)
	ComboBox2.SelectedIndex=ListBox2.SelectedIndex
End Sub

Sub ListBox3_SelectionChanged (Index, Value)
	ComboBox3.SelectedIndex=ListBox3.SelectedIndex
End Sub