🚀 go-pugleaf

Jeff wrote:

>    imgMonitor->Picture->Graphic = tBitmap;
>    Clipboard()->Assign(imgMonitor->Picture);

I would say either
    Clipboard()->Assign( imgMonitor->Picture-Graphic );
or
    Clipboard()->Assign( tBitmap );

> I would say either
>    Clipboard()->Assign( imgMonitor->Picture-Graphic );
> or
>    Clipboard()->Assign( tBitmap );

I've tried both methods and still receive an error when pasting.

Thanks. 

"Jeff" <Jeff@nospam.com> wrote in message
news:467aa666$1@newsgroups.borland.com...

> programs throw errors when attempting to paste.

That is likely because you are completely wiping out your Icon before
you can copy it to the clipboard.  You are accessing the TPicture's
Bitmap property when querying the image information.  If the TPicture
does not contain a TBitmap (which it does not in your case), the
current Graphic (the icon) is destroyed and replaced with an empty
TBitmap.  You are then using the Icon property to draw the image onto
your temporary TBitmap.  Accessing the Icon property is going to
destroy that empty TBitmap and replace it with an empty TIcon.  If you
read the documentation for TPicture, this is clearly explained:

    TPicture::Bitmap
    "If Bitmap is referenced when the picture contains a Metafile or
Icon graphic, the graphic won't be converted. Instead, the original
contents of the picture are discarded and Bitmap returns a new, blank
bitmap."

    TPicture::Icon
    "If Icon is referenced when the TPicture contains a Bitmap or
Metafile graphic, the graphic won't be converted. Instead, the
original contents of the TPicture are discarded and Icon returns a
new, blank icon."

Worse, you are then assigning your temporary TBitmap back to the
TImage.  Since the TBitmap is sized to 0,0 with no valid drawing in
it, you are then wiping out the TPicture again and replace its
contents with another empty TBitmap.

To preserve the original icon, you need to change your code to the
following instead:

    Graphics::TBitmap *tBitmap = new Graphics::TBitmap;
    tBitmap->Width = imgMonitor->Picture->Icon->Width;
    tBitmap->Height = imgMonitor->Picture->Icon->Height;
    tBitmap->Canvas->Draw(0, 0, imgMonitor->Picture->Icon);
    Clipboard()->Assign(tBitmap);
    delete tBitmap;

Or, more generically:

    Graphics::TBitmap *tBitmap = new Graphics::TBitmap;
    tBitmap->Width = imgMonitor->Picture->Graphic->Width;
    tBitmap->Height = imgMonitor->Picture->Graphic->Height;
    tBitmap->Canvas->Draw(0, 0, imgMonitor->Picture->Graphic);
    Clipboard()->Assign(tBitmap);
    delete tBitmap;


Gambit

"Bob Gonder" <notbg@notmindspring.invalid> wrote in message
news:cmbl73l030v30mkcmtrbqccjcofs1flmsc@4ax.com...

>     Clipboard()->Assign( imgMonitor->Picture-Graphic );

That will not work if the Picture contains a TIcon.  When passing a
TGraphic to TClipboard::Assign(), it calls the
TGraphic::SaveToClipboardFormat() method, which TIcon does not
implement.


Gambit

Thank you very much, as you can tell from my code I was a little confused. 

Remy Lebeau (TeamB) wrote:
>"Bob Gonder"  wrote in message
>
>>     Clipboard()->Assign( imgMonitor->Picture-Graphic );
>
>That will not work if the Picture contains a TIcon.

I thought it contained a TBitmap.

>    Graphics::TBitmap *tBitmap = new Graphics::TBitmap;
>    imgMonitor->Picture->Graphic = tBitmap;

"Bob Gonder" <notbg@notmindspring.invalid> wrote in message
news:hlvn73df61gagpvhrug27sc7plob3ka94o@4ax.com...

> I thought it contained a TBitmap.

The OP said:

    "I've got a TImage component (imgMonitor below) that is displaying
an icon via ExtractIcon()."

His original code was completely wrong, as I already pointed out to
him.  There was no need to try to convert the TImage over to a TBitmap
inside the TImage.  He can preserve the original TIcon as-is and still
copy a temporary TBitmap to the clipboard.  If he corrects his code to
do that, then calling Clipboard()->Assign() while the TImage still
holds a TIcon will not work, but it doesn't need to anyway.


Gambit