ALA7 dbGrid example


import gui from gui_win32.ala #!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


class MainWindow
	Window window

	DataGrid data_grid



#-----------------------------------------
str getFieldHere(int row, int col)=
	res="row="+toStr(row)+" col="+toStr(col)
	return res

proc rowSelected(int row,list fields)
	printNL("row selected for "+toStr(row))

#----------------------------
MainWindow MainWindow(int x, int y, int w, int h, str title)=
	MainWindow main_window
	
	main_window.window=Window(x,y,w,h,0,0,0,title)

	#first data grid

	control_x=50; control_y=50; control_w=500;headerH=20; dataH=200; style=0
	main_window.data_grid=DataGrid(control_x,control_y, control_w,headerH,dataH,style,main_window.window.id)


	addColumn(main_window.data_grid,"column 1",200)
	addColumn(main_window.data_grid,"column 2",200)
	addColumn(main_window.data_grid,"column 3",200)

	virtual getField(main_window.data_grid, int, int)=getFieldHere( int, int)

	virtual rowSelected(main_window.data_grid, int,list)=rowSelected( int,list)


	bind main_window.window, WM_SETFOCUS, whenSetFocus(main_window)

	return main_window


proc whenSetFocus(MainWindow main_window)
	setFocus(main_window.data_grid)

initGui() #!!!!!!!!!!!!!!!!!!

main_window=MainWindow(CW_USEDEFAULT,0,CW_USEDEFAULT,0,"window Ala")

main_window.data_grid.rowCount=20 #!!!!!!!!!!!!


show(main_window.window)

eventLoop()