Скачать: CL | DM;

Как вставить картинку в RxRichText?   Найти похожие ветки 

← →
Vladislav ©   (2003-10-28 15:52) [0]

Как вставить картинку в RxRichText?

---

← →
Vladislav ©   (2003-10-28 16:00) [1]

Имеется в виду RxRichEdit

---

← →
clickmaker ©   (2003-10-28 17:39) [2]

with OpenPictureDialog do begin
if Execute then begin
Pict := TPicture.Create;
try
Pict.LoadFromFile(FileName);
Clipboard.Assign(Pict);
RichEdit.PasteFromClipboard;
finally
Pict.Free;
end;
end;
end;

---

← →
Adoon   (2003-10-29 10:37) [3]

procedure TPicture.LoadFromFile(const Filename: string);
var
Ext: string;
NewGraphic: TGraphic;
GraphicClass: TGraphicClass;
begin
Ext := ExtractFileExt(Filename);
Delete(Ext, 1, 1);
GraphicClass := FileFormats.FindExt(Ext);
if GraphicClass = nil then
raise EInvalidGraphic.CreateFmt(SUnknownExtension, [Ext]);

NewGraphic := GraphicClass.Create;
try
NewGraphic.OnProgress := Progress;
NewGraphic.LoadFromFile(Filename);
except
NewGraphic.Free;
raise;
end;
FGraphic.Free;
FGraphic := NewGraphic;
FGraphic.OnChange := Changed;
Changed(Self);
end;

// процедура вставки рисунка

BMP := TBitMap.Create;
P := TPicture.Create;
P.LoadFromFile(OpenPictureDlg.FileName);
BMP.Assign(P.Bitmap);
SS := TStringStream.Create(BitmapToRTF(BMP));
try
RxRich.PlainText := False;
RxRich.StreamMode := [smSelection];
RxRich.Lines.LoadFromStream(SS);
RxRich.StreamMode := [];
finally
SS.Free;
BMP.Free;
P.Free;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c