PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Remplacer une couleur dans un champ image
Remplacer une couleur dans un champ image
Iniciado por obtuli, 08,ago. 2019 16:27 - 2 respuestas
Miembro registrado
961 mensajes
Publicado el 08,agosto 2019 - 16:27
Bonjour,

J'ai un champ image relié à la base de données.
Sur cette image il y a un ou plusieurs petits rectangles de couleur magenta (avec un autre couleur c'est pareil).

j'essaie de remplacer la couleur magenta par une autre couleur, mais rien ne se passe.
Dans le code, j'ai enlevé la comparaison, et je remplace tous les pixels par la couleur verte.
mais ça ne marche pas.

Avez vous une idée ?

merci

OB

dDébutDessin(IMG_mini,dEffacer)
nAbscisse est un entier = IMG_mini..Largeur
nOrdonnee est un entier = IMG_mini..Hauteur
nCouleur est un entier = MagentaClair
Sablier(Vrai)
POUR i=1 _À_ nOrdonnee
POUR j=1 _À_ nAbscisse
// SI dPixelCouleur(IMG_mini,j,i) = nCouleur ALORS
// dpoint(nAbscisse,nOrdonnee,VertClair)
// FIN
dPoint(nAbscisse,nOrdonnee,VertClair)
FIN
FIN
Sablier(Faux)
Miembro registrado
46 mensajes
Publicado el 15,agosto 2019 - 23:26
Dans le code, remplacer la ligne :
dPoint(nAbscisse,nOrdonnee,VertClair)

par la ligne ci-dessous :
dPoint(j,i,VertClair)
Miembro registrado
961 mensajes
Publicado el 16,agosto 2019 - 10:31
oups ......
J'ai fait un peu n'importe quoi, c'était gros comme une maison (même un immeuble ...)
merci !

OB