Bonjour, à tous.

J'ai un petit problème de formatage de textes en insertion une petite image dans un Richedit (méthode OLE).

Je m'explique avec ce petit exemple, si je pousse bouton1 à la position caret le texte est écrit un peu plus bas (fonction Indice) que le texte précédant ceci fonctionne très bien.
Mais si je insert une image la position de l'image est sur la même ligne que le texte précédent, l'image ne se met pas à cette position. C'est-à-dire j'aimerais bien avoir l'image un peu plus bas que le texte.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
procedure TForm1.Button1Click(Sender: TObject);
var  Format: TCharFormat; 
begin
    FillChar(Format, SizeOf(Format), 0);
    Format.cbSize :=  SizeOf(Format);
    Format.dwMask := CFM_OFFSET;
    Format.yOffset := -65;
    Richedit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
 
    // InsImage(Img);
    richedit1.SetFocus;
end;
Est-ce possible ou que pouvez vous me proposer.
Un grand Merci d'avance pour l'aide.