InsertPicture help

Ceprotec · Post by **Ceprotec** » Thu Jul 23, 2015 8:23 pm

Hello Sergey, see the problem I'm having to use the function InsertPicture:

this is the source code:

procedure TFrmCadEditorRegistro.ListaImagensDblClick(Sender: TObject);
var gr: TGraphic;
var image: TImage;
var ultimalinha: Integer;
begin
    inherited;
    ultimalinha := RetornaLinha;

    image := TImage.Create(Application);
    image.Picture.Assign(TBitmap(ImageList[ListaImagens.ItemIndex]));

    SRichViewEdit1.RichViewEdit.BeginUndoGroup(rvutInsert);
    SRichViewEdit1.RichViewEdit.SetUndoGroupMode(True);
    gr := RV_CreateGraphics(TGraphicClass(image.Picture.Graphic.ClassType));
    gr.Assign(image.Picture.Graphic);
    rvActionAlignJustify1.Execute;
    if SRichViewEdit1.RichViewEdit.InsertPicture('',gr,rvvaBaseline) then
    begin
        SRichViewEdit1.RichViewEdit.SetCurrentItemExtraIntProperty(rvepImageHeight,600,True);
        SRichViewEdit1.RichViewEdit.SetCurrentItemExtraIntProperty(rvepImageWidth,500,True); 
        SRichViewEdit1.RichViewEdit.SetUndoGroupMode(false);
        SRichViewEdit1.RichViewEdit.InsertText('-');
    end;
    FreeAndNil(image);
end;

Thanks!

Português:
Olá Sergey, veja o problema que estou tendo ao usar a função InsertPicture:

--
este é o código fonte:

Post by **Sergey Tkachenko** » Thu Jul 23, 2015 8:56 pm

Do you insert pictures in a table cell?

Ceprotec · Post by **Ceprotec** » Fri Jul 24, 2015 11:20 am

Inglês -
no, I'm inserting in direct richview

português -
não, estou inserindo direto no richview

Ceprotec · Post by **Ceprotec** » Fri Jul 24, 2015 11:46 am

Inglês -
I managed to solve:

Português -
Consegui resolver

look:

Code: Select all

    
    ultimalinha := RetornaLinha;

    image := TImage.Create(Application);
    image.Picture.Assign(TBitmap(ImageList[ListaImagens.ItemIndex]));

    SRichViewEdit1.RichViewEdit.BeginUndoGroup(rvutInsert);
    SRichViewEdit1.RichViewEdit.SetUndoGroupMode(True);
    gr := RV_CreateGraphics(TGraphicClass(image.Picture.Graphic.ClassType)); 
    gr.Assign(image.Picture.Graphic);

    if SRichViewEdit1.RichViewEdit.InsertPicture('',gr,rvvaBaseline) then
    begin
        SRichViewEdit1.RichViewEdit.SetCurrentItemExtraIntProperty(rvepImageHeight,600,True);
        SRichViewEdit1.RichViewEdit.SetCurrentItemExtraIntProperty(rvepImageWidth,500,True); 
        SRichViewEdit1.RichViewEdit.SetUndoGroupMode(false);

        GoToLine(ultimalinha + 3,SRichViewEdit1.RichViewEdit);
        SRichViewEdit1.RichViewEdit.InsertText('-');
    end;
    FreeAndNil(image);

Post by **Sergey Tkachenko** » Fri Jul 24, 2015 12:25 pm

I do not see the difference between two versions of your code, except for applying justify alignment, which should not affect the result.

Ceprotec · Post by **Ceprotec** » Fri Jul 24, 2015 1:02 pm

- Ingês
I used before insert the '-', GoToLine

-Português
eu usei antes de inserir o '-', GoToLine

Code: Select all

        GoToLine(ultimalinha + 3,SRichViewEdit1.RichViewEdit);
        SRichViewEdit1.RichViewEdit.InsertText('-');

- Inglês
then worked!

- Português
aí funcionou!