Назначение


Добавление рисунка-ссылку в конец документа.




Описание


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

 Параметр

 Назначение

 Name

 Текстовый идентификатор рисунка, можно указать пустое значение. Компонент никак не использует этот параметр, идентификатор необходим для ваших нужд.

 gr

 Объект графического файла.

 ParaNo

 Необязательный параметр. Номер параграфа. Если ParaNo = -1, рисунок добавляется в конец последнего параграфа, если ParaNo >= 0, рисунок добавляется в новый параграф.

 VAlign

 Необязательный параметр, вертикальное выравнивание рисунка, возможные значения: rvvaBaseline, rvvaMiddle, rvvaAbsTop, rvvaAbsBottom, rvvaAbsMiddle, rvvaLeft, rvvaRight



Пример


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