PureBasic Forums - English

Code: Select all

PurifierGranularity(1,1,1,1)
XIncludeFile "ListExModule.pbi"
Global FontName.s = "Arial"
Global FontSize.a = 11

Enumeration
	#Font_Custom
	#Font_Custom_B
	#MainWindow

EndEnumeration

LoadFont(#Font_Custom,  FontName, FontSize)
LoadFont(#Font_Custom_B, FontName, FontSize, #PB_Font_Bold)	

If OpenWindow(#MainWindow, 0, 0, 800, 800, "test", #PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
	ListEx::Gadget(123,10,40,WindowWidth(#MainWindow)-20,WindowHeight(#MainWindow)-170, "col 1", 30, "", ListEx::#GridLines|ListEx::#AutoResize)
	ListEx::AddColumn(123,1,"col 2",200)
	ListEx::AddColumn(123,2,"col 3",200)
	ListEx::DisableReDraw(123, #True) 
	ListEx::SetHeaderAttribute(123, ListEx::#Align, ListEx::#Center)
	ListEx::SetFont(123, FontID(#Font_Custom))
	ListEx::SetFont(123, FontID(#Font_Custom_B), ListEx::#HeaderFont)
	ListEx::SetRowsHeight(123, 22)
	ListEx::SetAutoResizeFlags(123, ListEx::#Height)
	ListEx::SetAutoResizeFlags(123, ListEx::#Width)
	ListEx::SetColorTheme(123, ListColorTheme)
	;ListEx::SetColor(123, ListEx::#AlternateRowColor, $FBF7F5)
	ListEx::DisableReDraw(123, #False) 
	
	For i=1 To 10
		ListEx::AddItem(123, -1, "a" + Str(i) + #LF$ + "b" + Str(i) + #LF$ + "c" + Str(i))
	Next
	
	Repeat
		Select WaitWindowEvent()
			Case #PB_Event_CloseWindow
				Done = #True
		EndSelect
	Until Done
EndIf

Code: Select all

XIncludeFile "ListExModule.pbi"

Enumeration
  #Font_Custom
  #Font_Custom_B
  #MainWindow
  #List
EndEnumeration

LoadFont(#Font_Custom,  "Arial", 11)
LoadFont(#Font_Custom_B, "Arial", 11, #PB_Font_Bold)   

If OpenWindow(#MainWindow, 0, 0, 460, 400, "test", #PB_Window_ScreenCentered|#PB_Window_MinimizeGadget|#PB_Window_SizeGadget) ; #PB_Window_SizeGadget must be used to change the window size. 
   ListEx::Gadget(#List, 10, 40, 440, 350, "col 1", 40, "", ListEx::#GridLines|ListEx::#AutoResize)
   ListEx::AddColumn(#List,1,"col 2",200) ; Columns must be adapted to the list width.
   ListEx::AddColumn(#List,2,"col 3",200) ; Columns must be adapted to the list width.

   ListEx::SetHeaderAttribute(#List, ListEx::#Align, ListEx::#Center)
   ListEx::SetFont(#List, FontID(#Font_Custom))
   ListEx::SetFont(#List, FontID(#Font_Custom_B), ListEx::#HeaderFont)
   
   ListEx::SetRowsHeight(#List, 22)
   ; --- AutoResize ListEx-Gadget ---
   ListEx::SetAutoResizeColumn(#List, 1) ; A column must be defined that is to be adapted.
   ListEx::SetAutoResizeFlags(#List, ListEx::#Height|ListEx::#Width) ; Flags must be linked
   ; --------------------------------
   ListEx::SetColorTheme(#List, ListColorTheme)
   
   For i=1 To 10
      ListEx::AddItem(#List, -1, "a" + Str(i) + #LF$ + "b" + Str(i) + #LF$ + "c" + Str(i))
   Next
   
   Repeat
      Select WaitWindowEvent()
         Case #PB_Event_CloseWindow
            Done = #True
      EndSelect
   Until Done
EndIf