Panneau déroulant

Jacobus · Message par **Jacobus** » dim. 31/oct./2004 21:08

Salut à vous tous,
Juste un petit passage pour vous faire part de
cette petite astuce que j'utilise pour créer des
fenêtres à tiroirs...ou des volets cacheurs...ou
des rideaux pour mes fenêtres...etc

C'est pas optimisé mais très simple à utiliser
Donc si vous avez des commentaires ou des astuces
pour l'arranger, allez y.

Code : Tout sélectionner

;Effet de Panneau déroulant - Jacobus - PB V3.92
;[b]Utilisation de la librairie de Denis => /MoreGadgetColor/[/b]
;Avec laquelle les effets de couleurs permettent de créer
;toutes sortes de volets roulants... normal pour les fenêtres.
;************************************************************
Enumeration 
#window
#text1
#text2
#text3
#text4
#text5
#text6
#text7
#text8
#text9
#text10
#text11
#text12
#text13
#text14
#btn_open
#hide_button_close
#hello_1
EndEnumeration 

If OpenWindow(#window,0,0,300,310,#PB_Window_SystemMenu|#PB_Window_ScreenCentered| #PB_Window_MinimizeGadget| #PB_Window_Invisible,"RIDEAU DE FER") And CreateGadgetList(WindowID(0))

CouleurFond = CreateSolidBrush_(RGB($C0,$CC,$D8))
  SetClassLong_(WindowID(0), #GCL_HBRBACKGROUND, CouleurFond) 
   DeleteObject_(CouleurFond) 
    HideWindow(0, 0)

 TextGadget(#text1,10,10,280,20,"")
 SetGadgetColor(#Text1, #white, RGB(110, 130, 205))
 
 TextGadget(#text2,10,30,280,20,"")
 SetGadgetColor(#Text2, #white, RGB(110, 130, 205))
 TextGadget(#text3,10,50,280,20,"Qu'est-ce qu'il y a",#PB_Text_center)
 SetGadgetColor(#Text3, #white, RGB(110, 130, 205))
 TextGadget(#text4,10,70,280,20,"sous ce panneau ?",#PB_Text_center)
 SetGadgetColor(#Text4, #white, RGB(110, 130, 205))
 TextGadget(#text5,10,90,280,20,"")
 SetGadgetColor(#Text5, #white, RGB(110, 130, 205))
 TextGadget(#text6,10,110,280,20,"Pour le savoir",#PB_Text_center)
 SetGadgetColor(#Text6, #white, RGB(110, 130, 205))
 TextGadget(#text7,10,130,280,20,"cliquez sur le bouton",#PB_Text_center)
 SetGadgetColor(#Text7, #white, RGB(110, 130, 205))
 TextGadget(#text8,10,150,280,20,"")
 SetGadgetColor(#Text8, #white, RGB(110, 130, 205))
 TextGadget(#text9,10,170,280,20,"")
 SetGadgetColor(#Text9, #white, RGB(110, 130, 205))
 TextGadget(#text10,10,190,280,20,"")
 SetGadgetColor(#Text10, #white, RGB(110, 130, 205))
 TextGadget(#text11,10,210,280,20,"")
 SetGadgetColor(#Text11, #white, RGB(110, 130, 205))
 TextGadget(#text12,10,230,280,20,"")
 SetGadgetColor(#Text12, #white, RGB(110, 130, 205))
 TextGadget(#text13,10,250,280,20,"")
 SetGadgetColor(#Text13, #white, RGB(110, 130, 205))
 TextGadget(#text14,10,270,280,20,"")
 SetGadgetColor(#Text14, #white, RGB(110, 130, 205))
 
 ButtonGadget(#btn_open,10,295,280,15,"Ouvrir le rideau")
 ButtonGadget(#hide_button_close,50,50,200,20,"Refermer le rideau")
  HideGadget(#hide_button_close,1)
  
 TextGadget(#hello_1,50,100,200,30,"HELLO WORLD !",#PB_Text_center)
  SetGadgetColor(#hello_1, RGB($E8,$3C,$30), RGB($C0,$CC,$D8))
  HideGadget(#hello_1,1) 
 Repeat 
   
    EventID = WaitWindowEvent()       
      If EventID = #PB_EventGadget      
        Select EventGadgetID()
        
       Case #btn_open
        HideGadget(#text14,1)
         Delay(50)
        HideGadget(#text13,1)
         Delay(50)
        HideGadget(#text12,1)
         Delay(50)
        HideGadget(#text11,1)
         Delay(50)
        HideGadget(#text10,1)
         Delay(50)
        HideGadget(#text9,1)
         Delay(50)
        HideGadget(#text8,1)
         Delay(50)
        HideGadget(#text7,1)
         Delay(50)
        HideGadget(#text6,1)
         Delay(50)
        HideGadget(#text5,1)
         Delay(50)
        HideGadget(#text4,1)
         Delay(50)
        HideGadget(#hide_button_close,0)
        HideGadget(#hello_1,0)
        HideGadget(#text3,1)
         Delay(50)
        HideGadget(#text2,1)
         Delay(50)
        HideGadget(#text1,1)
         
       
       Case #hide_button_close 
            HideGadget(#hide_button_close,1)
            HideGadget(#hello_1,1)
            
            HideGadget(#text1,0)           
            HideGadget(#text2,0)             
            HideGadget(#text3,0)              
            HideGadget(#text4,0)       
            HideGadget(#text5,0)              
            HideGadget(#text6,0)              
            HideGadget(#text7,0)            
            HideGadget(#text8,0)            
            HideGadget(#text9,0)             
            HideGadget(#text10,0)              
            HideGadget(#text11,0)             
            HideGadget(#text12,0)              
            HideGadget(#text13,0)              
            HideGadget(#text14,0)
      
       
       Case #PB_Event_CloseWindow : Quit=1
       
   EndSelect 
  EndIf        
 Until EventID=#PB_Event_CloseWindow 
 Quit=1 
 EndIf 
End

@+ Jacobus