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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <depot.most@wanadoo.fr> a écrit dans le message de news:
46f91b00$0$25949$ba4acef3@news.orange.fr...
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
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
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
Merci bcp ton code m'a été d'un grand secours !
"Firetox" <firetox@SQLManagerX.com> a écrit dans le message de news:
46f93594$0$31741$426a74cc@news.free.fr...
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" <depot.most@wanadoo.fr> a écrit dans le message de news:
46f91b00$0$25949$ba4acef3@news.orange.fr...
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
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
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 !
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 !
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 !
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 !
merci mais je ne pense pas imprimer en pdf
"e-pluriel" <e-pluriel@wanadoo.fr> a écrit dans le message de news:
1190871328.160910.230990@n39g2000hsh.googlegroups.com...
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 !
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 !
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 !
vous aviez raison l'impression dans un fichier pdf ne prend pas l'image en
compte
"MOST" <depot.most@wanadoo.fr> a écrit dans le message de news:
47020f27$0$5070$ba4acef3@news.orange.fr...
merci mais je ne pense pas imprimer en pdf
"e-pluriel" <e-pluriel@wanadoo.fr> a écrit dans le message de news:
1190871328.160910.230990@n39g2000hsh.googlegroups.com...
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 !