Discussion :

[bruce207]

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

[madsland]

Bonjour,

J'ai trouvé ça sur le web :

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