PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

Give your ButtonGadgets some FLAIR! Code included [WINDOWS]

https://www.purebasic.fr/english/viewtopic.php?t=50594

Page 1 of 2

Give your ButtonGadgets some FLAIR! Code included [WINDOWS]

Posted: Sun Jul 22, 2012 7:14 am
by JustinJack
Are you TIRED of boring buttons in your programs? Me too! Now feel free to make them look very tasty, and behave like they always do!
I was so proud of my little library I had to share it. Granted, my web-developer I work with did it very quickly with has damn CSS, but hey... Now PB apps can be classy too. Let me know if anyone finds it useful!
Here is the code to the include file: "jelly-button.pb"

Code: Select all

; Jelly Button Library by Justin Jack
; Use as you please

; This library will add a nice Jelly-Like coating to your buttons.  They will still act identical to PureBasic buttons.


; User Functions:
;
;
; ** Add_Some_Jelly( gadget_number, jelly_color )....Adds a nice bit of jelly to your button.
;
;   gadget_number = the PB gadget number of your button
;   jelly_color   = the normal-state RGB color of your button.


; ** Spread_Jelly( gadget_number, iNewColor = -1 )...Changes the color of your Jelly.
;
;   gadget_number = the PB gadget number of your button
;   iNewColor     = the new normal-state RGB color of your button.
;
;  Remarks: Spread-Jelly will cause the button to re-draw the cached "Jelly" images, so it will update size as well
;           but the jBtn_WndProc() catches this anyway through WM_WINDOWPOSCHANGED

; ** Remove_Jelly( gadget_number )...Removes the Jelly and turns it back to a normal button
;
;   gadget_number = the PB gadget number of your button

; ** Get_Jelly_Color( gadget_number )...Gets the current Jelly color of the button
;
;   gadget_number = the PB gadget number of your button


; ** Set_Jelly_Text_Color( gadget_number, iColor )...Changes the text color on the button.

;   gadget_number = the PB gadget number of your button
;   iColor        = the new RGB color of the text on the button
;
;   Remarks:  To change the button FONT, just treat it like any other PB control use SetGadgetFont()


; ** Set_Jelly_Shadow_Color( gadget_number, iColor )

;   gadget_number = the PB gadget number of your button
;   iColor        = the new RGB color of the text on the button


;



Structure JBTN_INFO
  blbdPending.b
  bButtonState.b
  bHiLiteTimerActive.b
  iHiLiteTimer.i
  iClickReleaseTimer.i
  bClickTimerActive.b
  imgRegular.i
  imgHilite.i
  imgPressed.i
  hDcReg.i
  hDcPressed.i
  hDcHiLite.i
  hOldBmpReg.i
  hOldBmpPressed.i
  hOldBmpHiLite.i
  iActiveFont.i
  iFrontColor.i
  iShadowColor.i
  szJellyText.s
EndStructure


Structure JELLY_BUTTON_INFO
  numGadget.i
  hGadget.i
  hParent.i
  iParentBkColor.i
  jelly_color.i
  *lpJBtnInfo.JBTN_INFO
  *lpOldWndProc
  bJustLeft.b
EndStructure

Global NewList jelly_buttons.JELLY_BUTTON_INFO()

Procedure Make_Jelly_Images( iJellyColor.i, bkColor.i, cx, cy, *lpJellyImages.JBTN_INFO )
  jelly_color = iJellyColor
  jelly_color = RGBA(Red(jelly_color), Green(jelly_color), Blue(jelly_color), $FF)
  btn_size.SIZE\cx = cx
  btn_size\cy      = cy
  
  If IsImage(*lpJellyImages\imgHilite)
    FreeImage(*lpJellyImages\imgHilite)
  EndIf
  If IsImage(*lpJellyImages\imgPressed)
    FreeImage(*lpJellyImages\imgPressed)
  EndIf
  If IsImage(*lpJellyImages\imgRegular)
    FreeImage(*lpJellyImages\imgRegular)
  EndIf
  
  *lpJellyImages\imgRegular.i = CreateImage(#PB_Any, btn_size\cx, btn_size\cy, 32)
  *lpJellyImages\imgHilite    = CreateImage(#PB_Any, btn_size\cx, btn_size\cy, 32)
  *lpJellyImages\imgPressed   = CreateImage(#PB_Any, btn_size\cx, btn_size\cy, 32)
  
  For i = 0 To 2
    Select i
      Case 0
        this_image = *lpJellyImages\imgRegular.i
      Case 1
        this_image = *lpJellyImages\imgHilite
      Case 2
        this_image = *lpJellyImages\imgPressed
    EndSelect
    StartDrawing(ImageOutput(this_image))
    Box(0, 0, cx, cy, bkColor)
    DrawingMode(#PB_2DDrawing_AlphaBlend)
    RoundBox(0, 0, btn_size\cx, btn_size\cy, 4, 4, jelly_color)
    If i = 1
      RoundBox(0, 0, btn_size\cx, btn_size\cy, 4, 4, RGBA($FF, $FF, $FF, $50))
    ElseIf i = 2
      RoundBox(0, 0, btn_size\cx, btn_size\cy, 4, 4, RGBA($00, $00, $00, $70))
    EndIf
    DrawingMode(#PB_2DDrawing_Gradient|#PB_2DDrawing_AlphaBlend)
    BackColor(RGBA(0, 0, 0, 130))
    FrontColor(RGBA(0, 0, 0, 00))
    LinearGradient(-10, 0, (btn_size\cx / 3), 0)
    RoundBox(0, 0, btn_size\cx, btn_size\cy, 4, 4)
    FrontColor(RGBA(0, 0, 0, 130))
    BackColor(RGBA(0, 0, 0, 00))
    LinearGradient(btn_size\cx - (btn_size\cx / 3), 0, (btn_size\cx + 10), 0)
    RoundBox(0, 0, btn_size\cx, btn_size\cy, 4, 4)
    If i = 2
      FrontColor(RGBA($FF, $FF, $FF, 150))
      BackColor(RGBA($FF, $FF, $FF, 00))
      LinearGradient(0, btn_size\cy / 3, 0, btn_size\cy)
      RoundBox(0, 0, btn_size\cx, btn_size\cy, 4, 4)
    Else
      FrontColor(RGBA($FF, $FF, $FF, 00))
      BackColor(RGBA($FF, $FF, $FF, 150))
      LinearGradient(0, 0, 0, (btn_size\cy / 3) * 2)
      RoundBox(0, 0, btn_size\cx, btn_size\cy, 4, 4)
    EndIf
    DrawingMode(#PB_2DDrawing_AlphaBlend|#PB_2DDrawing_Outlined)
    RoundBox(0, 0, btn_size\cx, btn_size\cy, 4, 4, RGBA($A0, $A0, $A0, $FF))
    StopDrawing()
  Next
  
  
EndProcedure

Procedure Spread_Jelly( gadget_number, iNewColor = -1 )
  jelly_found = #False
  ForEach jelly_buttons()
    If jelly_buttons()\numGadget = gadget_number
      If iNewColor = -1
        iNewColor = jelly_buttons()\jelly_color
      EndIf
      jelly_buttons()\jelly_color = iNewColor
      Make_Jelly_Images(iNewColor, jelly_buttons()\iParentBkColor, GadgetWidth(gadget_number), GadgetHeight(gadget_number), jelly_buttons()\lpJBtnInfo)
      With jelly_buttons()\lpJBtnInfo
        SelectObject_(\hDcReg, ImageID(\imgRegular))
        SelectObject_(\hDcHiLite, ImageID(\imgHilite))
        SelectObject_(\hDcPressed, ImageID(\imgPressed))
      EndWith
      InvalidateRect_(jelly_buttons()\hGadget, 0, 0)
    EndIf
  Next
EndProcedure




Procedure jBtn_WndProc( hWnd, uMsg, wParam, lParam )
  ForEach jelly_buttons()
    If jelly_buttons()\hGadget = hWnd
      *lpji.JELLY_BUTTON_INFO = @jelly_buttons()
      Break
    EndIf
  Next
  
  Select uMsg
      
      
    Case #WM_SETFONT
      *lpji\lpJBtnInfo\iActiveFont = wParam
      InvalidateRect_(hWnd, 0, 0)
      
    Case #WM_TIMER
      Select wParam
        Case 124
          If GetAsyncKeyState_(#VK_LBUTTON) & $8000 <> $8000
            KillTimer_(hWnd, 124)
            *lpji\lpJBtnInfo\bClickTimerActive = #False
            InvalidateRect_(hWnd, 0, 1)
          EndIf
        Case 123
          GetCursorPos_(@myCursorPos.POINT)
          ScreenToClient_(*lpji\hParent, @myCursorPos)
          okToStop = #False
          If myCursorPos\x <= GadgetX(*lpji\numGadget) Or myCursorPos\x >= GadgetX(*lpji\numGadget) + GadgetWidth(*lpji\numGadget)
            okToStop = #True
          EndIf
          If myCursorPos\y <= GadgetY(*lpji\numGadget) Or myCursorPos\y >= GadgetY(*lpji\numGadget) + GadgetHeight(*lpji\numGadget)
            okToStop = #True
          EndIf
          If okToStop = #True
            KillTimer_(hWnd, 123)
            *lpji\lpJBtnInfo\bHiLiteTimerActive = #False
            InvalidateRect_(hWnd, 0, 1)
          EndIf
      EndSelect
      
    Case #WM_WINDOWPOSCHANGED
      Spread_Jelly(*lpji\numGadget)
      
    Case #WM_MOUSEMOVE
      GetCursorPos_(@myCursorPos.POINT)
      ScreenToClient_(*lpji\hParent, @myCursorPos)
      in_jelly_rect = #True
      If myCursorPos\x < GadgetX(*lpji\numGadget) Or myCursorPos\x > GadgetX(*lpji\numGadget) + GadgetWidth(*lpji\numGadget)
        in_jelly_rect = #False
      EndIf
      If myCursorPos\y < GadgetY(*lpji\numGadget) Or myCursorPos\y > GadgetY(*lpji\numGadget) + GadgetHeight(*lpji\numGadget)
        in_jelly_rect = #False
      EndIf
      
      If in_jelly_rect = #True
        If Not(*lpji\lpJBtnInfo\bHiLiteTimerActive)
          *lpji\lpJBtnInfo\bHiLiteTimerActive = #True
          SetTimer_(hWnd, 123, 50, #Null)
          InvalidateRect_(hWnd, 0, 1)
        EndIf
        *lpji\bJustLeft = #True
      Else
        If *lpji\bJustLeft = #True
          *lpji\bJustLeft = #False
          InvalidateRect_(hWnd, 0, 0)
        EndIf
      EndIf
      
    Case #WM_SETTEXT
      *lpji\lpJBtnInfo\szJellyText = PeekS(lParam)
      InvalidateRect_(hWnd, 0, 0)
      ProcedureReturn 1
      
      
    Case #WM_LBUTTONDOWN
      If Not(*lpji\lpJBtnInfo\bClickTimerActive)
        *lpji\lpJBtnInfo\bClickTimerActive = #True
        SetTimer_(hWnd, 124, 50, #Null)
        *lpji\lpJBtnInfo\blbdPending = #True
        InvalidateRect_(hWnd, 0, 1)
        
      EndIf
      
    Case #WM_PAINT
      cx = GadgetWidth(*lpji\numGadget)
      cy = GadgetHeight(*lpji\numGadget)
      xofset = 0
      yofset = 0
      in_jelly_rect = #True
      GetCursorPos_(@myCursorPos.POINT)
      ScreenToClient_(*lpji\hParent, @myCursorPos)
      If myCursorPos\x < GadgetX(*lpji\numGadget) Or myCursorPos\x > GadgetX(*lpji\numGadget) + GadgetWidth(*lpji\numGadget)
        in_jelly_rect = #False
      EndIf
      If myCursorPos\y < GadgetY(*lpji\numGadget) Or myCursorPos\y > GadgetY(*lpji\numGadget) + GadgetHeight(*lpji\numGadget)
        in_jelly_rect = #False
      EndIf
      
      If (*lpji\lpJBtnInfo\bClickTimerActive And in_jelly_rect = #True)
        hdc_to_use = *lpji\lpJBtnInfo\hDcPressed
        xofset = 1
        yofset = 1
      ElseIf *lpji\lpJBtnInfo\bHiLiteTimerActive
        hdc_to_use = *lpji\lpJBtnInfo\hDcHiLite
      Else
        hdc_to_use = *lpji\lpJBtnInfo\hDcReg
      EndIf
      BeginPaint_(hWnd, @ps.PAINTSTRUCT)
      BitBlt_(ps\hdc, 0, 0, cx, cy, hdc_to_use, 0, 0, #SRCCOPY)
      mText.s = *lpji\lpJBtnInfo\szJellyText
      mTextLen = Len(mText)
      SelectObject_(ps\hdc, *lpji\lpJBtnInfo\iActiveFont)
      GetTextExtentPoint32_(ps\hdc, @mText, mTextLen, @gep.SIZE)
      SetBkMode_(ps\hdc, #TRANSPARENT)
      SetTextColor_(ps\hdc, *lpji\lpJBtnInfo\iShadowColor)
      gRect.RECT\left = 1 + xofset
      gRect\top = (((cy / 2) - (gep\cy / 2)) + 1) + yofset
      gRect\right = cx + 1 + xofset
      gRect\bottom = (cy / 2) + gep\cy + 1 + yofset
      DrawText_(ps\hdc, @mText, mTextLen, @gRect, #DT_CENTER)
      SetTextColor_(ps\hdc, *lpji\lpJBtnInfo\iFrontColor)
      gRect.RECT\left = xofset
      gRect\top = ((cy / 2) - (gep\cy / 2)) + yofset
      gRect\right = cx + xofset
      gRect\bottom = (cy / 2 ) + gep\cy + yofset
      DrawText_(ps\hdc, @mText, mTextLen, @gRect, #DT_CENTER)
      EndPaint_(hWnd, @ps)
      ProcedureReturn #True
    Case #WM_ERASEBKGND
      ProcedureReturn #True
  EndSelect
  ProcedureReturn CallWindowProc_(*lpji\lpOldWndProc, hWnd, uMsg, wParam, lParam)
EndProcedure

Procedure is_jelly_button( gadget_number )
  retVal = #False
  If Not(IsGadget(gadget_number))
    ProcedureReturn retVal
  EndIf
  ForEach jelly_buttons()
    If jelly_buttons()\numGadget = gadget_number
      retVal = #True
      Break
    EndIf
  Next
  ProcedureReturn retVal
EndProcedure

Procedure Get_Jelly_Color( gadget_number )
  retVal = #False
  If Not(IsGadget(gadget_number))
    ProcedureReturn retVal
  EndIf
  ForEach jelly_buttons()
    If jelly_buttons()\numGadget = gadget_number
      retVal = jelly_buttons()\jelly_color
      Break
    EndIf
  Next
  ProcedureReturn retVal
EndProcedure




Procedure Set_Jelly_Text_Color( gadget_number, iColor )
  ForEach jelly_buttons()
    If jelly_buttons()\numGadget = gadget_number
      jelly_buttons()\lpJBtnInfo\iFrontColor = iColor
      InvalidateRect_(jelly_buttons()\hGadget, 0, 0)
      Break
    EndIf
  Next
  
EndProcedure

Procedure Set_Jelly_Shadow_Color( gadget_number, iColor )
  ForEach jelly_buttons()
    If jelly_buttons()\numGadget = gadget_number
      jelly_buttons()\lpJBtnInfo\iShadowColor = iColor
      InvalidateRect_(jelly_buttons()\hGadget, 0, 0)
      Break
    EndIf
  Next
EndProcedure


Procedure Remove_Jelly( gadget_number )
  ResetList(jelly_buttons())
  While NextElement(jelly_buttons())
    If jelly_buttons()\numGadget = gadget_number
      SetWindowLongPtr_(jelly_buttons()\hGadget, #GWLP_WNDPROC, jelly_buttons()\lpOldWndProc)
      With jelly_buttons()\lpJBtnInfo
        SelectObject_(\hDcHiLite, \hOldBmpHiLite)
        SelectObject_(\hDcPressed, \hOldBmpPressed)
        SelectObject_(\hDcReg, \hOldBmpReg)
        DeleteDC_(\hDcHiLite)
        DeleteDC_(\hDcPressed)
        DeleteDC_(\hDcReg)
        If IsImage(\imgHilite)
          FreeImage(\imgHilite)
        EndIf
        If IsImage(\imgPressed)
          FreeImage(\imgPressed)
        EndIf
        If IsImage(\imgRegular)
          FreeImage(\imgRegular)
        EndIf
      EndWith
      cText.s = jelly_buttons()\lpJBtnInfo\szJellyText
      SetWindowLongPtr_(jelly_buttons()\hGadget, #GWL_STYLE, GetWindowLongPtr_(jelly_buttons()\hGadget, #GWL_STYLE) ! #BS_OWNERDRAW)
      SetWindowPos_(jelly_buttons()\hGadget, #Null, 0, 0, 0, 0, #SWP_NOZORDER|#SWP_NOSIZE|#SWP_NOMOVE)
      FreeMemory(jelly_buttons()\lpJBtnInfo)
      DeleteElement(jelly_buttons())
      If IsGadget(gadget_number)
        SetGadgetText(gadget_number, cText)
        InvalidateRect_(GadgetID(gadget_number), 0, 0)
      EndIf
      Break
    EndIf
  Wend
EndProcedure


Procedure Add_Some_Jelly( gadget_number, jelly_color )
  If Not(IsGadget(gadget_number))
    ProcedureReturn 0
  EndIf
  okToCreateJelly = #True
  ResetList(jelly_buttons())
  While NextElement(jelly_buttons())
    If Not(IsGadget(jelly_buttons()\numGadget)) Or Not(IsWindow_(jelly_buttons()\hGadget))
      DeleteElement(jelly_buttons())
    EndIf
    If jelly_buttons()\numGadget = gadget_number And jelly_buttons()\hGadget = GadgetID(gadget_number)
      okToCreateJelly = #False
      Break
    EndIf
  Wend
  If okToCreateJelly
    AddElement(jelly_buttons())
    jelly_buttons()\hGadget = GadgetID(gadget_number)
    jelly_buttons()\numGadget = gadget_number
    jelly_buttons()\lpJBtnInfo = AllocateMemory(SizeOf(JBTN_INFO))
    jelly_buttons()\hParent = GetParent_(jelly_buttons()\hGadget)
    
    hTempDC = GetDC_(jelly_buttons()\hParent)
    jelly_buttons()\iParentBkColor = GetPixel_(hTempDC, GadgetX(gadget_number)-1, GadgetY(gadget_number))
    ReleaseDC_(jelly_buttons()\hParent, hTempDC)
    
    
    jelly_buttons()\jelly_color = jelly_color
    Make_Jelly_Images(jelly_color, jelly_buttons()\iParentBkColor, GadgetWidth(gadget_number), GadgetHeight(gadget_number), jelly_buttons()\lpJBtnInfo)
    If Not(IsImage(jelly_buttons()\lpJBtnInfo\imgRegular))
      Debug "imgRegular is bad!"
      CancelOut = #True
    EndIf
    If Not(IsImage(jelly_buttons()\lpJBtnInfo\imgPressed))
      Debug "imgPressed is bad!"
      CancelOut = #True
    EndIf
    If Not(IsImage(jelly_buttons()\lpJBtnInfo\imgHilite))
      Debug "Hi lite image is bad!"
      CancelOut = #True
    EndIf
    If CancelOut = #True
      If IsImage(jelly_buttons()\lpJBtnInfo\imgRegular)
        FreeImage(jelly_buttons()\lpJBtnInfo\imgRegular)
      EndIf
      If IsImage(jelly_buttons()\lpJBtnInfo\imgPressed)
        FreeImage(jelly_buttons()\lpJBtnInfo\imgPressed)
      EndIf
      If IsImage(jelly_buttons()\lpJBtnInfo\imgHilite)
        FreeImage(jelly_buttons()\lpJBtnInfo\imgHilite)
      EndIf
      FreeMemory(jelly_buttons()\lpJBtnInfo)
      DeleteElement(jelly_buttons())
      ProcedureReturn 0
    EndIf
    jelly_buttons()\lpOldWndProc = GetWindowLongPtr_(jelly_buttons()\hGadget, #GWLP_WNDPROC)
    jelly_buttons()\lpJBtnInfo\iActiveFont = SendMessage_(jelly_buttons()\hGadget, #WM_GETFONT, 0, 0)
    hGenDC = GetDC_(#Null)
    jelly_buttons()\lpJBtnInfo\hDcHiLite  = CreateCompatibleDC_(hGenDC)
    jelly_buttons()\lpJBtnInfo\hDcPressed = CreateCompatibleDC_(hGenDC)
    jelly_buttons()\lpJBtnInfo\hDcReg     = CreateCompatibleDC_(hGenDC)
    SetWindowLongPtr_(jelly_buttons()\hGadget, #GWL_STYLE, GetWindowLongPtr_(jelly_buttons()\hGadget, #GWL_STYLE) | #BS_OWNERDRAW)
    SetWindowPos_(jelly_buttons()\hGadget, #Null, 0, 0, 0, 0, #SWP_NOZORDER|#SWP_NOSIZE|#SWP_NOMOVE)
    
    With jelly_buttons()\lpJBtnInfo
      \hOldBmpHiLite = SelectObject_(\hDcHiLite, ImageID(jelly_buttons()\lpJBtnInfo\imgHilite))
      \hOldBmpReg    = SelectObject_(\hDcReg, ImageID(jelly_buttons()\lpJBtnInfo\imgRegular))
      \hOldBmpPressed= SelectObject_(\hDcPressed, ImageID(jelly_buttons()\lpJBtnInfo\imgPressed))
      \szJellyText = GetGadgetText(jelly_buttons()\numGadget)
    EndWith
    SetWindowLongPtr_(jelly_buttons()\hGadget, #GWLP_WNDPROC, @jBtn_WndProc())
    ReleaseDC_(#Null, hGenDC)
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
EndProcedure

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Sun Jul 22, 2012 7:15 am
by JustinJack
And here is a sample program that uses it to see how it works:

Code: Select all

IncludeFile "jelly_button.pb"

OpenWindow(   1,    0,   0, 500, 500, "Mouth-Watering Jelly", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)

ButtonGadget( 1,   10,  10, 130,  20, "Click to add Jelly")
StringGadget( 2,   10, 190, 100,  20, "Click to add Jelly")
ButtonGadget( 3,  120, 190, 100,  20, "Set Jelly Text")
ButtonGadget( 4,   10,  60, 100,  20, "Remove Jelly")

Frame3DGadget(5,   10, 100, 300,  80, "Button Size and color")
TextGadget(   6,   20, 120,  30,  18, "cx")
TextGadget(   7,   60, 120,  30,  18, "cy")
TextGadget(   8,  100, 120,  30,  18, "Color")

StringGadget( 9,   20, 140,  30,  20, "130")
StringGadget(10,   60, 140,  30,  20, "20")
StringGadget(11,  100, 140,  50,  20, "$D111B4")
ButtonGadget(12,  160, 140,  60,  20, "Apply")

LoadFont(1, "Arial", 10)
SetGadgetFont(1, FontID(1))

Repeat
  dwEvent = WaitWindowEvent()
  If dwEvent = #PB_Event_Gadget
    eGadget = EventGadget()
    Select eGadget
      Case 1
        If EventType() = #PB_EventType_LeftClick
          If Not(is_jelly_button(1))
            Add_Some_Jelly(1, Val(GetGadgetText(11)))
            set_jelly_text_color(1, #White)
            set_jelly_shadow_color(1, #Black)
          Else
            MessageRequester("Yay!", "You giggled my jelly.")
          EndIf
        EndIf
      Case 2, 9, 10, 11
        If EventType() = #PB_EventType_Focus
          SendMessage_(GadgetID(eGadget), #EM_SETSEL, 0, -1)
        ElseIf EventType() = #PB_EventType_LostFocus
          
          If eGadget <> 2
            cx = Val(GetGadgetText(9))
            cy = Val(GetGadgetText(10))
            
            If cx > 480
              cx = 480
              SetGadgetText(9, "480")
            EndIf
            
            If cy > 50
              cy = 50
              SetGadgetText(10, "50")
            EndIf
            
            If cx <> GadgetWidth(1) Or cy <> GadgetHeight(1)
              ResizeGadget(1, 10, 10, cx, cy)
            EndIf
            
            iNewColor = Val(GetGadgetText(11)) 
            If iNewColor <> Get_Jelly_Color(1)
              Spread_Jelly(1, iNewColor)
            EndIf
            
          EndIf
        EndIf
      Case 3
        If EventType() = #PB_EventType_LeftClick
          SetGadgetText(1, GetGadgetText(2))
        EndIf
      Case 4
        If EventType() = #PB_EventType_LeftClick
          remove_jelly(1)
        EndIf
    EndSelect
  EndIf
  
Until dwEvent = #PB_Event_CloseWindow

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Sun Jul 22, 2012 10:56 am
by electrochrisso
Not bad, thanks for sharing. 8)
Ability to change font and size would make it even better. :)

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Sun Jul 22, 2012 11:28 am
by srod
Aye, pretty cool. 8)

Thanks.

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Sun Jul 22, 2012 2:52 pm
by Demivec
@JustinJack: Thanks for the code. :)

I noticed some strange results when left-clicking on a jellified button and holding the mouse down while moving the pointer on and off the button.

Also after the jelly is applied it leaves white corners on the button where the jelly doesn't quite reach. Was that your intent?

electrochrisso wrote:Ability to change font and size would make it even better.
@electrochrisso:

Code: Select all

;   Remarks:  To change the button FONT, just treat it like any other PB control use SetGadgetFont()

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Sun Jul 22, 2012 4:14 pm
by rsts
Cool 8)

Thanks for sharing. :)

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Sun Jul 22, 2012 4:29 pm
by netmaestro
Looks very nice, good job! Maybe a tweak or two with the mouse moving off and on as Demivec mentioned but overall looks quite good. Perfect companion piece for my Belly Button library!

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Sun Jul 22, 2012 6:09 pm
by Mohawk70
Sweet ! [ PUN intended ]

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Mon Jul 23, 2012 1:14 am
by electrochrisso
electrochrisso wrote:Ability to change font and size would make it even better.
@electrochrisso:

Code: Select all

;   Remarks:  To change the button FONT, just treat it like any other PB control use SetGadgetFont()
8) , Thanks for pointing that one out, I might have to teach my computer to read. :lol:

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Mon Jul 23, 2012 6:07 pm
by JustinJack
Ok, fixed the way the button acts when holding the left mouse button and moving in and out of the buttons rect.

@Demivec
You mentioned white corners where the Jelly doesn't paint. I don't see that on my PB. x86 or x64. I had a problem, when I create the Jelly-Button images I was using DrawingMode(#PB_2DDrawing_AlphaChannel) and drawing a "hole" with Alpha set to "0", then drawing my Jelly images over that using RoundRect's, but when I set that bitmap to my hDc and BitBlt'd it during the WM_PAINT, the alpha channel didn't go with it, so the pixels in the difference between the Gadget's RECT and the RoundRect I was drawing painted black.
I don't think GDI xfers the alpha channel, doesn't windows actually just draw in 24 bit color?
Anyway, what I did was log the parent window's hWnd, and upon Add_Some_Jelly(), I nabbed the hParent's #GCL_HBRBACKGROUND, and got the RGB color of that. Then, when I create the Jelly Images, I just start the drawing with a

Code: Select all

Box(0, 0, cx, cy, bkColor)
Then I draw all the jelly over that so the corners SHOULD blend into the parent window's background, leaving only the RoundRect w/ Jelly visible.
Ah-Ha! I just set my window color

Code: Select all

SetWindowColor(1, 0)
to black and i see the issue.
I'm going to check that out.

BTW- I originally tried to create a roundrect region for the button with CreateRoundRectRgn() then use SetWindowRgn(), but that didn't work.

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Mon Jul 23, 2012 6:23 pm
by netmaestro
You wouldn't want to do that anyway. With a region you'd chop off all the alphablended edges and it would look crappy. It is doable for a button, you have to place it in a container gadget and region the container, but you wouldn't be happy with the result.

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Mon Jul 23, 2012 6:31 pm
by Demivec
JustinJack wrote:Ok, fixed the way the button acts when holding the left mouse button and moving in and out of the buttons rect.
@JustinJack: The problem has been reduced but I still experience the 'problem'. To be more specific it happens when you click and hold the left-button and then move the mouse pointer back and forth near the border of the button.

Here's a picture of the white corner problem:

Image

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Mon Jul 23, 2012 6:38 pm
by JustinJack
Ok, I just edited the original post with the most updated code.
With my SetWindowColor() as black, the Jelly button now looks good..

It's a bit cheesy how I did it, though.

I just to a sneak-peek at the pixel just to the top left of the buttons RECT. I know this probably won't work if the button is at x = 0, though. But hey, who puts their buttons at 0?

Code: Select all

    hTempDC = GetDC_(jelly_buttons()\hParent)
    jelly_buttons()\iParentBkColor = GetPixel_(hTempDC, GadgetX(gadget_number)-1, GadgetY(gadget_number))
    ReleaseDC_(jelly_buttons()\hParent, hTempDC)
I tried two different things before settling on this:
I tried getting the HBRUSH of the the window with GetClassLongPtr(), but it kept returning a white color, and I tried calling GetDCBrushColor(), which also kept returning white.
I'm just guessing that PB keeps it's own window background color in it's own structure, and just uses a general-all purpose background brush in the WNDCLASSEX and that's why I can't trust that color. I wish I could call GetWindowColor(), but when Add_Some_Jelly() is called, I only have the gadget number to which I should apply the Jelly. I don't ask for the Parent Window number, and I like to not have to. That's just one more thing a programmer has to think about.

If I could get the parent window's PB# from the Child window, I could call it and paint it accurately.

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Mon Jul 23, 2012 6:44 pm
by JustinJack
@Demivec
Ah ha! I see the problem now with the squirrley-ness, when I take "Enable XP Skin Support" off, it does it on mine, but I can't reproduce the white borders on mine, does it still show that way on yours?

Re: Give your ButtonGadgets some FLAIR! Code included [WINDO

Posted: Mon Jul 23, 2012 7:06 pm
by Demivec
JustinJack wrote:@Demivec
Ah ha! I see the problem now with the squirrley-ness, when I take "Enable XP Skin Support" off, it does it on mine, but I can't reproduce the white borders on mine, does it still show that way on yours?
@JustinJack: See previous message. :wink:

If the code requires XP Skin Support it should be noted. Alas, I obviously didn't use it.
All times are UTC+01:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited