Skin gadget

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Benutzeravatar
kernadec
Beiträge: 25
Registriert: 05.07.2009 17:51

Skin gadget

Beitrag von kernadec »

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 
Zuletzt geändert von kernadec am 06.07.2009 18:17, insgesamt 1-mal geändert.
Andesdaf
Moderator
Beiträge: 2658
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

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?
Win11 x64 | PB 6.00 (x64)
Benutzeravatar
kernadec
Beiträge: 25
Registriert: 05.07.2009 17:51

Beitrag von kernadec »

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
Little John

Beitrag von Little John »

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!
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

och menno!

*endlich mal verschieb*
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Antworten