PureBasic Forums - English

Posted: **Tue Sep 13, 2005 1:16 pm**

really, really, really good userlib. Very thank you. Adopted !

Posted: **Thu Sep 15, 2005 4:02 pm**

thx

[ Updated ]
minor fix : FreeGadget

Posted: **Thu Oct 27, 2005 6:11 pm**

[ Released ]

version : 1.2
- new ID parameter for DashBarDrawer
- Don't move the grip button when window is minimized ( for PureResize lib compatibility )

download : here ( Extract to your PB folder and restart your PB compiler. )

Code: Select all

Enumeration 
   #GADGET1 
   #GADGET2 
   #GADGET3 
   #DASHBAR  
   #DASHBAR2 
EndEnumeration 

; =======
; bar drawing procedure
; =======

Procedure MyBarDrawing(id, w, h, State, flag)
   ;color mode 
   Select id 
      Case #DASHBAR 
         If State=0
            buttonColor=RGB($C9,$EF,$FA)
         Else 
            buttonColor=RGB($D7,$DB,$DF)
         EndIf       
      Case #DASHBAR2
         If State=0
            buttonColor=RGB(255,0,0)
         Else 
            buttonColor=RGB($D7,$DB,$DF)
         EndIf 
   EndSelect
   
   Select flag 
      Case #DashedBar_Horizontal
         ;background
         Box(0,0,w,h,buttonColor)
         
         ;borders
         Line(0,0,0,h,GetSysColor_(#COLOR_BTNSHADOW))
         Line(1,0,0,h,GetSysColor_(#COLOR_BTNHILIGHT))
         
         Line(w-2,0,0,h,GetSysColor_(#COLOR_BTNSHADOW))
         Line(w-1,0,0,h,GetSysColor_(#COLOR_BTNHILIGHT)) 
         
         ;dots
         For x=10 To w-10 Step 3
            Line(x,h/2-1,1,2,GetSysColor_(#COLOR_BTNSHADOW)) 
         Next
         
      Case #DashedBar_Vertical 
         ;background   
         Box(0,0,w,h,buttonColor)
         
         ;borders
         Line(0,0,w,0,GetSysColor_(#COLOR_BTNSHADOW))
         Line(0,1,w,0,GetSysColor_(#COLOR_BTNHILIGHT))
         
         Line(0,h-2,w,0,GetSysColor_(#COLOR_BTNSHADOW))
         Line(0,h-1,w,0,GetSysColor_(#COLOR_BTNHILIGHT)) 
         
         ;dots
         For y=10 To h-10 Step 3
            Line(w/2-1,y,2,1,GetSysColor_(#COLOR_BTNSHADOW)) 
         Next
   EndSelect
EndProcedure






; ======================================
; EXAMPLE : 3-Panel-Window 
; ======================================

OpenWindow(0,100,100,300,300,#PB_Window_SystemMenu|#PB_Window_SizeGadget,"dashed bar") 
CreateGadgetList(WindowID()) 

; [LEFT | MIDDLE | MIDDLE]
ButtonGadget(#GADGET1,0,0,0,0,"left") 
ButtonGadget(#GADGET3,0,0,0,0,"middle") 
ButtonGadget(#GADGET2,0,0,0,0,"right") 

DashedBarInit(@MyBarDrawing())

;SECONDARY dashedbar [LEFT | MIDDLE]
DashedBarGadget(#DASHBAR,5,5,290,290,6,100,#GADGET1,#GADGET3,#DashedBar_Vertical) 
DashedBarAttribute(#DASHBAR,32,32,#DashedBar_FavoriteBorder1) 
SetGadgetState(#DASHBAR,290/3-6)

;MAIN dashedbar [.... | RIGHT]
DashedBarGadget(#DASHBAR2,5,5,290,290,6,100,#DASHBAR,#GADGET2,#DashedBar_Vertical)  
DashedBarAttribute(#DASHBAR2,32,32,#DashedBar_FavoriteBorder2) 
SetGadgetState(#DASHBAR2,2*290/3-6)

Repeat 
   e=WaitWindowEvent() 
   
   ;resize MAIN dashedbar
   If e=#PB_Event_SizeWindow 
      UseWindow(0) 
      w=WindowWidth() 
      h=WindowHeight() 
      ResizeGadget(#DASHBAR2,5,5,w-10,h-10) 
   EndIf 
   
Until e=#PB_Event_CloseWindow

Posted: **Mon Dec 05, 2005 4:12 pm**

[ Released ]

download : here ( Extract to your PB folder and restart your PB compiler. )

version : 1.3

- bug fixed : default grip rendering causes crash (version 1.2)
- added : the splitter bar follows its favorite border

Posted: **Tue Jul 11, 2006 8:55 pm**

[released]

- added : DashedBarSetGadget ( replace one of two gadgets )

Posted: **Tue Jul 11, 2006 9:27 pm**

Damn it! If I'd known about your lib it would have saved me the bother of coding a splitter myself!

Will this work with PB 4?

Posted: **Wed Jul 12, 2006 2:47 pm**

srod wrote:Damn it! If I'd known about your lib it would have saved me the bother of coding a splitter myself!

Will this work with PB 4?

It depends on Tailbite.

Posted: **Thu Sep 28, 2006 10:11 am**

Some news ?

Posted: **Thu Sep 28, 2006 11:04 am**

what kind of news ?

Posted: **Thu Sep 28, 2006 1:51 pm**

Ready for PB V4 ?

Posted: **Fri Aug 31, 2007 4:37 pm**

Will this lib be updated for latest PB4?

Posted: **Fri Aug 31, 2007 7:16 pm**

no time to finish the conversion for the moment... ( .NET wormhole )

I can release the source code (if I found where I lost it )

PureBasic Forums - English

Libs : dashed splitterbar & requester position ( PB 3.94