InsertPicture
Назначение
Вставка рисунка в позицию курсора ввода.
Описание
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;