PureBoard

Code: Alles auswählen

; English forum: http://www.purebasic.fr/english/viewtopic.php?t=8674&highlight=
; Author: Fred
; Date: 09. December 2003
; OS: Windows
; Demo: No


; ComboBox OwnerDraw in PureBasic 
; 

Enumeration 
  #Window_0 
EndEnumeration 

Enumeration 
  #Gadget_0 
EndEnumeration 

LoadFont(0,"Arial", 23)

Procedure Open_Window_0() 
  If OpenWindow(#Window_0, 0, 0, 400, 200, "ComboBox OwnerDraw", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_TitleBar ) 
    If CreateGadgetList(WindowID(#Window_0)) 
      ComboBoxGadget(#Gadget_0, 60, 40, 330, 40,  #CBS_OWNERDRAWFIXED) 
      
      SendMessage_(GadgetID(ComboBoxGadget), #CB_SETITEMHEIGHT, GadgetID(ComboBoxGadget), 40)  ;<= hier wird die Höhe der PullDown-Items festgelegt
		SetGadgetFont(0,FontID(0))  ; Und natürlich nicht vergessen den größeren Font einzustellen
		
	EndIf 
  EndIf 
EndProcedure 

Open_Window_0() 

#DI_NORMAL = $0003 

Procedure WindowCallback(WindowID, Message, wParam, lParam) 
  Result = #PB_ProcessPureBasicEvents 

  Select Message 

    Case #WM_DRAWITEM 
      *DrawItem.DRAWITEMSTRUCT = lParam 
      
      If *DrawItem\CtlType = #ODT_COMBOBOX 

        SetBkMode_(*DrawItem\hDC, #TRANSPARENT) ; Text is rendered transparent 
        
        If *DrawItem\ItemState & #ODS_FOCUS 
          Brush = CreateSolidBrush_($FFEEFF) 
          FillRect_(*DrawItem\hDC, *DrawItem\rcItem, Brush) 
          DeleteObject_(Brush) 
          
          SetTextColor_(*DrawItem\hDC, $FF) 
        Else 
          FillRect_(*DrawItem\hDC, *DrawItem\rcItem, GetStockObject_(#WHITE_BRUSH)) 
        EndIf 

        If *DrawItem\itemID <> -1 
        	Text$ = Space(512) 
        	
          Debug SendMessage_(*DrawItem\hwndItem, #CB_GETLBTEXTLEN, *DrawItem\itemID, 0) ; Hmmm, Länge des Item-Textes ist immer 4 ???
          
          SendMessage_(*DrawItem\hwndItem, #CB_GETLBTEXT, *DrawItem\itemID, @Text$) 
          
          ; nachfolgend müstest Du statt "LoadIcon_(0, #IDI_ASTERISK)" dann Deine ImageID für diese Zeile übergeben.
          DrawIconEx_(*DrawItem\hDC, *DrawItem\rcItem\left+2   , *DrawItem\rcItem\top+1, LoadIcon_(0, #IDI_ASTERISK), 32, 32, 0, 0, #DI_NORMAL)
          
          TextOut_   (*DrawItem\hDC, *DrawItem\rcItem\left+2+40, *DrawItem\rcItem\top+1, Text$, Len(Text$)) ; die "+40" ist der Offest des Textes, um Platz für das Icon zu machen.
        EndIf 
      EndIf 
  
  EndSelect 
  
  ProcedureReturn Result 
EndProcedure 


SetWindowCallback(@WindowCallback()) 

  AddGadgetItem(#Gadget_0, -1, "Hmmmm ...") 
  AddGadgetItem(#Gadget_0, -1, "Der Text der") 
  AddGadgetItem(#Gadget_0, -1, "Items wird") 
  AddGadgetItem(#Gadget_0, -1, "nicht korrekt") 
  AddGadgetItem(#Gadget_0, -1, "angezeigt.") 
  
Repeat 
Until WaitWindowEvent() = #PB_Event_CloseWindow 

End 

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -
; EnableXP

Code: Alles auswählen

Enumeration 
  #Window
  #Container
  #Scrollbar
EndEnumeration

Procedure myCallback(hWnd, uMsg, wParam, lParam) 
  
  If uMsg = #WM_VSCROLL And lParam = GadgetID(#ScrollBar)
    
    ResizeGadget(#Container, #PB_Ignore, -GetGadgetState(#Scrollbar), #PB_Ignore, #PB_Ignore)
    
  EndIf
  
  ProcedureReturn #PB_ProcessPureBasicEvents 
  
EndProcedure 

OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 320, 300, "")
ContainerGadget(#Container, 0, 0, 265, 5000)

If LoadFont(1, "Arial", 30)
  SetGadgetFont(#PB_Default, FontID(1))
EndIf

NewList myItem()

For Counter = 0 To 100
  
  AddElement(myItem())
  
  myItem()=TextGadget(#PB_Any, 0, newY, 265, 50, "Huhu" + Str(Counter), #PB_Text_Border | #SS_NOTIFY | #SS_CENTERIMAGE)
  
  SetGadgetColor(myItem(), #PB_Gadget_BackColor, RGB(Random(255),Random(255),Random(255)))
  
  newY + 50
  
Next

CloseGadgetList()

ScrollBarGadget(#Scrollbar, 265, 0, 55, 300, 0, 1000, 100, #PB_ScrollBar_Vertical)

SetWindowCallback(@myCallback(), #Window)

Repeat
  
  WWE = WaitWindowEvent()
  
  Select WWE
      
    Case #PB_Event_CloseWindow
      
      Quit = #True
      
    Case #PB_Event_Gadget
      
      ForEach myItem()
        If EventGadget() = myItem()
          Debug myItem()
          Break
        EndIf
      Next
      
  EndSelect
  
Until Quit = #True