Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

WD10 COMMENT INSERER UNE IMAGE DANS UN CHAMPS RTF

5 réponses
Avatar
MOST
Salut a toutes et tous
ma question est la suivante
j'ai un bouton img_img1 qui contient une image X
j'aimerais lorsque je clique sur ce bouton que mon image X soit insérer dans
un champ rtf
est ce que quelqu'un a deja fais cela ???
merci d'avance pour vos réponses
et bon dev

5 réponses

Avatar
Firetox
Bonjour

il vous faut un champs RTF un champs image invisible / ou cache
ensuite

sCheminImage est une chaîne = ""
// Ouvrir le sélecteur d'images
sCheminImage = fSélecteurImage("", "", "Sélectionnez une image",
fFiltreImage())

SI sCheminImage = "" ALORS RETOUR

// Mettre à jour le champ image
ChImage = sCheminImage

// Redimensionner le champ image en fonction de la taille de l'image
ChImage..Largeur = ExtraitChaîne(InfoBitmap(sCheminImage), 2, TAB)
ChImage..Hauteur = ExtraitChaîne(InfoBitmap(sCheminImage), 3, TAB)

// Copier l'image dans le presse papier
VersPressePapier(ChImage)
SI ErreurDétectée ALORS RETOUR

// Faire un coller de l'image dans le champ de saisie
SendMessage(Handle(MonChampRTF), 0x0302, 0, 0)

Bon dev
@+


"MOST" a écrit dans le message de news:
46f91b00$0$25949$
Salut a toutes et tous
ma question est la suivante
j'ai un bouton img_img1 qui contient une image X
j'aimerais lorsque je clique sur ce bouton que mon image X soit insérer
dans un champ rtf
est ce que quelqu'un a deja fais cela ???
merci d'avance pour vos réponses
et bon dev



Avatar
MOST
Merci bcp ton code m'a été d'un grand secours !
"Firetox" a écrit dans le message de news:
46f93594$0$31741$
Bonjour

il vous faut un champs RTF un champs image invisible / ou cache
ensuite

sCheminImage est une chaîne = ""
// Ouvrir le sélecteur d'images
sCheminImage = fSélecteurImage("", "", "Sélectionnez une image",
fFiltreImage())

SI sCheminImage = "" ALORS RETOUR

// Mettre à jour le champ image
ChImage = sCheminImage

// Redimensionner le champ image en fonction de la taille de l'image
ChImage..Largeur = ExtraitChaîne(InfoBitmap(sCheminImage), 2, TAB)
ChImage..Hauteur = ExtraitChaîne(InfoBitmap(sCheminImage), 3, TAB)

// Copier l'image dans le presse papier
VersPressePapier(ChImage)
SI ErreurDétectée ALORS RETOUR

// Faire un coller de l'image dans le champ de saisie
SendMessage(Handle(MonChampRTF), 0x0302, 0, 0)

Bon dev
@+


"MOST" a écrit dans le message de news:
46f91b00$0$25949$
Salut a toutes et tous
ma question est la suivante
j'ai un bouton img_img1 qui contient une image X
j'aimerais lorsque je clique sur ce bouton que mon image X soit insérer
dans un champ rtf
est ce que quelqu'un a deja fais cela ???
merci d'avance pour vos réponses
et bon dev







Avatar
e-pluriel
Bravo pour le code.
Une remarque : je ne suis pas certain que les PDF générés par Windev
soient capables d'imprimer les images des champs RTF !
Avatar
MOST
merci mais je ne pense pas imprimer en pdf
"e-pluriel" a écrit dans le message de news:

Bravo pour le code.
Une remarque : je ne suis pas certain que les PDF générés par Windev
soient capables d'imprimer les images des champs RTF !
Avatar
MOST
vous aviez raison l'impression dans un fichier pdf ne prend pas l'image en
compte
"MOST" a écrit dans le message de news:
47020f27$0$5070$
merci mais je ne pense pas imprimer en pdf
"e-pluriel" a écrit dans le message de news:

Bravo pour le code.
Une remarque : je ne suis pas certain que les PDF générés par Windev
soient capables d'imprimer les images des champs RTF !