eine kleine Idee für die Fenster und Dialoge mit Gadgets
Das Gadget muss déclaté zwei X
für die Fusion der Farben in dem Dialogfeld. viel Spaß
Ich spreche nicht nur Deutsch, und ich nehme Google Translate.
Mit besten Grüßen
Code: Alles auswählen
;#############################################
;### Kernadec 7/2009 french ####
;### Skin gadget ####
;#############################################
OpenWindow(0, 0, 0, 550, 550,"Fenster", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateImage(0, WindowWidth(0), WindowHeight(0))
ContainerGadget(1, 19, 19, 508, 508 ,#PB_Container_Double)
StartDrawing(ImageOutput(0))
DrawingMode(1)
For n = 0 To 255
;Box(0,n*6,512,3,RGB(n,n,n))
;Box(0,n*5,512,5,RGB(255-n,255-n,255))
;Box(0,n*10,512,10,RGB(255-n,255-n,255))
;Box(0,n*8,512,8,RGB(255-n,255-n,255))
Box(0,n*3,512,3,RGB(n,n,255-n))
;Box(0,n*3,512,3,RGB(n,255-n,n))
;Box(0,n*3,512,3,RGB(255-n,n,n))
Next
StopDrawing()
ButtonGadget(2, 40, 40, 80, 20 ,"Test",#PB_Button_Toggle)
ButtonGadget(4, 200, 40, 80, 20 ,"Test",#PB_Button_Toggle)
ButtonGadget(6, 40, 200, 80, 20 ,"Verlassen",#PB_Button_Toggle)
StringGadget(8, 200, 200, 80,20,"Hallo")
ImageGadget(0,0,0,ImageWidth(0), ImageHeight(0), ImageID(0))
Ergebnis= UseGadgetList(GadgetID(0))
ButtonGadget(3, 40, 40, 80, 20 ,"Test",#PB_Button_Toggle)
ButtonGadget(5, 200, 40, 80, 20 ,"Test",#PB_Button_Toggle)
ButtonGadget(7, 40, 200, 80, 20 ,"Verlassen",#PB_Button_Toggle)
StringGadget(9, 200, 200, 80,20,"Hallo")
UseGadgetList(Ergebnis)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 2
Debug "Erfolgreich2"
Case 4
Debug "Erfolgreich4"
Case 6
Debug "Verlassen6"
End
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
Code: Alles auswählen
;#############################################
;### Danillo methode ####
;### Skin gadget ####
;#############################################
OpenWindow(0, 0, 0, 550, 550,"Fenster", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateImage(0, WindowWidth(0), WindowHeight(0))
ContainerGadget(1, 19, 19, 508, 508 ,#PB_Container_Double)
StartDrawing(ImageOutput(0))
DrawingMode(1)
For n = 0 To 255
;Box(0,n*6,512,3,RGB(n,n,n))
Box(0,n*5,512,5,RGB(255-n,255-n,255))
;Box(0,n*10,512,10,RGB(255-n,255-n,255))
;Box(0,n*8,512,8,RGB(255-n,255-n,255))
;Box(0,n*3,512,3,RGB(n,n,255-n))
;Box(0,n*3,512,3,RGB(n,255-n,n))
;Box(0,n*3,512,3,RGB(255-n,n,n))
Next
StopDrawing()
ImageGadget(0,0,0,ImageWidth(0), ImageHeight(0), ImageID(0))
DisableGadget(0,1)
ButtonGadget(2, 40, 40, 80, 20 ,"Test",#PB_Button_Toggle)
ButtonGadget(3, 200, 40, 80, 20 ,"Test",#PB_Button_Toggle)
ButtonGadget(4, 40, 200, 80, 20 ,"Verlassen",#PB_Button_Toggle)
StringGadget(5, 200, 200, 80,20,"Hallo")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 2
Debug "Erfolgreich2"
Case 3
Debug "Erfolgreich4"
Case 4
Debug "Verlassen6"
End
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver