Latest win32maxgui beta

Import axe.win32maxgui

SuperStrict

Framework Axe.Win32MaxGUI
'Framework Brl.Win32MaxGUI
Import BRL.EventQueue
Import BRL.Random

Global wndMain:TGadget = CreateWindow("Test Window",100,100,200,400,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE|WINDOW_CLIENTCOORDS|WINDOW_STATUS)
	Global gadTreeView:TGadget = CreateTreeView(0,0,200,370,wndMain)
	
	SetGadgetLayout(gadTreeView,1,1,1,1)
	
		Global gadTreeNode:TGadget[5,5,5]
		
		Local parent:TGAdget = TreeViewRoot(gadTreeView), bparent:TGadget, cparent:TGadget, a:Int, b:Int, c:Int
		
		For a:Int = 0 To 4
		
			gadTreeNode[a,0,0] = AddTreeViewNode("Node " + a,parent)
			bparent = gadTreeNode[a,0,0]
			
			For b:Int = 0 To 4
			
				gadTreeNode[a,b,0] = AddTreeViewNode("Node " + b,bparent)
				cparent = gadTreeNode[a,b,0]				
				
				For c:Int = 0 To 4
				
					gadTreeNode[a,b,c] = AddTreeViewNode("Node " + c,cparent)
				
				Next
			
			Next
			
			
		Next
		
	Global gadButton:TGadget = CreateButton("Select Random Node",0,375,200,25,wndMain)
	
	SetGadgetLayout(gadButton,1,1,0,1)
		
Repeat

	Select WaitEvent()
	
		
	
		Case EVENT_WINDOWCLOSE;End

		Case EVENT_GADGETACTION
		
			Select EventSource()
			
				Case gadButton;SelectTreeViewNode(gadTreeNode[Rand(0,4),Rand(0,4),Rand(0,4)])
				
			EndSelect		
			
			
	EndSelect
	
	SetStatusText(wndMain,CurrentEvent.ToString$())
	DebugLog CurrentEvent.ToString$()

Forever

Strict

Import axe.win32maxgui

Local window:TGadget
Local listbox:TGadget

window=CreateWindow("My Window",30,20,400,400)

Const ETIP$="Great for lovers of rain, mushy peas and stomping beats.~r~nNew line..."

listbox=CreateListBox(4,4,200,200,window)

Local Names:String[] = ["Hans", "Meiser", "Berta", "Felix"]

For Local Str:String = EachIn Names
	AddGadgetItem(Listbox, StripDir(Str), 0, -1, Str, Str)
Next 


While WaitEvent()
	Print CurrentEvent.ToString()
	If EventSource()=listbox
		Print "SelectedGadgetItem()="+SelectedGadgetItem(listbox)
		If EventData()<>SelectedGadgetItem(listbox) Print "error with skidracer"
	EndIf
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend

Function LogEvent()
	Local l$=currentevent.ToString()
	Local g:TGadget=TGadget(currentevent.source)
	If g l$=l+" from "+g.GetText()+" with "+g.items.length+" items"
	DebugLog l
End Function

Function LogEvent()
	Local l$=currentevent.ToString()
	Local g:TWindowsGadget=TWindowsGadget(currentevent.source)
	If g l$=l+" from "+g.GetText()+" type "+g._class
	DebugLog l
End Function

' createtextarea.bmx

Strict 

Local window:TGadget
Local textarea:TGadget

window=CreateWindow("My Window",130,20,200,200,,15|WINDOW_ACCEPTFILES)

textarea=CreateTextArea(0,0,ClientWidth(window),ClientHeight(window)/2,window)
SetGadgetLayout textarea,1,1,1,1
SetGadgetText textarea,"a textarea gadget~none line~nandanother"
ActivateGadget textarea

SelectTextAreaText textarea,1,1,TEXTAREA_LINES

Print TextAreaCursor(textarea,TEXTAREA_LINES) 
Print TextAreaSelLen(textarea,TEXTAREA_LINES) 

While WaitEvent()
	Print CurrentEvent.ToString()+" "+EventSourceHandle()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_APPTERMINATE
			End
	End Select
Wend

Strict 
Import axe.win32maxgui
Local window:TGadget
Local button:TGadget
Global Listbox:TGadget

Local combobox:TGadget
Local dfa_mode:Int = 0

Const MAXKIDSFOLGEN=29
Const MAXFOLGEN=130

window=CreateWindow("My Window",30,20,200,200)
button=CreateButton("Change Listbox",4,100,100,24,window,BUTTON_OK)

Listbox=CreateListBox(4,4,120,80,window)
Create_Listbox(dfa_mode)


While WaitEvent()
	Select EventID()
		Case EVENT_GADGETACTION
			Print "eventdata="+EventData()
		Case EVENT_WINDOWCLOSE
			End
	End Select

	Select EventSource() 		 
		Case Button 
          dfa_mode=Not dfa_mode
          Create_Listbox(dfa_mode)
	End Select
Wend


Function Create_Listbox(cfg_dfamode:Int)
' Create a fresh Listbox according to dfamode

ClearGadgetItems Listbox ' clean all mess up

Select cfg_dfamode
Case 0
'   SetGadgetIconStrip(ListBox, IconStripDDF)
   For Local i:Int=0 To MAXFOLGEN-1
     AddGadgetItem ListBox, "MODE 1 - Item "+i, GADGETITEM_NORMAL, 0, "MODE1 Helptext "+i
   Next 

Case 1
'   SetGadgetIconStrip(ListBox, IconStripDDFKIDS)
   For Local j:Int=0 To MAXKIDSFOLGEN-1
     AddGadgetItem ListBox, "MODE 2 - Item "+j, GADGETITEM_NORMAL, 0, "MODE2 Helptext "+j
   Next 
End Select 

End Function

' createhtmlview.bmx

Strict

Import axe.win32maxgui

Local window:TGadget
Local htmlview:TGadget

window=CreateWindow("My Window",30,20,600,440,,15|WINDOW_ACCEPTFILES)

htmlview=CreateHTMLView(0,0,ClientWidth(window),ClientHeight(window),window,HTMLVIEW_NOCONTEXTMENU|HTMLVIEW_NONAVIGATE)
SetGadgetLayout htmlview,1,1,1,1 

HtmlViewGo htmlview,"www.blitzmax.com"

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

	Method SetStyle(r,g,b,flags,pos,length,units)
		Local iifont:ITextFont
		Local iirange:ITextRange
		Local res
		If units=TEXTAREA_LINES
			Local n=pos
			pos=CharAt(pos)
			If length>=0 length=CharAt(n+length)-pos
		EndIf			
		If length<0 length=charcount()-pos	
		busy=True		
		res=idoc.Range(pos,pos+length,iirange)
		res=iirange.GetFont(iifont)
		res=iifont.SetForeColor(((b Shl 16)|(g Shl 8)|r))
		
		'// Seb was here
		
		If (flags&TEXTFORMAT_BOLD) Then res=iifont.SetBold(TOMTRUE) Else res=iifont.SetBold(TOMFALSE)
		If (flags&TEXTFORMAT_ITALIC) Then res=iifont.SetItalic(TOMTRUE) Else res=iifont.SetItalic(TOMFALSE)
		If (flags&TEXTFORMAT_UNDERLINE) Then res=iifont.SetUnderline(TOMTRUE) Else res=iifont.SetUnderline(TOMFALSE)
		If (flags&TEXTFORMAT_STRIKETHROUGH) Then res=iifont.SetStrikeThrough(TOMTRUE) Else res=iifont.SetStrikeThrough(TOMFALSE)
		
		'//
		
		iifont.Release_
		iirange.Release_
		busy=False
	End Method