version
6.50
0
Form1
238
268

1
ListviewDesktop.dll
1
ListViewDevice.dll
1
ListView1:Listview
0
Sub designer
addform(Form1,"Form1","",220,220,220)@
addbutton(form1,btnClear,80,37,55,23,"Clear",212,208,200,0,0,0,True,True,9)@
addradiobtn(form1,rbtFalseFalse,145,70,95,20,"False False",220,220,220,0,0,0,True,True,False,9)@
addradiobtn(form1,rbtFalseTrue,145,50,95,20,"False True",220,220,220,0,0,0,True,True,False,9)@
addradiobtn(form1,rbtTrueFalse,145,30,95,20,"True False",220,220,220,0,0,0,True,True,False,9)@
addradiobtn(form1,rbtTrueTrue,145,10,90,20,"True True",220,220,220,0,0,0,True,True,True,9)@
addbutton(form1,btnLoad3,5,65,65,23,"Load 3",212,208,200,0,0,0,True,True,9)@
addbutton(form1,btnSave,80,10,55,23,"Save",212,208,200,0,0,0,True,True,9)@
addbutton(form1,btnLoad2,5,37,65,23,"Load 2",212,208,200,0,0,0,True,True,9)@
addbutton(form1,btnLoad1,5,10,65,23,"Load 1",212,208,200,0,0,0,True,True,9)@
addtable(form1,Table1,5,95,230,85,"",245,245,245,0,0,0,True,True,9)@
End Sub
@EndOfDesignText@
Sub Globals
	'Declare the global variables here.
	HeaderExist=True
	CreateColumns=True
End Sub

Sub App_Start
	AddEvent("rbtTrueTrue",Click,"rbt_Click")
	AddEvent("rbtFalseTrue",Click,"rbt_Click")
	AddEvent("rbtTrueFalse",Click,"rbt_Click")
	AddEvent("rbtFalseFalse",Click,"rbt_Click")
	ListView1.New1("Form1",5,185,230,90)
	Form1.Show
End Sub

Sub btnLoad1_Click
	Table1.LoadCSV("Test1.csv",";",True,True)
	ListView1.LoadCSV(AppPath&"\Test1.csv",";",True,True)
End Sub

Sub btnLoad2_Click
	Table1.LoadCSV("Test2.csv",";",HeaderExist,CreateColumns)
	ListView1.LoadCSV(AppPath&"\Test2.csv",";",HeaderExist,CreateColumns)
'	Table1.LoadCSV("Test2.csv",";",False,False)
'	Table1.LoadCSV("Test2.csv",";",True,True)
End Sub

Sub btnSave_Click
	Table1.SaveCSV("Test3.csv",";",True)
	ListView1.SaveCSV(AppPath&"\Test3.csv",";",True)
End Sub

Sub btnLoad3_Click
	Table1.LoadCSV("Test3.csv",";",True,True)
	ListView1.LoadCSV(AppPath&"\Test3.csv",";",True,True)
End Sub

Sub rbt_Click
	Select Sender
	Case "rbttruetrue"
		HeaderExist=True
		CreateColumns=True
	Case "rbtfalsetrue"
		HeaderExist=False
		CreateColumns=True
	Case "rbttruefalse"
		HeaderExist=True
		CreateColumns=False
	Case "rbtfalsefalse"
		HeaderExist=False
		CreateColumns=False
	End Select
End Sub

Sub btnClear_Click
	Table1.Clear
	ListView1.Clear
End Sub