PureBasic Forums - English

Posted: **Sun Oct 30, 2005 1:50 pm**

Code updated For 5.20+

Hello,

This demonstate a moveable toolbar.

I wish a lot of fun with it

; Movable Toolbar
; 2005 Hroudtwolf
; PureBasic-Lounge.de & English PureBasic forums

Declare CreateToolBarBox ()

Enumeration
  #Hauptfenster
  #ToolBarBox
  #Tools
  #TB_New
  #TB_Open
  #TB_Save
  #TB_Cut
  #TB_Copy
  #TB_Paste
EndEnumeration

#Hauptfensterflag=#PB_Window_ScreenCentered|#PB_Window_SystemMenu

If OpenWindow (#Hauptfenster,0,0,700,500,"Movable Toolbar Test",#Hauptfensterflag)
  
  CreateToolBarBox () ; Jumping to the procedure which will making the moveable toolbar
  
  Repeat
    FensterErreigniss=WaitWindowEvent ()
    Select FensterErreigniss
      Case #PB_Event_CloseWindow
        SchliesseProgramm=1
      Case #WM_LBUTTONDOWN
        If EventWindow()=#ToolBarBox
          SendMessage_(WindowID(#ToolBarBox),#WM_NCLBUTTONDOWN, #HTCAPTION,0)
        EndIf
    EndSelect
  Until SchliesseProgramm=1
EndIf
End


Procedure CreateToolBarBox ()
  TBWHnd=OpenWindow (#ToolBarBox,10,50,177,25,"",#WS_POPUP|#WS_BORDER)
  SetParent_(TBWHnd,WindowID(#Hauptfenster))
  SetWindowLong_(TBWHnd,#GWL_EXSTYLE,#WS_EX_TOOLWINDOW)
  If CreateToolBar (#Tools,TBWHnd)
    ToolBarSeparator()
    ToolBarSeparator()
    ToolBarStandardButton(#TB_New, #PB_ToolBarIcon_New)
    ToolBarStandardButton(#TB_Open, #PB_ToolBarIcon_Open)
    ToolBarStandardButton(#TB_Save, #PB_ToolBarIcon_Save)
    ToolBarSeparator()
    ToolBarStandardButton(#TB_Cut, #PB_ToolBarIcon_Cut)   
    ToolBarStandardButton(#TB_Copy, #PB_ToolBarIcon_Copy)   
    ToolBarStandardButton(#TB_Paste, #PB_ToolBarIcon_Paste) 
    ToolBarSeparator()
    ToolBarSeparator()
  EndIf
EndProcedure

Posted: **Sun Oct 30, 2005 1:58 pm**

Very cool.
Btw, on line 23 there should be a ; instead of :

Posted: **Sun Oct 30, 2005 2:04 pm**

Oh sorry. Repaired

> ; <and > : < are next to one another on german keyboards.

And thank you.

Posted: **Sun Oct 30, 2005 3:50 pm**

Hey, thats cool.

Now I just gotta find a place I can use it.

cheers

Posted: **Sun Oct 30, 2005 6:58 pm**

Very nice!

After playing with code, I've seen that removing the line

Code: Select all

SetWindowLong_(TBWHnd.l,#GWL_EXSTYLE,#WS_EX_TOOLWINDOW)

Doesn't have any effect... Is it right or have I missed something?

Posted: **Sun Oct 30, 2005 8:10 pm**

Look at the taskbar

Posted: **Mon Oct 31, 2005 11:41 pm**

That's a dirty trick!

Nice one.

Posted: **Tue Nov 01, 2005 12:07 am**

I played a little bit more...

Code: Select all


;Menu+StatusBar replacement + Toolbox
;2005 Hroudtwolf
;PureBasic-Lounge.de

Declare CreateReplacedMenu()
Declare CreateReplacedStatusbar()
Declare CreateToolBarBox ()

Enumeration
   #Hauptfenster
   #MenubarArea
   #Teslist
   #Menus
   #mn_New
   #mn_Open
   #mn_Save
   #mn_Cut
   #mn_Copy
   #mn_Paste
   #Status
   #ToolBarBox
   #Tools
   #TB_New
   #TB_Open
   #TB_Save
   #TB_Cut
   #TB_Copy
   #TB_Paste
EndEnumeration

#Hauptfensterflag=#PB_Window_ScreenCentered|#PB_Window_SystemMenu

If OpenWindow (#Hauptfenster,0,0,700,500,#Hauptfensterflag,"Menu replacement Test")

If CreateGadgetList (WindowID(#Hauptfenster))
  ListViewGadget (#Teslist,0,0,200,500)
  For x=1 To 50
    AddGadgetItem (#Teslist,-1,RSet(Str(Random(99999999)),8,"0")+" : "+RSet(Str(Random(99999999)),8,"0")+" : "+RSet(Str(Random(99999999)),8,"0"))
  Next x
EndIf

CreateReplacedMenu()
CreateReplacedStatusbar()
CreateToolBarBox ()


  Repeat
    FensterErreigniss.l=WaitWindowEvent ()
    Select FensterErreigniss.l
       Case #PB_Event_CloseWindow
          SchliesseProgramm.l=1
       Case #WM_LBUTTONDOWN
          If EventWindowID()=#ToolBarBox
            SendMessage_(WindowID(#ToolBarBox),#WM_NCLBUTTONDOWN, #HTCAPTION,0)
          EndIf
    EndSelect
  Until SchliesseProgramm.l=1
  EndIf
End

Procedure CreateReplacedMenu()
  ChildBoard.l=OpenWindow (#MenubarArea,200,0,500,500,#PB_Window_BorderLess,"",WindowID(#Hauptfenster))
  SetParent_(ChildBoard.l,WindowID(#Hauptfenster))
  SetWindowLong_(ChildBoard.l,#GWL_EXSTYLE,#WS_EX_TOOLWINDOW)
  MenuHandle.l=CreateMenu (#Menus ,ChildBoard.l)
  If MenuHandle.l
    MenuTitle ("Datei")
    MenuItem (#mn_New,"Neu")
    MenuItem (#mn_Open,"Öffnen")
    MenuItem (#mn_Save,"Laden")
    MenuTitle ("Bearbeiten")
    MenuItem (#mn_cut,"Ausschneiden")
    MenuItem (#mn_copy,"Kopieren")
    MenuItem (#mn_paste,"Einfügen")
  EndIf
EndProcedure

Procedure CreateReplacedStatusbar()
   CreateStatusBar (#Status,WindowID(#MenubarArea))
   AddStatusBarField (200)
   AddStatusBarField (500)
EndProcedure

Procedure CreateToolBarBox ()
   TBWHnd.l=OpenWindow (#ToolBarBox,0,1,177,25,#WS_POPUP|#WS_BORDER,"")
   SetParent_(TBWHnd.l,WindowID(#MenubarArea))
   SetWindowPos_(TBWHnd.l,#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
   SetWindowLong_(TBWHnd.l,#GWL_EXSTYLE,#WS_EX_TOOLWINDOW)
   If CreateToolBar (#Tools,TBWHnd.l)
    ToolBarSeparator()
    ToolBarSeparator()
    ToolBarStandardButton(#TB_New, #PB_ToolBarIcon_New)
    ToolBarStandardButton(#TB_Open, #PB_ToolBarIcon_Open)
    ToolBarStandardButton(#TB_Save, #PB_ToolBarIcon_Save)
     ToolBarSeparator()
    ToolBarStandardButton(#TB_Cut, #PB_ToolBarIcon_Cut)   
    ToolBarStandardButton(#TB_Copy, #PB_ToolBarIcon_Copy)   
    ToolBarStandardButton(#TB_Paste, #PB_ToolBarIcon_Paste) 
    ToolBarSeparator()
    ToolBarSeparator()
   EndIf
EndProcedure

Posted: **Tue Nov 01, 2005 11:00 am**

This is getting interesting now. I could definitely use this.

Posted: **Tue Nov 01, 2005 11:48 am**

yeah, needed this, gonna try tonight

PureBasic Forums - English

Moveable toolbar

Moveable toolbar