Concatenar imagenes y copiar al portapapeles

[ecfisa]

Hola aguml.

Te pongo otra alternativa:

Código PHP:

...

#include<clipbrd.hpp>

// Juntar Bitmaps y copiar a Clipboard
void BitmapsToClipboard(TCheckListBox *clb)
{
  Graphics::TBitmap *sum = new (Graphics::TBitmap);
  int wdt = 0;

  for(int i = 0; i < clb->Items->Count; i++) {
    if (clb->Checked[i]) {
      //cargar bmp
      Graphics::TBitmap *aux = new (Graphics::TBitmap);
      aux->LoadFromFile(clb->Items->Strings[i] + ".bmp");

      // ajustar tamaño
      if(aux->Height > sum->Height)
        sum->Height = aux->Height;
      sum->Width += aux->Width;

      // dibujar
      sum->Canvas->Draw(wdt, 0, aux);
      wdt+= aux->Width;

      delete aux;
    }
    Clipboard()->Assign(sum);
  }
  delete sum;
} 


Llamada ejemplo:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  BitmapsToClipboard(CheckListBox1);
} 


Salida:


Pegado en MsPaint:


En cuanto a tu consulta, en la ayuda de C++ Builder dice:

VCL Reference
TObject::Free

TObject See also
____________________________________________________________________________
Destroys an object and frees its associated memory, if necessary.

__fastcall Free();

Description

Do not call the Free method of an object. Instead, use the delete keyword, which invokes Free to destroy an object. Free automatically calls the destructor if the object reference is not NULL.

Saludos