Linke Toolbox

[oliXon]

Ich habe ein Problem ich möchte wie in MS-Paint eine linke Toolbox erstellen die an/ausgeschalten werden kann. Nur leider weiss ich irgenwie nicht wie ich diese Toolbox erstellen soll. habe im forum und mir jeden code schnippsel auf http://www.purearea.net/ angeschaut aber nix passendes gefunden :/

Danke im vorraus.

Code: Alles auswählen

Procedure ChangeAppIcon(Image$)
  hIco=LoadImage(0,Image$)
  SetClassLong_(WindowID(),#GCL_HICON,hIco)
EndProcedure

Enumeration
  #MENU_FirstMDI
EndEnumeration

#GADGET_MDI = 0

If OpenWindow(0,0,0,800,600,#PB_Window_Screencentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget,"Game Strategy Planer v.0.00a")
  
  ChangeAppIcon(".\myicon.ico") ;Programm Icon
  
    If CreateGadgetList(WindowID())
  EndIf 
  
If CreateMenu(0, WindowID())
  MenuTitle("Datei")
    MenuItem(5, "Neu"+Chr(9)+"Strg+N")
    MenuItem(5, "Öffnen...")
    MenuItem(5, "Speichern..")
  MenuTitle("Bearbeiten")
  MenuTitle("Einstellungen")
  MenuTitle("Hilfe")
  MenuItem(5, "Hilfe...")
  MenuItem(6, "Infos...")
EndIf

If CreateToolBar(0, WindowID())
  ToolBarStandardButton(1, #PB_ToolBarIcon_New)
  ToolBarStandardButton(2, #PB_ToolBarIcon_Open)
  ToolBarStandardButton(3, #PB_ToolBarIcon_Save)
  ToolBarSeparator()
  ToolBarStandardButton(4, #PB_ToolBarIcon_print)
  ToolBarImageButton(5, LoadImage(0, "Data\NewProject.ico"))
EndIf

  If CreateGadgetList(WindowID())
    MDIGadget(#GADGET_MDI, 0, 0, 0, 0, 1, #MENU_FirstMDI, #PB_MDI_Autosize)
  EndIf 

Repeat
  EventID = WaitWindowEvent()

  If EventID = #PB_Event_CloseWindow 
    Quit = 1
  EndIf

  If EventMenuID()=5
    MessageRequester("","Programmende!",0)
     End
  EndIf 

  If EventID=#PB_EventGadget
    If EventGadgetID()=2
      Quit=1
    EndIf
  EndIf
Until Quit=1

EndIf
End

[Danilo]

Ich habe ein Problem ich möchte wie in MS-Paint eine linke Toolbox erstellen die an/ausgeschalten werden kann.

Schau Dir mal ToolbarPro aus den PureTools an (siehe Signatur),
da ist auch gleich ein Beispiel für eine Paint-Toolbox dabei.