PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WEBDEV 2024 → ZR et Images
ZR et Images
Iniciado por Olivier DEVILLERS, 15,oct. 2004 14:21 - 2 respuestas
Publicado el 15,octubre 2004 - 14:21
Bonjour,

Je tente d'effectuer un Album Photos .....
Dans une ZR (Zone Repetée) je veux donc mettre 3 images par repetition (et
un libelle correspondant a chaque image)
J'ai un fichier qui contient une image par enreg. au format image (memo
image)
je programme donc ma ZR pour lire les enregs de mon fichier 3 par 3 (Code de
l'init de la ZR ci dessous)

Problème :
L'affichage des libellés est correct par contre sur chaque repetition les
images sont identiques et correspondent à la 1ere image de la
répetition.......... alors que dans le fichier les images sont bien
différentes (vu avec WDMAP)

Si vous avez une idée elle sera la bienvenue ..........
Merci
Olivier

lib1,lib2,lib3 sont des chaînes
img1,img2,img3 sont des Variants
i est un entier

ZoneRépétéeSupprimeTout(MoiMême)
HLitPremier(IALBUM,IMGREF)
TANTQUE PAS HEnDehors()
i++
SI i=4 ALORS
ZoneRépétéeAjouteLigne(MoiMême,lib1,img1,lib2,img2,lib3,img3)
i=1
{"lib"+NumériqueVersChaine(i)}=IALBUM.IMGTITRE
{"img"+NumériqueVersChaine(i)}=IALBUM.Imgvignette
SINON
{"lib"+NumériqueVersChaine(i)}=IALBUM.IMGTITRE
{"img"+NumériqueVersChaine(i)}=IALBUM.Imgvignette
FIN
HLitSuivant(IALBUM,IMGREF)
FIN
SI i<>0 ALORS
ZoneRépétéeAjouteLigne(MoiMême,lib1,img1,lib2,img2,lib3,img3)
FIN
Publicado el 18,octubre 2004 - 16:02
Salut,

Tu as jeté un oeil du côté de la LST 58?
Il y a un exemple complet sur l'utilisation d'une zone répétée avec des
images en colonne...

Bon dev'

Olivier DEVILLERS a utilisé son clavier pour écrire :
Bonjour,

Je tente d'effectuer un Album Photos .....
Dans une ZR (Zone Repetée) je veux donc mettre 3 images par repetition (et
un libelle correspondant a chaque image)
J'ai un fichier qui contient une image par enreg. au format image (memo
image)
je programme donc ma ZR pour lire les enregs de mon fichier 3 par 3 (Code de
l'init de la ZR ci dessous)

Problème :
L'affichage des libellés est correct par contre sur chaque repetition les
images sont identiques et correspondent à la 1ere image de la
répetition.......... alors que dans le fichier les images sont bien
différentes (vu avec WDMAP)

Si vous avez une idée elle sera la bienvenue ..........
Merci
Olivier

lib1,lib2,lib3 sont des chaînes
img1,img2,img3 sont des Variants
i est un entier

ZoneRépétéeSupprimeTout(MoiMême)
HLitPremier(IALBUM,IMGREF)
TANTQUE PAS HEnDehors()
i++
SI i=4 ALORS
ZoneRépétéeAjouteLigne(MoiMême,lib1,img1,lib2,img2,lib3,img3)
i=1
{"lib"+NumériqueVersChaine(i)}=IALBUM.IMGTITRE
{"img"+NumériqueVersChaine(i)}=IALBUM.Imgvignette
SINON
{"lib"+NumériqueVersChaine(i)}=IALBUM.IMGTITRE
{"img"+NumériqueVersChaine(i)}=IALBUM.Imgvignette
FIN
HLitSuivant(IALBUM,IMGREF)
FIN
SI i<>0 ALORS
ZoneRépétéeAjouteLigne(MoiMême,lib1,img1,lib2,img2,lib3,img3)
FIN


--
Guillaume
Publicado el 20,octubre 2004 - 14:13
j'ai regardé........Merci et ça marche bien maintenant !!!!!

"Guillaume" <gruelle@coletica.fr> a écrit dans le message de news:
mn.934a7d4a9653e044.15944@coletica.fr...

Salut,

Tu as jeté un oeil du côté de la LST 58?
Il y a un exemple complet sur l'utilisation d'une zone répétée avec des
images en colonne...

Bon dev'

Olivier DEVILLERS a utilisé son clavier pour écrire :
Bonjour,

Je tente d'effectuer un Album Photos .....
Dans une ZR (Zone Repetée) je veux donc mettre 3 images par repetition
(et
un libelle correspondant a chaque image)
J'ai un fichier qui contient une image par enreg. au format image (memo
image)
je programme donc ma ZR pour lire les enregs de mon fichier 3 par 3 (Code
de
l'init de la ZR ci dessous)

Problème :
L'affichage des libellés est correct par contre sur chaque repetition les
images sont identiques et correspondent à la 1ere image de la
répetition.......... alors que dans le fichier les images sont bien
différentes (vu avec WDMAP)

Si vous avez une idée elle sera la bienvenue ..........
Merci
Olivier

lib1,lib2,lib3 sont des chaînes
img1,img2,img3 sont des Variants
i est un entier

ZoneRépétéeSupprimeTout(MoiMême)
HLitPremier(IALBUM,IMGREF)
TANTQUE PAS HEnDehors()
i++
SI i=4 ALORS
ZoneRépétéeAjouteLigne(MoiMême,lib1,img1,lib2,img2,lib3,img3)
i=1
{"lib"+NumériqueVersChaine(i)}=IALBUM.IMGTITRE
{"img"+NumériqueVersChaine(i)}=IALBUM.Imgvignette
SINON
{"lib"+NumériqueVersChaine(i)}=IALBUM.IMGTITRE
{"img"+NumériqueVersChaine(i)}=IALBUM.Imgvignette
FIN
HLitSuivant(IALBUM,IMGREF)
FIN
SI i<>0 ALORS
ZoneRépétéeAjouteLigne(MoiMême,lib1,img1,lib2,img2,lib3,img3)
FIN

--
Guillaume