BlueGEEK Journal

Accueil > Manip’s > Delphi > Richedit (RTF) > Insérér une image dans un Richedit

Insérér une image dans un Richedit

mercredi 13 juin 2012, par bluegyn_spip

- Le composant natif de Delphi Richedit ne permet pas cette manip
- Il faut faire appel au Jvrichedit de cette fabuleuse Librairie JEDY


NOTE


- Pour installer correctement la dernière version de la JEDI, le vrai conseil de pro pour gagner du temps est :

  1. De désinstaller complètement DELPHI (j’ai bien dit désinstaller le programme Delphi) - On suppose bien sur que la sauvegarde des composants a été correctement faite)
  2. De nettoyer complètement le dossier BORLAND (suppression du disque)
  3. De passer le karcher sur le Registre (avec les Glaries Utilities par exemple)
  4. Puis de réinstaller de Novo DELPHI
  5. Puis la JVL
  6. Puis la JVCL (qui présente malheureusement des bugs à chaque fois)
  • Il faut décocher le composant qui bogue
  • Puis l’installer manuellement en corrigeant le bug soulevé dans le source (en général une banale faute de frappe que le programmeur a mis intentionnellement pour tester la perspicacité de l’utilisateur)
  • On note en passant qu’il n’est pas utile d’installer TOUTE la libraire
    • On installe la JCL
    • Et ici le composant JvRichedit

Pour insérer une image dimensionnable dans un JvRichedit il faut :

  1. Un composant OpenPictureDialog
  2. Un Composant Image
  3. Un Composant JvRichedit

OpenPictureDialog

- Va cherche l’image sur le disque
- La commande classique est :

OpenPictureDialog.Execute ;

Image

- L’image est chargée sur le formulaire

Image1.Picture.LoadFromFile( OpenPictureDialog.Filename) ;

Richedit

- Puis placée au point d’insertion du curseur

RichEdit1.InsertGraphic(image1.Picture.Graphic, true) ;

- Avec true l’image est redimensionnable

- La sauvegarde du Richedit AVEC son image intégrée et redimensionnée se fait par le non-moins classique :

RichEdit1.Lines.SaveToFile( ’MON_FICHIER.RTF’) ;

EXEMPLE

- Insertion d’un code barre dans une ordonnance.