Назначение


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




Описание


procedure AddPicture (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.AddPicture('', Graphic);
   Form1.RichEdit1.Format;
end;