; ~~~~~~2D Map Editor~~~~~~ ; ****Author: Tobias S.**** ; ****Release: 0.0.1 ***** ; ***Copyright: Tobias S. 2008* ; **********************************ALS NÄCHSTES:********************************** ;******************************Verzeichnis ermitteln******************************* ;**********************************Alle Bilder automatisch laden******************* ;**********************************|_> For Schleife******************************** ;**********************************Bilder in Level einfügen************************ ;**********************************|_> in 32x32 oder 64x64 Bereiche**************** ;{ Initialisierungen InitSprite () InitMouse () InitKeyboard() UseJPEGImageDecoder() Enumeration #MainWindow #Menue #New_Project #Save_Project #Load_Project #Close #Load_Tiles #Refresh_Map #Settings #Explorer #TextGadget #ListIcon #Image EndEnumeration ;} ;{ Fenster ;######################################################################################################## If OpenWindow(#MainWindow, 200, 200, 800, 600, "2D Map Editor", #PB_Window_ScreenCentered |#PB_Window_Maximize | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SystemMenu) ;#########################Erstelle Menü################################################################## If CreateMenu(#Menue, WindowID(0)) MenuTitle ("Projekt") MenuItem(#New_Project , "Neues Projekt" ) MenuItem(#Save_Project, "Projekt Speichern" ) MenuItem(#Load_Project, "Projekt Laden" ) MenuItem(#Close , "Beenden" ) MenuTitle ("Level" ) MenuItem(#Load_Tiles , "Tiles laden" ) MenuItem(#Refresh_Map , "Refresh Map" ) MenuTitle ("Einstellungen" ) MenuItem(#Settings , "Einstellungen" ) EndIf ;#########################Ermittle Fensterhöhe und Fensterbreite######################################### Width = WindowWidth (#MainWindow) ;Breite Height = WindowHeight(#MainWindow) ; Höhe ;#########################Erstelle Toolbar############################################################### ; If CreateToolBar(0, WindowID(0)) ; ToolBarStandardButton(0, #PB_ToolBarIcon_New) ; ToolBarStandardButton(1, #PB_ToolBarIcon_Open) ; ToolBarStandardButton(2, #PB_ToolBarIcon_Save) ; EndIf ;#########################Öffne Fenster in Fenster (Level)############################################### If OpenWindowedScreen(WindowID(0), Width*0.2, Height*0, Width*0.8, Height*1, 0, 0, 0) EndIf ;#########################Erstelle Gadgets############################################################### If CreateGadgetList(WindowID(0)) ExplorerTreeGadget(#Explorer , Width*0, Height*0, Width*0.19, Height*0.2, "", #PB_Explorer_BorderLess| #PB_Explorer_NoFiles) ListIconGadget (#ListIcon , Width*0, Height*0.2, Width*0.2, Height*0.8, "", Width*0.2) ; HAUPTPROGRAMM !! Repeat Event = WaitWindowEvent() Select Event Case #PB_Event_Gadget Select EventGadget() Case #Explorer ClearGadgetItemList(#ListIcon) Verzeichnis$ = GetGadgetText(#Explorer) Debug Verzeichnis$ If ExamineDirectory(0, Verzeichnis$, "*.BMP|*.PNG") While NextDirectoryEntry(0) If DirectoryEntryType(0) = #PB_DirectoryEntry_File Image = LoadImage(#PB_Any, Verzeichnis$+DirectoryEntryName(0)) AddGadgetItem(#ListIcon, -1, DirectoryEntryName(0), ImageID(Image)) EndIf Wend FinishDirectory(0) EndIf EndSelect Case #PB_Event_Menu ;... EndSelect Until Event = #PB_Event_CloseWindow EndIf EndIf ;<-- Zu If OpenWindw() ;######################################################################################################## ;} ;{ Verzeichnis Ermitteln + Bilder laden ;#########################Verzeichnis des ExplorerGadgets ermitteln+Bilder laden######################### ;} ; IDE Options = PureBasic 4.20 (Windows - x86) ; CursorPosition = 94 ; FirstLine = 63 ; Folding = -