PureBoard

Code: Alles auswählen

Procedure WindowCallback(hWnd,msg,wParam,lParam)
  Protected old.i
  Protected *item.DRAWITEMSTRUCT
  Protected point.POINT , oldpoint.POINT

  old = GetProp_(hWnd,"PROP_OLDPROC")
  Select msg
    Case #WM_DRAWITEM
     
      *item = lParam
     
      DC = *item\hdc
      w =  *item\rcItem\right   - *item\rcItem\left
      h =  *item\rcItem\bottom  - *item\rcItem\top
     
      MapWindowPoints_(GetParent_(hWnd),hWnd,@point,1)
      BackBrush = GetClassLong_(hWnd, #GCL_HBRBACKGROUND)
      SetBrushOrgEx_(DC,point\x,point\y,@oldpoint)
      FillRect_(DC,*item\rcItem,BackBrush)
      SetBrushOrgEx_(DC,oldpoint\x,oldpoint\y,0)
     
      color = GetWindowLong_(GadgetID(*item\CtlID),#GWL_USERDATA) 
     
      If *item\itemState & #ODS_SELECTED
        hbrush = CreateSolidBrush_(color)
        *item\rcItem\bottom + 2
      Else
        hbrush = CreateSolidBrush_(color)
      EndIf
     
      SelectObject_(DC,hbrush)
     
      Ellipse_(DC,0,0,w,h)
      
      DeleteObject_(hbrush)
      SetBkMode_(DC,#TRANSPARENT)
      DrawText_(DC, GetGadgetText(*item\CtlID), Len(GetGadgetText(*item\CtlID)), *item\rcItem, #DT_CENTER | #DT_SINGLELINE | #DT_VCENTER | #DT_NOCLIP)
     
      ProcedureReturn #True
    Case #WM_DESTROY
      RemoveProp_(hWnd,"PROP_OLDPROC")
  EndSelect


  ProcedureReturn CallWindowProc_(old,hWnd,msg,wParam,lParam)
EndProcedure

Procedure RoundButton(id,x,y,cx,cy,text.s,color,flags=0)
  Protected temp.i
  Static old.i

  temp = ButtonGadget(id,x,y,cx,cy,text,flags|#BS_OWNERDRAW)

  If id = #PB_Any
    hWnd = GadgetID(temp)
  Else
    hWnd = temp
  EndIf

  If old = 0
    old = SetWindowLong_(GetParent_(hWnd),#GWL_WNDPROC,@WindowCallback()) 
    SetProp_(GetParent_(hWnd),"PROP_OLDPROC",old)
  EndIf

  SetWindowLong_(hWnd,#GWL_USERDATA,color)

  ProcedureReturn temp

EndProcedure

OpenWindow(#PB_Any,0,0,200,200,"",$C80001)

rb0 = RoundButton(#PB_Any,10,10,50,50,"blub",$FF0000) : DisableGadget(rb0,1)
rb1 = RoundButton(#PB_Any,60,60,50,50,"blub",$0080FF)
rb2 = RoundButton(#PB_Any,10,90,50,50,"blub",$C080FF)

Repeat
  e = WaitWindowEvent()

  If e = #PB_Event_Gadget
   
    Select EventGadget()
      Case rb0  : Debug "Press rb0"
      Case rb1  : Debug "Press rb1"
      Case rb2  : Debug "Press rb2"
    EndSelect
  ElseIf e = #PB_Event_CloseWindow
    Break
  EndIf       

ForEver

End