Problème graphique sur ScroolAreaGadget

omega · Message par **omega** » sam. 03/nov./2012 17:40

Bonjour,

Je ne comprends pas pourquoi rien ne s'affiche sur mon ScroolAreaGadget??
J'utilise une image (à blanc) pour dessiner les graphiques.

Merci

Code : Tout sélectionner

  
;-------------------------------- Enumeration ------------------------
 
Enumeration
#WinCpte
#PanCpte
 
#ImgAp
 
#CpteGLAC_Titre
#CpteGLAC_Frame
#CpteGLAC_FrameCF
#CpteGLAC_OptionClient
#CpteGLAC_OptionFour
 
#CpteGLAC_FrameOption
#CpteGLAC_TxtCpteDebut
#CpteGLAC_ComboCpteDebut
#CpteGLAC_TxtCpteFin
#CpteGLAC_ComboCpteFin
#CpteGLAC_CheckAllCpte
 
#CpteGLAC_FramePeriode
#CpteGLAC_TxtDateDebut
#CpteGLAC_DateDebut
#CpteGLAC_TxtDateFin
#CpteGLAC_DateFin
 
#CpteGLAC_Afficher
#CpteGLAC_Imprimer
 
#CpteGLAC_TxtNumCpte
#CpteGLAC_NumCpte
#CpteGLAC_LibCpte
#CpteGLAC_PreviousCpte
#CpteGLAC_NextCpte
 
#CpteGLAC_TxtNumCpte1
#CpteGLAC_NumCpte1
#CpteGLAC_LibCpte1
 
#CpteGLAC_TxtNumCpte2
#CpteGLAC_NumCpte2
#CpteGLAC_LibCpte2
 
#CpteGLAC_TxtNumCpte3
#CpteGLAC_NumCpte3
#CpteGLAC_LibCpte3
 
#CpteGLAC_Grid1
#CpteGLAC_Grid2
#CpteGLAC_Grid3
 
#CpteGLAC_TxtTotal
 
#CpteGLAC_FrameAncienSolde
#CpteGLAC_TextAncienSoldeD
#CpteGLAC_AncienSoldeD
#CpteGLAC_TextAncienSoldeC
#CpteGLAC_AncienSoldeC
 
#CpteGLAC_FrameMVT
#CpteGLAC_TextMvtD
#CpteGLAC_MvtD
#CpteGLAC_TextMvtC
#CpteGLAC_MvtC
 
#CpteGLAC_FrameCum
#CpteGLAC_TextCumD
#CpteGLAC_CumD
#CpteGLAC_TextCumC
#CpteGLAC_CumC
 
#CpteGLAC_FrameSolde
#CpteGLAC_TextSoldeD
#CpteGLAC_SoldeD
#CpteGLAC_TextSoldeC
#CpteGLAC_SoldeC
 
#CpteGLAC_FrameProg
#CpteGLAC_Prog
 
EndEnumeration
 
;------------------------------ data section -----------------------------
UseJPEGImageDecoder()
 
ImgAp=CatchImage(400, ?ImgAp)
 
DataSection
Imgap:
IncludeBinary "imgap.jpg"
EndDataSection
 
;------------------------------ Open windows----------------------------
ExamineDesktops()
Wlargeur=DesktopWidth(0)
Whauteur=DesktopHeight(0)
 
OpenWindow(#WinCpte, 0,0, Wlargeur, Whauteur, "Comptabilité...",#PB_Window_SystemMenu |#PB_Window_ScreenCentered | #PB_Window_TitleBar |#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget)
If CreateGadgetList(WindowID(#WinCpte))
 
   WLar=Wlargeur-10:WHaut=Whauteur-100 
 
   PanelGadget(#PanCpte, 10,10, WLar, WHaut)
 
  ;********************************************************************************************
   AddGadgetItem (#PanCpte, -1, " Grand livre auxiliaire client")
 
   TextGadget(#CpteGLAC_Titre, 20, 30, 400, 30, "GRAND LIVRE AUXILIAIRE CLIENT")
 
   wrow=60
   Frame3DGadget(#CpteGLAC_Frame, 10, wrow, 550,40, "Comptes à afficher")
   TextGadget(#CpteGLAC_TxtCpteDebut, 20, wrow+15, 100, 20,"N° de cpte début:")
   ComboBoxGadget(#CpteGLAC_ComboCpteDebut, 120, wrow+15, 90, 100,  #PB_ComboBox_Editable  |#PB_ComboBox_UpperCase)
   TextGadget(#CpteGLAC_TxtCpteFin, 220, wrow+15, 100, 20,"N° de cpte fin:")
   ComboBoxGadget(#CpteGLAC_ComboCpteFin, 300, wrow+15, 90, 100,  #PB_ComboBox_Editable  |#PB_ComboBox_UpperCase)
   CheckBoxGadget(#CpteGLAC_CheckAllCpte, 400, wrow+15, 140, 20,"Afficher tous les comptes")
 
   Frame3DGadget(#CpteGLAC_FrameOption, 570, wrow, 280,40, "Période")
   TextGadget(#CpteGLAC_TxtDateDebut, 580, wrow+18, 40, 20,"Du:")
   DateGadget(#CpteGLAC_DateDebut, 610, wrow+15, 90, 20)
   TextGadget(#CpteGLAC_TxtDateFin, 710, wrow+18, 40, 20, "AU:")
   DateGadget(#CpteGLAC_DateFin, 750, wrow+15, 90, 20)
 
   ButtonGadget(#CpteGLAC_Afficher,860, wrow+8, 100, 30, "Afficher")
 
   ScrollAreaGadget(0, 10, wrow+60, WLar-50, WHaut-200, WLar-100, WHaut+5000, 30)
 
   ImageGadget(#Imgap, 15,20,Wlar-60, WHaut-210,ImageID(400)) 
 
   AddGadgetItem (#PanCpte, -1, " FERMER ");***************************************************
 
EndIf
 
If LoadFont(10, "DicotLight", 8)
   SetGadgetFont(#PanCpte, FontID(10))
EndIf
 
If LoadFont(1, "Trebushet ms", 13,#PB_Font_Bold)
   SetGadgetFont(#CpteGLAC_titre, FontID(1))
EndIf
 
wQuitWinCpte=0
 
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
   Select EventGadget()
 
   Case #CpteGLAC_Afficher
 
        If StartDrawing(ImageOutput(400))
           DrawingMode(#PB_2DDrawing_Default) 
           DrawText(100,100,"Please help me !",RGB(219, 27, 36))
           LineXY(100,140,700,140,RGB(21, 27, 236))
           StopDrawing()  
        EndIf 
 
 
   Case #PanCpte
        n=GetGadgetState(#PanCpte)
        If n=1
           wQuitWinCpte=1
        EndIf
 
   EndSelect
EndIf   
Until EventID = #PB_Event_CloseWindow  Or wQuitWinCpte=1
CloseWindow(#WinCpte)

A noter que l'image est une surface blanche qui ne contient rien...

falsam · Message par **falsam** » sam. 03/nov./2012 18:24

Supprime If CreateGadgetList(WindowID(#WinCpte)) Ligne 98 et son endif ligne 132 car c'est devenu obsolete.

Apres

Code : Tout sélectionner

ImageGadget(#Imgap, 15,20,Wlar-60, WHaut-210,ImageID(400))

ajoute

Code : Tout sélectionner

CloseGadgetList()

Quand tu cliques sur le bonton #CpteGLAC_Afficher Le dessin s'effectue bien mais n'est pas mis à jour.
Aprés

Code : Tout sélectionner

If StartDrawing(ImageOutput(400))
           DrawingMode(#PB_2DDrawing_Default) 
           DrawText(100,100,"Please help me !", RGB(219, 27, 36))
           LineXY(100,140,700,140,RGB(21, 27, 236))
           StopDrawing()  
        EndIf

ajoute

Code : Tout sélectionner

SetGadgetState(#Imgap, ImageID(400))

Pour le texte utilises plutot

Code : Tout sélectionner

DrawingMode(#PB_2DDrawing_Transparent)

omega · Message par **omega** » mar. 06/nov./2012 21:08

Bonjour Falsam et merci beaucoup pour ton aide précieuse !

J'essayerai demain pour faire les tests.

Merci beaucoup

PureBasic

Problème graphique sur ScroolAreaGadget

Problème graphique sur ScroolAreaGadget

Re: Problème graphique sur ScroolAreaGadget

Re: Problème graphique sur ScroolAreaGadget