Description


Ajoute une image à la fin du document.



procedure AddPicture (const Name: String; gr: TGraphic; ParaNo: Integer = -1; VAlign: TRVVAlign = rvvaBaseline);

 Parameter

 Description

 Name

 Nom de cette image, n'importe quelle chaîne. Le nom ne doit pas contenir de caractères CR et LF. RichEdit n'utilise pas les noms d'éléments eux-mêmes, ils sont là pour votre        propre usage.

 gr

 Image à insérer. Par défaut, cette image appartiendra au composant RichEdit et vous ne devez pas la supprimer.

 ParaNo

 Paramètre facultatif. Si ParaNo = -1, la méthode ajoute un élément à la fin du dernier paragraphe. Si ParaNo> = 0, cet élément commence un nouveau paragraphe.

 VAlign

 Paramètre facultatif. Alignement vertical de cette image, par rapport à sa ligne, valeurs disponibles: rvvaBaseline, rvvaMiddle, rvvaAbsTop, rvvaAbsBottom, rvvaAbsMiddle, rvvaLeft,  rvvaRight.



Exemple


procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var    Graphic: TGraphic;
begin
   Graphic := TJpegImage.Create;
   Graphic.LoadFromFile('d:\filename.jpg');
   Form1.RichEdit1.AddPicture('', Graphic);
   Form1.RichEdit1.Format;
end;