Panneau déroulant
Publié : 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