Daily Archives: 05.06.2016

Delphi. TRichView. Как вставить картинку и программно изменить её размеры в документе?

Posted on 05.06.2016 by Stanislav_Panteleev

На примере SrichViewEdit (ScaleRichViewEdit)

uses ... RVGrHandler ...
...
    gr:=TGraphic.Create;
    gr := RVGraphicHandler.LoadFromFile(fMediaLoader_Inherited.LastUploaded.FilePath);
...

    SRichViewEdit1.ConvertToPixels;// Измерять будем в пикселях

    with SRichViewEdit1.ActiveEditor do
      begin
      BeginUpdate;

       TopLevelEditor.BeginUndoGroup(rvutInsert);
       TopLevelEditor.SetUndoGroupMode(True);

        if  InsertPicture('', gr, rvvaBaseline)
          then begin
          SetCurrentItemExtraIntProperty(rvepImageWidth, 200, True);
          SetCurrentItemExtraIntProperty(rvepImageHeight, 300, True);
          end;

          TopLevelEditor.SetUndoGroupMode(False);
          EndUpdate;

      end;
...

uses ... RVGrHandler ...

...

gr:=TGraphic.Create;

gr := RVGraphicHandler.LoadFromFile(fMediaLoader_Inherited.LastUploaded.FilePath);

...

SRichViewEdit1.ConvertToPixels;// Измерять будем в пикселях

with SRichViewEdit1.ActiveEditor do

begin

BeginUpdate;

TopLevelEditor.BeginUndoGroup(rvutInsert);

TopLevelEditor.SetUndoGroupMode(True);

if InsertPicture('', gr, rvvaBaseline)

then begin

SetCurrentItemExtraIntProperty(rvepImageWidth, 200, True);

SetCurrentItemExtraIntProperty(rvepImageHeight, 300, True);

end;

TopLevelEditor.SetUndoGroupMode(False);

EndUpdate;

end;

...

Posted in Delphi, TRichView | Comments Off

Daily Archives: 05.06.2016

Delphi. TRichView. Как вставить картинку и программно изменить её размеры в документе?

MY PROJECTS

Recent Posts

Categories