Grid

JoshK

(Posted 2009) [#1]

What's the best way to achieve something like this?:

Strict 

Import MaxGui.win32maxguiex

Extern "win32" 
   Function SendMessage:Int(hWnd:Int,MSG:Int,wParam:Int,lParam:Int) = "SendMessageA@16" 
EndExtern


Local window:TGadget

window=CreateWindow("My Window",40,40,320,240)

Local h:Int=22
Local group:TGadget=window
Local y:Int
Local w:Int=100
Local hwnd:Int
Local box:TGadget[20,2]
Local style:Int

Type TGridGadget Extends TGadget
	
	Field panel:TGadget
	Field keygadget:TGadget[]=New TGadget[0]
	Field valuegadget:TGadget[]=New TGadget[0]
	Field selecteditem:Int
	
	Field gadget_combobox:TGadget
	
	Method AddItem()
		Local unselectedcolor:Int[]=[220,220,220]
		Const h=24
		Const w=100
		keygadget=keygadget[..keygadget.length+1]
		valuegadget=valuegadget[..valuegadget.length+1]
		keygadget[keygadget.length-1]=CreateTextField(0,(valuegadget.length-1)*h,w,h,panel)
		SetGadgetLayout keygadget[keygadget.length-1],1,0,1,0
		valuegadget[valuegadget.length-1]=CreateTextField(w,(valuegadget.length-1)*h,panel.ClientWidth()-w,h,panel)
		SetGadgetLayout valuegadget[valuegadget.length-1],1,1,1,0	
		SetGadgetColor(keygadget[keygadget.length-1],unselectedcolor[0],unselectedcolor[1],unselectedcolor[2])
		SetGadgetColor(valuegadget[valuegadget.length-1],unselectedcolor[0],unselectedcolor[1],unselectedcolor[2])
	EndMethod

	Method SelectItem_(n:Int)
		Local selectedcolor:Int[]=[255,255,255]
		SetGadgetColor(keygadget[n],selectedcolor[0],selectedcolor[1],selectedcolor[2])
		SetGadgetColor(valuegadget[n],selectedcolor[0],selectedcolor[1],selectedcolor[2])
		SetGadgetShape gadget_combobox,GadgetX(valuegadget[n]),GadgetY(valuegadget[n]),GadgetWidth(valuegadget[n]),GadgetHeight(valuegadget[n])
		ShowGadget gadget_combobox
	EndMethod
	
	Function Create:TGridGadget(x,y,w,h,group:TGadget)
		Local gadget:TGridGadget=New TGridGadget
		gadget.panel=CreatePanel(x,y,w,h,group)
		
		gadget.gadget_combobox=CreateComboBox(0,0,1,1,gadget.panel)
		SetGadgetLayout gadget.gadget_combobox,1,1,1,0
		HideGadget gadget.gadget_combobox
		
		Return gadget
	EndFunction
	
EndType

Local grid:TGridGadget=TGridGadget.Create(0,0,window.ClientWidth(),window.ClientHeight(),window)
grid.additem()
grid.additem()
grid.additem()
grid.additem()
SetGadgetLayout grid.panel,1,1,1,1
grid.SelectItem_(2)

Rem
For y=0 To 10
	box[y,0]=CreateTextArea(0,y*(h),w,h,group)
	SetGadgetLayout box[y,0],1,0,1,0
	box[y,1]=CreateTextArea(w,y*(h),group.ClientWidth()-w,h,group)
	SetGadgetLayout box[y,1],1,1,1,0
	
	SetGadgetColor box[y,1],255,255,0,1
	
	hwnd=QueryGadget(box[y,0],QUERY_HWND)
	style=getwindowlonga(hwnd,GWL_EXSTYLE)
	setwindowlonga(hwnd,GWL_EXSTYLE,style-WS_EX_CLIENTEDGE)
	hwnd=QueryGadget(box[y,1],QUERY_HWND)
	style=getwindowlonga(hwnd,GWL_EXSTYLE)
	setwindowlonga(hwnd,GWL_EXSTYLE,style-WS_EX_CLIENTEDGE)

Next
EndRem

While True
	WaitEvent 
	Print CurrentEvent.ToString()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend

TaskMaster

(Posted 2009) [#2]

wxMax?!?!

ziggy

(Posted 2009) [#3]

The wxwidgets module. It has a very similar property-grid control. I think Brucey is updating the module to a new version, but I would advice you to take a look to it. Maybe a more experiences wxMax user can give more information about this.

plash

(Posted 2009) [#4]

Definitely wxMax.