Назначение


Вставка рисунка в позицию курсора ввода.




Описание


function InsertPicture (const Name: String; gr: TGraphic; VAlign: TRVVAlign = rvvaBaseline): Boolean;

 Параметр

 Назначение

 Name

 Текстовый идентификатор рисунка, можно указать пустое значение.

 gr

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

 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.InsertPicture('', Graphic);
end;