[WD14] Inserer un image dans un champ de saisie

bruce207 · 03/02/2012, 21h17

Bonjour,
je voudrais savoir comment faire pour insérer une image dans un champ de saisie rtf par programmation.

madsland · 04/02/2012, 11h58

Bonjour,

J'ai trouvé ça sur le web :

Citation:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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)

Cordialement

Madsl@nD

03/02/2012, 21h17	#1
bruce207 Membre régulier Inscription : novembre 2007 Messages : 316 Détails du profil Informations forums : Inscription : novembre 2007 Messages : 316 Points : 79 Points : 79	Inserer un image dans un champ de saisie Bonjour, je voudrais savoir comment faire pour insérer une image dans un champ de saisie rtf par programmation.
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email