PureBasic Forums - English

Posted: **Tue Apr 13, 2004 9:36 pm**

here is a little attemp at an excel like toolwindow that can be docked or free using an MDI gadget. MDI source code originally by freak, which i modiefied to suit this purpose

Code: Select all

; *******************************************************************************
; MDIGadget() Description: Modified By LOCALMOTION34
; *******************************************************************************


; Example Code: a MDI ImageViewer:
; *******************************************************************************

Structure MDIWindow
  ; info about the loaded image
  Image.l
  ImageWidth.l
  ImageHeight.l
  
  ; gadget numbers
  ScrollAreaGadget.l
  ImageGadget.l  
EndStructure

NewList MDIWindow.MDIWindow()
#SS_NOTIFY=256 
#WINDOW = 0
#TOOLBAR = 0
#MENU = 0

Enumeration
  #MENU_Open
  #MENU_Close
  #MENU_CloseAll
  #MENU_Quit
  
  #MENU_TileV
  #MENU_TileH
  #MENU_Cascade
  #MENU_Arrange
  #MENU_Previous
  #MENU_Next
  
  #MENU_FirstMDI
EndEnumeration
Structure gadgetlist
  button.l
  button2.l
  button3.l
  button4.l
EndStructure
Dim windowlist.gadgetlist(100)
windowlist(0)\button=1
windowlist(0)\button2=2
windowlist(0)\button3=3
windowlist(0)\button4=4
UseJPEGImageDecoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()

#GADGET_MDI = 0
#Window_0=1
#WindowFlags = #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget

If OpenWindow(#WINDOW, 0, 0, 800, 600, #WindowFlags, "MDI ImageViewer/Docked ToolWindow")
  If CreateMenu(#MENU, WindowID())
    MenuTitle("File")
    MenuItem(#MENU_Open, "Open")
    MenuItem(#MENU_Close, "Close")
    MenuItem(#MENU_CloseAll, "Close All")
    MenuBar()
    MenuItem(#MENU_Quit, "Quit")      
    MenuTitle("Windows")
    MenuItem(#MENU_TileV, "Tile vertically")
    MenuItem(#MENU_TileH, "Tile horizontally")
    MenuItem(#MENU_Cascade, "Cascade")
    MenuItem(#MENU_Previous, "Previous")
    MenuItem(#MENU_Next, "Next")
    
    ; MDI subwindows will get added here
  EndIf
  
  If CreateToolBar(#TOOLBAR, WindowID())
    ToolBarStandardButton(#MENU_Open, #PB_ToolBarIcon_Open)
    ToolBarStandardButton(#MENU_Close, #PB_ToolBarIcon_Delete)
    ToolBarSeparator()
    ToolBarStandardButton(#MENU_Previous, #PB_ToolBarIcon_Undo)
    ToolBarStandardButton(#MENU_Next, #PB_ToolBarIcon_Redo)
  EndIf
  
  If CreateGadgetList(WindowID())
    MDIGadget(#GADGET_MDI, 110, 30, 700, 500, 1, #MENU_FirstMDI)
    x = WindowX() 
    y = WindowY()
    slam=OpenWindow(1,x+3,y+80,110,500,#PB_Window_BorderLess| #WS_BORDER,"",WindowID(#WINDOW))
    SetWindowLong_(WindowID(1),#GWL_EXSTYLE,#WS_EX_TOOLWINDOW|#ws_child)
    SendMessage_(slam, #WM_NCLBUTTONDOWN, #HTCAPTION, 0)
    CreateGadgetList(WindowID(1))
    ButtonGadget(100, 10, 15, 80, 24,"Docked") 
    ButtonGadget(101, 10, 45, 80, 24,"Tool Window") 
    CloseGadgetList()
   
    
  EndIf
  
  
  Quit = 0
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_CloseWindow
      Quit = 1   
      
    ElseIf Event = #PB_Event_Menu
      Select EventMenuID()
        Case #MENU_Open
          a=CountGadgetItems(#GADGET_MDI)
          zam=AddGadgetItem(#GADGET_MDI, 1, Str(a))              
          ButtonGadget(windowlist(0)\button+a*4,100,100,30,30,"test")
          ButtonGadget(windowlist(0)\button2+a*4,130,100,30,30,"test")
          ButtonGadget(windowlist(0)\button3+a*4,160,100,30,30,"test")
          ButtonGadget(windowlist(0)\button4+a*4,190,100,30,30,"test")
          
          
          
          
        Case #MENU_Quit
          Quit = 1     
          
        Case #MENU_TileV
          SetGadgetState(#GADGET_MDI, #PB_MDI_TileVertically)
          
        Case #MENU_TileH
          SetGadgetState(#GADGET_MDI, #PB_MDI_TileHorizontally)
          
        Case #MENU_Cascade
          SetGadgetState(#GADGET_MDI, #PB_MDI_Cascade)
          
        Case #MENU_Arrange
          SetGadgetState(#GADGET_MDI, #PB_MDI_Arrange)
          
        Case #MENU_Previous
          SetGadgetState(#GADGET_MDI, #PB_MDI_Previous)
          
        Case #MENU_Next
          SetGadgetState(#GADGET_MDI, #PB_MDI_Next)
          
      EndSelect
      
      
    ElseIf Event = #PB_Event_Gadget
      If EventGadgetID() = #GADGET_MDI
        
        Type = EventType()
        
        If Type = #PB_EventType_SizeItem          
          Item = GetGadgetAttribute(#GADGET_MDI, #PB_MDI_SizedItem)          
          Width  = GetGadgetItemAttribute(#GADGET_MDI, Item, #PB_MDI_ItemWidth)
          Height = GetGadgetItemAttribute(#GADGET_MDI, Item, #PB_MDI_ItemHeight)          
          
          SelectElement(MDIWindow(), Item)
          
          
        ElseIf Type = #PB_EventType_CloseItem
          Item = GetGadgetState(#GADGET_MDI)         
          RemoveGadgetItem(#GADGET_MDI, Item)
          
          
          DeleteElement(MDIWindow())         
          
        EndIf
        
        
        
      ElseIf EventGadgetID()=101
        SetWindowStyles(1,#WS_VISIBLE |#swp_nomove| #WS_BORDER |#PB_Window_TitleBar,#WS_EX_TOOLWINDOW)
        SetWindowPos_(1,#WS_VISIBLE,0,30,110,500,#swp_nomove)
        ResizeGadget(#GADGET_MDI,5, 30, 810, 500)
    ElseIf EventGadgetID()=100
      SetWindowStyles(1,#WS_VISIBLE |#PB_Window_BorderLess| #WS_BORDER,#WS_EX_TOOLWINDOW)
      UseWindow(#WINDOW) 
      
      x = WindowX() 
      y = WindowY()
      UseWindow(1)
      MoveWindow(x+3,y+80)
      ResizeGadget(#GADGET_MDI,110, 30, 700, 500)
      EndIf
      
    EndIf
    
  Until Quit = 1  
EndIf

give it a try and hit me up with suggestions

Posted: **Tue Apr 13, 2004 10:20 pm**

PB complains about MDIGadget() not being a function, array or linked list (on line 87). Do you know what library is missing on my side?

Posted: **Tue Apr 13, 2004 11:46 pm**

you have to have 3.89 beta or 3.9 installed to use the MDI gadget

Posted: **Wed Apr 14, 2004 1:43 am**

Pretty Neat!

The calls to SetWindowStyles in line 172 and 176 don't work for me.

I replaced them with calls to SetWindowLong_(WindowID(1) and it seems to work now.

Posted: **Wed Apr 14, 2004 12:04 pm**

Pretty nice

, but when it's docked and you move the main window..... it stays in place 8O

Posted: **Wed Apr 14, 2004 3:04 pm**

you know what, i just realized that this morning, ill have to try and figure out how to fix that. any suggestions are welcome. im actually going to try and finish this project and make a library out of it for creating docked windows like this. can anyone fix this slight problem?

Posted: **Wed Apr 14, 2004 3:27 pm**

Hi localmotion34,

I can only be 10% of help.

Somewhere on this forum, somebody helped me with some docking and windows moving code. Unfortunately I can't remember who, or find the posts, or find the code on my HD. (I decided on another approach and stored the code "somewhere safe").

Now I am pretty sure I am not dreaming. I just know it is somewhere around on this forum. If I find the code on my HD I will post it. From recollection it involved detecting the movement of the main window via callback, and forcing equivalent movement of the docked window.

Hope that was as much as 10% useful!

Posted: **Wed Apr 14, 2004 4:23 pm**

snap!!! figured out how to use a container gadget to act as the DOCKED window, and then use that gadget list to create a toolwindow.

Code: Select all

Structure MDIWindow
  ; info about the loaded image
  Image.l
  ImageWidth.l
  ImageHeight.l
  
  ; gadget numbers
  ScrollAreaGadget.l
  ImageGadget.l  
EndStructure

NewList MDIWindow.MDIWindow()
#SS_NOTIFY=256 
#WINDOW = 0
#TOOLBAR = 0
#MENU = 0

Enumeration
  #MENU_Open
  #MENU_Close
  #MENU_CloseAll
  #MENU_Quit
  
  #MENU_TileV
  #MENU_TileH
  #MENU_Cascade
  #MENU_Arrange
  #MENU_Previous
  #MENU_Next
  
  #MENU_FirstMDI
EndEnumeration
Structure gadgetlist
  button.l
  button2.l
  button3.l
  button4.l
EndStructure
Dim windowlist.gadgetlist(100)
windowlist(0)\button=1
windowlist(0)\button2=2
windowlist(0)\button3=3
windowlist(0)\button4=4
UseJPEGImageDecoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()

#GADGET_MDI = 0
#Window_0=1
#WindowFlags = #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget

If OpenWindow(#WINDOW, 0, 0, 800, 600, #WindowFlags, "MDI ImageViewer/Docked ToolWindow")
  If CreateMenu(#MENU, WindowID())
    MenuTitle("File")
    MenuItem(#MENU_Open, "Open")
    MenuItem(#MENU_Close, "Close")
    MenuItem(#MENU_CloseAll, "Close All")
    MenuBar()
    MenuItem(#MENU_Quit, "Quit")      
    MenuTitle("Windows")
    MenuItem(#MENU_TileV, "Tile vertically")
    MenuItem(#MENU_TileH, "Tile horizontally")
    MenuItem(#MENU_Cascade, "Cascade")
    MenuItem(#MENU_Previous, "Previous")
    MenuItem(#MENU_Next, "Next")
    
    ; MDI subwindows will get added here
  EndIf
  
  If CreateToolBar(#TOOLBAR, WindowID())
    ToolBarStandardButton(#MENU_Open, #PB_ToolBarIcon_Open)
    ToolBarStandardButton(#MENU_Close, #PB_ToolBarIcon_Delete)
    ToolBarSeparator()
    ToolBarStandardButton(#MENU_Previous, #PB_ToolBarIcon_Undo)
    ToolBarStandardButton(#MENU_Next, #PB_ToolBarIcon_Redo)
  EndIf
  
  If CreateGadgetList(WindowID())
    MDIGadget(#GADGET_MDI, 110, 30, 700, 500, 1, #MENU_FirstMDI)
    ContainerGadget(5,0,30,110,500,#PB_Container_Raised)
    ButtonGadget(100, 10, 15, 80, 24,"Docked") 
    ButtonGadget(101, 10, 45, 80, 24,"Tool Window") 
    CloseGadgetList()
  EndIf
  Quit = 0
  Repeat
    Event = WaitWindowEvent()
    Select EventWindowID()
      Case 1 ;toolwindow 
        Select EventType() 
          Case #WM_rBUTTONup  
         SetWindowStyles(1,#WS_VISIBLE |#PB_Window_BorderLess| #WS_BORDER,#WS_EX_TOOLWINDOW)
          UseWindow(#WINDOW) 
          x = WindowX() 
          y = WindowY()
          UseWindow(1)
          MoveWindow(x+3,y+80)
          ResizeGadget(#GADGET_MDI,110, 30, 700, 500)  
          EndSelect
      EndSelect
    If Event = #PB_Event_CloseWindow
      Quit = 1   
     
    ElseIf Event = #PB_Event_Menu 
      Select EventMenuID()
        Case #MENU_Open
          a=CountGadgetItems(#GADGET_MDI)
          zam=AddGadgetItem(#GADGET_MDI, 1, Str(a))              
          ButtonGadget(windowlist(0)\button+a*4,100,100,30,30,"test")
          ButtonGadget(windowlist(0)\button2+a*4,130,100,30,30,"test")
          ButtonGadget(windowlist(0)\button3+a*4,160,100,30,30,"test")
          ButtonGadget(windowlist(0)\button4+a*4,190,100,30,30,"test") 
        Case #MENU_Quit
          Quit = 1     
          
        Case #MENU_TileV
          SetGadgetState(#GADGET_MDI, #PB_MDI_TileVertically)
          
        Case #MENU_TileH
          SetGadgetState(#GADGET_MDI, #PB_MDI_TileHorizontally)
          
        Case #MENU_Cascade
          SetGadgetState(#GADGET_MDI, #PB_MDI_Cascade)
          
        Case #MENU_Arrange
          SetGadgetState(#GADGET_MDI, #PB_MDI_Arrange)
          
        Case #MENU_Previous
          SetGadgetState(#GADGET_MDI, #PB_MDI_Previous)
          
        Case #MENU_Next
          SetGadgetState(#GADGET_MDI, #PB_MDI_Next)
      EndSelect 
    ElseIf Event = #PB_Event_Gadget
      event1=EventGadgetID()
      Select event1 
        Case #GADGET_MDI
          Type = EventType()
          If Type = #PB_EventType_SizeItem          
            Item = GetGadgetAttribute(#GADGET_MDI, #PB_MDI_SizedItem)          
            Width  = GetGadgetItemAttribute(#GADGET_MDI, Item, #PB_MDI_ItemWidth)
            Height = GetGadgetItemAttribute(#GADGET_MDI, Item, #PB_MDI_ItemHeight)          
            SelectElement(MDIWindow(), Item)
          ElseIf Type = #PB_EventType_CloseItem
            Item = GetGadgetState(#GADGET_MDI)         
            RemoveGadgetItem(#GADGET_MDI, Item)
            DeleteElement(MDIWindow())         
          EndIf
        Case 101
          [b]FreeGadget(5)
          ResizeGadget(#GADGET_MDI,5, 30, 810, 500)
          UseWindow(#WINDOW) 
          x = WindowX() 
          y = WindowY()
          slam=OpenWindow(1,x+3,y+80,110,500,#PB_Window_BorderLess| #WS_BORDER,"",WindowID(#WINDOW))
          SetWindowStyles(1,#WS_VISIBLE |#PB_Window_TitleBar| #WS_BORDER,#WS_EX_TOOLWINDOW)
          SetWindowLong_(WindowID(1),#GWL_EXSTYLE,#WS_EX_TOOLWINDOW|#ws_child)
          SendMessage_(slam, #WM_NCLBUTTONDOWN, #HTCAPTION, 0)
          CreateGadgetList(WindowID(1))
          ButtonGadget(100, 10, 15, 80, 24,"Docked") 
          ButtonGadget(101, 10, 45, 80, 24,"Tool Window") 
          CloseGadgetList()
        Case 100
          CloseWindow(1)
          ResizeGadget(#GADGET_MDI,110, 30, 700, 500)
          UseGadgetList(WindowID(#WINDOW))
          ContainerGadget(5,0,30,110,500,#PB_Container_Raised)
          ButtonGadget(100, 10, 15, 80, 24,"Docked") 
          ButtonGadget(101, 10, 45, 80, 24,"Tool Window") 
          CloseGadgetList()[/b]      EndSelect 
    EndIf
    
  Until Quit = 1  
EndIf

try it out and hit me up with suggestions. the faster i can get this done, the faster i can make a library out of this to add to our collection to give PB programs a really cool interface.

Posted: **Wed Apr 14, 2004 4:46 pm**

Closer........ but the docked buttons all dissapear after you open a few windows with the file_open button 8O

Sorry can't test too much, busy here :roll:

Posted: **Wed Apr 14, 2004 5:41 pm**

ok fixed that-i gave the container a # that is 500 instead of 5, so you can open windows until the button numbers reach 500.

Code: Select all

Structure MDIWindow 
  ; info about the loaded image 
  Image.l 
  ImageWidth.l 
  ImageHeight.l 
  
  ; gadget numbers 
  ScrollAreaGadget.l 
  ImageGadget.l  
EndStructure 

NewList MDIWindow.MDIWindow() 
#SS_NOTIFY=256 
#WINDOW = 0 
#TOOLBAR = 0 
#MENU = 0 

Enumeration 
  #MENU_Open 
  #MENU_Close 
  #MENU_CloseAll 
  #MENU_Quit 
  
  #MENU_TileV 
  #MENU_TileH 
  #MENU_Cascade 
  #MENU_Arrange 
  #MENU_Previous 
  #MENU_Next 
  
  #MENU_FirstMDI 
EndEnumeration 
Structure gadgetlist 
  button.l 
  button2.l 
  button3.l 
  button4.l 
EndStructure 
Dim windowlist.gadgetlist(100) 
windowlist(0)\button=1 
windowlist(0)\button2=2 
windowlist(0)\button3=3 
windowlist(0)\button4=4 
UseJPEGImageDecoder() 
UsePNGImageDecoder() 
UseTGAImageDecoder() 
UseTIFFImageDecoder() 

#GADGET_MDI = 0 
#Window_0=1 
#WindowFlags = #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget 

If OpenWindow(#WINDOW, 0, 0, 800, 600, #WindowFlags, "MDI ImageViewer/Docked ToolWindow") 
  If CreateMenu(#MENU, WindowID()) 
    MenuTitle("File") 
    MenuItem(#MENU_Open, "Open") 
    MenuItem(#MENU_Close, "Close") 
    MenuItem(#MENU_CloseAll, "Close All") 
    MenuBar() 
    MenuItem(#MENU_Quit, "Quit")      
    MenuTitle("Windows") 
    MenuItem(#MENU_TileV, "Tile vertically") 
    MenuItem(#MENU_TileH, "Tile horizontally") 
    MenuItem(#MENU_Cascade, "Cascade") 
    MenuItem(#MENU_Previous, "Previous") 
    MenuItem(#MENU_Next, "Next") 
    
    ; MDI subwindows will get added here 
  EndIf 
  
  If CreateToolBar(#TOOLBAR, WindowID()) 
    ToolBarStandardButton(#MENU_Open, #PB_ToolBarIcon_Open) 
    ToolBarStandardButton(#MENU_Close, #PB_ToolBarIcon_Delete) 
    ToolBarSeparator() 
    ToolBarStandardButton(#MENU_Previous, #PB_ToolBarIcon_Undo) 
    ToolBarStandardButton(#MENU_Next, #PB_ToolBarIcon_Redo) 
  EndIf 
  
  If CreateGadgetList(WindowID()) 
    MDIGadget(#GADGET_MDI, 110, 30, 700, 500, 1, #MENU_FirstMDI) 
    ContainerGadget(500,0,30,110,500,#PB_Container_Raised) 
    ButtonGadget(100, 10, 15, 80, 24,"Docked") 
    ButtonGadget(101, 10, 45, 80, 24,"Tool Window") 
    CloseGadgetList() 
  EndIf 
  Quit = 0 
  Repeat 
    Event = WaitWindowEvent() 
    Select EventWindowID() 
      Case 1 ;toolwindow 
        Select EventType() 
          Case #WM_rBUTTONup  
            SetWindowStyles(1,#WS_VISIBLE |#PB_Window_BorderLess| #WS_BORDER,#WS_EX_TOOLWINDOW) 
            UseWindow(#WINDOW) 
            x = WindowX() 
            y = WindowY() 
            UseWindow(1) 
            MoveWindow(x+3,y+80) 
            ResizeGadget(#GADGET_MDI,110, 30, 700, 500)  
        EndSelect 
    EndSelect 
    If Event = #PB_Event_CloseWindow 
      Quit = 1    
      
    ElseIf Event = #PB_Event_Menu 
      Select EventMenuID() 
        Case #MENU_Open 
          a=CountGadgetItems(#GADGET_MDI) 
          zam=AddGadgetItem(#GADGET_MDI, 1, Str(a))              
          ButtonGadget(windowlist(0)\button+a*4,100,100,30,30,"test") 
          ButtonGadget(windowlist(0)\button2+a*4,130,100,30,30,"test") 
          ButtonGadget(windowlist(0)\button3+a*4,160,100,30,30,"test") 
          ButtonGadget(windowlist(0)\button4+a*4,190,100,30,30,"test") 
        Case #MENU_Quit 
          Quit = 1      
          
        Case #MENU_TileV 
          SetGadgetState(#GADGET_MDI, #PB_MDI_TileVertically) 
          
        Case #MENU_TileH 
          SetGadgetState(#GADGET_MDI, #PB_MDI_TileHorizontally) 
          
        Case #MENU_Cascade 
          SetGadgetState(#GADGET_MDI, #PB_MDI_Cascade) 
          
        Case #MENU_Arrange 
          SetGadgetState(#GADGET_MDI, #PB_MDI_Arrange) 
          
        Case #MENU_Previous 
          SetGadgetState(#GADGET_MDI, #PB_MDI_Previous) 
          
        Case #MENU_Next 
          SetGadgetState(#GADGET_MDI, #PB_MDI_Next) 
      EndSelect 
    ElseIf Event = #PB_Event_Gadget 
      event1=EventGadgetID() 
      Select event1 
        Case #GADGET_MDI 
          Type = EventType() 
          If Type = #PB_EventType_SizeItem          
            Item = GetGadgetAttribute(#GADGET_MDI, #PB_MDI_SizedItem)          
            Width  = GetGadgetItemAttribute(#GADGET_MDI, Item, #PB_MDI_ItemWidth) 
            Height = GetGadgetItemAttribute(#GADGET_MDI, Item, #PB_MDI_ItemHeight)          
            SelectElement(MDIWindow(), Item) 
          ElseIf Type = #PB_EventType_CloseItem 
            Item = GetGadgetState(#GADGET_MDI)          
            RemoveGadgetItem(#GADGET_MDI, Item) 
            DeleteElement(MDIWindow())          
          EndIf 
        Case 101 
          FreeGadget(500) 
          ResizeGadget(#GADGET_MDI,5, 30, 810, 500) 
          UseWindow(#WINDOW) 
          x = WindowX() 
          y = WindowY() 
          slam=OpenWindow(1,x+3,y+80,110,500,#PB_Window_BorderLess| #WS_BORDER,"",WindowID(#WINDOW)) 
          SetWindowStyles(1,#WS_VISIBLE |#PB_Window_TitleBar| #WS_BORDER,#WS_EX_TOOLWINDOW) 
          SetWindowLong_(WindowID(1),#GWL_EXSTYLE,#WS_EX_TOOLWINDOW|#ws_child) 
          SendMessage_(slam, #WM_NCLBUTTONDOWN, #HTCAPTION, 0) 
          CreateGadgetList(WindowID(1)) 
          ButtonGadget(100, 10, 15, 80, 24,"Docked") 
          ButtonGadget(101, 10, 45, 80, 24,"Tool Window") 
          CloseGadgetList() 
        Case 100 
          CloseWindow(1) 
          ResizeGadget(#GADGET_MDI,110, 30, 700, 500) 
          UseGadgetList(WindowID(#WINDOW)) 
          ContainerGadget(500,0,30,110,500,#PB_Container_Raised) 
          ButtonGadget(100, 10, 15, 80, 24,"Docked") 
          ButtonGadget(101, 10, 45, 80, 24,"Tool Window") 
          CloseGadgetList()     
          EndSelect 
    EndIf 
    
  Until Quit = 1  
EndIf

any suggestions would be helpful, im trying my best to make a cool library. i think that the more we expand PB, the better it will get

Posted: **Wed Apr 14, 2004 5:46 pm**

I've solved the mystery of SetWindowStyle, it is part of the WindowEx library.

http://www.reelmedia.org/cgi-bin/Resour ... 21&search=

You just have to copy the ScreenEx and WindowEx files from the Zip files into the PureLibraries\UserLibraries folder and then it works.

You'll restart to restart the compiler in JAPBE to recognise the new library.

Posted: **Wed Apr 14, 2004 6:04 pm**

localmotion. please not only create a lib but also share the source, that's good learning material for all of us

Posted: **Wed Apr 14, 2004 6:10 pm**

The libraries were actually produced by Roger Beausoleil (VPureBasic) and written in ASM.

The announcement of its release is here:
viewtopic.php?t=2771&highlight=screenex

The link in that post is no longer valid.

Posted: **Wed Apr 14, 2004 7:23 pm**

This WindowEx lib makes no sense imho.
Why do you need a command SetWindowParent() when it is nothing else
than a direct wrapper to SetParent_() ??

Timo

Posted: **Wed Apr 14, 2004 7:30 pm**

its easy to change that in my code, but my point is that adding the ability to have toolwindows that dock or can be freed is kinda cool to have, especially now that we have an MDI gadget. you can have MDI windows that act as your interface for data handling or whatever, and then have toolwindows that contain commands that are executed on whatever MDI window is active. i just noticed this property in excel and other programs, and it was just my idea to introduce it to PB. any other help is welcome.

PureBasic Forums - English

Docking toolwindows with an MDI gadget

Docking toolwindows with an MDI gadget