Linke Toolbox
Verfasst: 17.04.2005 11:26
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.
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