Gibt es eine bestimmte Größe, die die Bilder haben müssen?(Bei mir im Moment 16x16 Pixel und im Png Format)
Hier mal der Code:
Code: Alles auswählen
UsePNGImageDecoder()
DataSection
new:
IncludeBinary "page.png"
open:
IncludeBinary "folder.png"
save:
IncludeBinary "disk.png"
html:
IncludeBinary "html.png"
text:
IncludeBinary "text.png"
exit:
IncludeBinary "cross.png"
EndDataSection
CatchImage(0,?new)
CatchImage(1,?open)
CatchImage(2,?save)
CatchImage(3,?html)
CatchImage(4,?text)
CatchImage(5,?exit)
Enumeration
#hwindow
#neu
#offnen
#speichern
EndEnumeration
OpenWindow(#hwindow,200,200,800,600,"Html-Editor",#PB_Window_ScreenCentered | #PB_Window_SystemMenu)
CreateImageMenu(#menu,WindowID(#hwindow),#PB_Menu_ModernLook)
MenuTitle("Datei")
MenuItem(#neu,"Neu"+Chr(9)+"Strg + N",ImageID(0))
MenuItem(#offnen,"Öffnen"+Chr(9)+"Strg + O",ImageID(1))
MenuItem(#speichern,"Speichern"+Chr(9)+"Strg + S",ImageID(2))
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow