PureBoard

Verfasst: **16.06.2007 15:56**

Habe hier zwar was gelesen:
http://www.purebasic.fr/german/viewtopi ... bar+rechts

scheint aber nicht das zu sein, was ich gern hätte.
Meine Toolbar ist drei Meter lang und ich würde gern 5 Tools links und 3 rechts haben.

Und dann irgendwie mit der Abfrage, ob ein Fenster resized wird, meine rechten Tools immer an den rechten Rand des Fensters versetzen.

Oder kann ich Tools immer nur von Links auffüllen?
Dann würde ich gern Seperatoren, die man nicht sieht benutzen und müsste dann den Abstand quasi von Links berechnen.

Code: Alles auswählen

; Autor: Folker Linstedt
; 2007|06|16

Procedure StretchToolBar(WindowID, ToolbarID)
  If IsWindow(WindowID)
  
    If IsToolBar(ToolbarID)
      FreeToolBar(ToolbarID)
    EndIf 
    If CreateToolBar(ToolbarID, WindowID(WindowID))
      ToolBarStandardButton(0, #PB_ToolBarIcon_New)
      ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
      ToolBarSeparator()
      ToolBarStandardButton(3, #PB_ToolBarIcon_Print)
      ToolBarToolTip(0, 3, "Print")
      ToolBarStandardButton(4, #PB_ToolBarIcon_Find)
      ToolBarToolTip(0, 4, "Find a document")
      ToolBarSeparator()
      x=WindowWidth(WindowID)
      Debug x
      i=150; Buttons + Seperators
      A=10
      While i<x 
        A+1
        Debug A-10
        ToolBarImageButton(A,0) ; ab 11 dürfen keine ToolBarButtonIDs vergeben sein
        DisableToolBarButton(ToolbarID,A,1)
        i+23 ; Rund
      Wend
     ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
    EndIf 
  EndIf
EndProcedure



If OpenWindow(0, 100, 200, 200, 260, "ToolBar example", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
  
  StretchToolBar(0,0) 
  
  
  If CreateMenu(0, WindowID(0))
    MenuTitle("Project")
    MenuItem(0, "New")
    MenuItem(1, "Open")
    MenuItem(2, "Save")
  EndIf
  
  
  Repeat
    EventID = WaitWindowEvent()
    
    Select EventID
      
      Case #PB_Event_Menu
        MessageRequester("Information", "ToolBar or Menu ID: "+Str(EventMenu()), 0)
        
      Case #PB_Event_SizeWindow
        StretchToolBar(0,0)
        
      Case #PB_Event_CloseWindow
        Quit = 1
        
    EndSelect
    
  Until Quit = 1
  
EndIf

End

Gibt es eine schönere Möglichkeit?

PureBoard

Toolbar Knöpfe auch rechts?

Toolbar Knöpfe auch rechts?