Re: What's wrong with this code ?

Return to index

Author

Message

Peter Jordan

Posted: 10/27/2004 0:45:07

I got it! The right code is below:

    Image2->Canvas->Rectangle(10,10,20,20);

    TGraphic* gr  = new Graphics::TBitmap;

    gr->Assign(Image2->Picture->Graphic);

    RichViewEdit1->AddPicture(gr);

    RichViewEdit1->Format();

THNX

"Peter Jordan" <peter@cifras.com.br> wrote:

>

>Hello Sergey and Developers,

>

>I am trying to add a image on a richviewedit with the following code:

>

>void __fastcall TForm1::BitBtn1Click(TObject *Sender)

>{

>    Image2->Canvas->Rectangle(10,10,20,20);

>    RichViewEdit1->AddPicture(Image2->Picture->Graphic);

>    RichViewEdit1->Format();

>}

>

>It work perfect but when I close the form, during the debug session, the

>application raise an error. Why ?

>

>Regards,

>

>Peter.