PureBoard

Verfasst: **05.07.2009 19:11**

Hallo
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

Beispiel einfacher

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

Verfasst: **06.07.2009 15:33**

Bonjour kernandec

,
schönes Beispiel, ich schätze zwar, dass es dies hier schonmal gibt und im CodeArchiv auch, aber eine weitere Variante ist wohl auch nicht schlecht.

Gehört das nicht eher in Code, Tipps und Tricks?

Verfasst: **06.07.2009 18:15**

hallo danke Andestaf
Du hast Recht ich habe mich, daß Danillo hatte bereits ein Beispiel in codearchiv, aber ich komme nur, mich zu sehen

Mit besten Grüßen

Verfasst: **06.07.2009 20:04**

kernadec hat geschrieben:Ich spreche nicht nur Deutsch, und ich nehme Google Translate.

kernadec hat geschrieben:Du hast Recht ich habe mich, daß Danillo hatte bereits ein Beispiel in codearchiv, aber ich komme nur, mich zu sehen

Joseph Pulitzer hat geschrieben:Schreibe klar, und sie werden es verstehen,
[...]
und vor allem sorgfältig, damit die Klarheit des Geschriebenen sie leiten möge.

Endlich mal jemand, der sich die Worte von Pulitzer zu Herzen genommen hat. Jo haua ha!

Verfasst: **06.07.2009 21:01**

och menno!

*endlich mal verschieb*