Schongewusst99 hat geschrieben:Und weg sind sie^^.
Vernünftig einrücken, Images auch enummerieren und dann wirds langsam:
Code: Alles auswählen
;--Start--;
IncludeFile "database.pb"
;--Globales--;
Global Inhalt.s
;------------------------------
;----Aufzählungen Constants----;
;--Windows--;
Enumeration
#Window_Startseite
EndEnumeration
;--Gadgets--;
Enumeration
#Image_0
#Image_1
#Frame_0
#Gadget_Inhalt
EndEnumeration
;--Images--;
Enumeration
#imgCover
#imgUSK
EndEnumeration
;------------------------------
;--Plugins--;
UseJPEGImageDecoder()
;------------------------------
;--Images Fangen--;
CatchImage(#imgCover, ?Image0)
CatchImage(#imgUSK, ?Image1)
;------------------------------
;--ImagePfade--;
;-USK18
DataSection
Image1:
IncludeBinary "..\338.jpg"
EndDataSection
;-Cover
DataSection
Image0:
IncludeBinary "..\farcry2.jpg"
EndDataSection
;------------------------------
;------------------------------
;------------------------------
;MEIN FENSTER--;
If OpenWindow(#Window_Startseite, 0, 0, 800, 800, "Gamez", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) = 0
EndIf
ImageGadget(#Image_0, 10, 10, 520, 700, ImageID(#imgCover))
ImageGadget(#Image_1, 620, 270, 80, 80, ImageID(#imgUSK))
Frame3DGadget(#Frame_0, 535, 5, 255, 250, "Game Content")
TextGadget(#Gadget_Inhalt, 540, 20, 245, 250, farcry2\gamecontent)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
;------------------------------
;------------------------------
;------------------------------
