[Resolu]Petit soucis de BoxedGradient
Publié : dim. 24/mars/2019 22:16
Salut
Il m'arrive un truc surement tout con mais qui commence à prendre plus de temps qu'il ne mérite.
Je veux créer un carré avec un dégradé allant de BAS_GAUCHE couleur $505050 à HAUT_DROIT couleur $FFFFFF
Cependant je me retrouve avec une image toute noire... Il me semble pourtant avoir bien adapté l'exemple de la doc.
Ou me trompe-je ?
D'avance merci
Il m'arrive un truc surement tout con mais qui commence à prendre plus de temps qu'il ne mérite.
Je veux créer un carré avec un dégradé allant de BAS_GAUCHE couleur $505050 à HAUT_DROIT couleur $FFFFFF
Cependant je me retrouve avec une image toute noire... Il me semble pourtant avoir bien adapté l'exemple de la doc.
Ou me trompe-je ?
D'avance merci
Code : Tout sélectionner
Procedure CreatGradi()
Protected LC = 400, HC = 256
CreateImage(10,LC,HC)
StartDrawing(ImageOutput(10))
DrawingMode(#PB_2DDrawing_Gradient)
BackColor($505050)
FrontColor($FFFFFF)
BoxedGradient(0,0,LC,HC)
StopDrawing()
EndProcedure
CreatGradi()
If OpenWindow(0, 0, 0, 400, 256, "BoxedGradient", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ImageGadget(1, 0, 0, 400, 256, ImageID(10))
EndIf
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow