Défi 2013

[SPH]

Coder l'instruction PEINTURE

[Ar-S]

gné Tu peux être encore moins précis SPH ?

Tiens en voilà une.

Code : Tout sélectionner

Macro Ma : Macro : EndMacro
Ma La : Procedure : EndMacro
La Peinture(seche) : Debug Chr(78)+Chr(101)+Chr(32)+Chr(112)+Chr(97)+Chr(115)+Chr(32)+Chr(116)+Chr(111)+Chr(117)+Chr(99)+Chr(104)+Chr(101)+Chr(114)+Chr(32)+Chr(32)+Chr(231)+Chr(97)+Chr(32)+Chr(115)+Chr(101)+Chr(99)+Chr(104)+Chr(101) : EndProcedure
Peinture(seche)

[G-Rom]

tu as pris un acide et t'es resté collé sph ?

[Ar-S]

@G-ROM,

Plus sérieusement tu parles du "Pot de peinture" pour colorier une zone dans une image ? Parce que là comment dirai je, j'ai eu beau chercher le sens profond de ces quelques mots, je reste comme une paramécie devant une grille de sudoku.

[graph100]

[SPH]

Plus sérieusement tu parles du "Pot de peinture" pour colorier une zone dans une image ?

oui

[G-Rom]

FillColor() ne fait pas l'affaire... ?
tu me fait penser à un sketch du type qui rentre dans une boulangerie :
toi : - Bonjour , je voudrais.
le boulanger : - gné??

t'es inscrit depuis le 23 Août 2004 quand même , tu devrais connaitre un minimum les commandes de pb & avoir un mode de communication avec tes semblables à jour.
parceque parlé en rébus , c'était valable chez les néandertaliens , c'était facile à l'époque , quand tu dessines une bite au fond de la grotte , la petite lucy sait qu'elle va se faire pété les pattes arrières , mais aujourd'hui on est plus des "bête"

[Kwai chang caine]

[MLD]

mais aujourd'hui on est plus des "bête

Quoi que

[SPH]

FillColor() ne fait pas l'affaire... ?

Je suis encore a la version 5.0 et il n'y a pas cette instruction.

[G-Rom]

la vache... je me suis trompé , c'est FillArea()...

[SPH]

la vache... je me suis trompé , c'est FillArea()...

Ha, en effet, j'ai bien cette instruction. Je ne sais pas quand elle a ete implementé dans PB mais je ne l'avais jamais vu. Peut etre parce que je m'attendais a une instruction Paint(x,y,c)

[Backup]

voici la Version APi Windows de FillAera()

Code : Tout sélectionner

Procedure remplis(*hdc,x,Y,couleur_remplissage)
    pinceau=CreateSolidBrush_(couleur_remplissage)
    If pinceau
        AncienneBrush = SelectObject_(*hdc,pinceau)
        If AncienneBrush
            ExtFloodFill_(*hdc,x,Y,GetPixel_(*hdc,x,Y),#FLOODFILLSURFACE)
            SelectObject_(*hdc,AncienneBrush)
        EndIf
        DeleteObject_(pinceau)
    EndIf
  EndProcedure

[comtois]

Et la version code PureBasic

http://www.purebasic.fr/french/viewtopic.php?f=6&t=3111

Par contre MouseDeltaX() et MouseDeltaY() ne fonctionnent pas très bien chez moi avec la 5.11. Je dois faire des grands mouvements avec la souris pour tracer une ligne (bouton gauche appuyé).
Si je déplace la souris doucement je n'ai pas une ligne continue
Je ne sais pas si c'est lié à la configuration de ma souris ? ou autre ?

ça fonctionne bien pour vous ?

[Backup]

non pareil ... ça pointille