Formatage texte dans RichEdit avec insertion image
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:
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.
