Discussion :

[Ardely]

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.

[aityahia]

vous trouverais sur ce post un très bon travail de Gilbert Geyer qui vous aidera certainement.

[Ardely]

Oui, tu as raison un super bon travail, ses notes sont très constructives et ses indications qui me font toujours grand plaisir à les lire.

Mais dans mon cas, je n'arrive quand même pas à résoudre ce problème, je ne comprends pas pourquoi ça fonctionne avec des caractères mais en utilisant une petite image il n'accepte pas cette position.

Merci beaucoup pour les Infos.