Imagen de fondo en formulario

[aguml]

¿Conoces algún pack de tercero que tenga esa opción?

[ecfisa]

Hola.

No, lamento no conocer ninguno, pero encontré un artículo que tal vez te resulte interesante: An easy way to create transparent button

En tanto que para los controles TGroupBox y TRadioGroup, podes usar:

Código PHP:

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  ::SetWindowLong(GroupBox1->Handle, GWL_EXSTYLE,
    GetWindowLong(GroupBox1->Handle, GWL_EXSTYLE) | WS_EX_TRANSPARENT);

  ::SetWindowLong(RadioGroup1->Handle, GWL_EXSTYLE,
    GetWindowLong(RadioGroup1->Handle, GWL_EXSTYLE) | WS_EX_TRANSPARENT);
}

}
... 


Saludos

[aguml]

La verdad es que solo necesito que tengan transparencia los checkboxs, radiogroups, groupboxs, labels, y paneles. Los paneles ya están listos, según me indicas, con ese código ya tendría listo los radiogroups y groupboxs y me quedaría solo los checkbox y labels y no recuerdo si el label ya trae esa propiedad.

[ecfisa]

Hola.

Con el TLabel no tendrías problemas ya que posee la propiedad Transparent.

Y ya que estamos, código para el CheckBox,

CheckBoxClear.h:

Código PHP:

#ifndef CheckBoxClearH
#define CheckBoxClearH

#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>

class TCheckBoxClear : public TCheckBox {
private:
  TCanvas *FCanvas;
  TRect FCaptionR;
  TRect FGlyphR;
protected:
  void __fastcall CreateParams( TCreateParams &Params );
  void __fastcall CreateWnd( void );
  void __fastcall SetButtonStyle( void );
  void __fastcall CNDrawItem( TWMDrawItem &msg );
  BEGIN_MESSAGE_MAP
    VCL_MESSAGE_HANDLER( CN_DRAWITEM, TWMDrawItem, CNDrawItem )
  END_MESSAGE_MAP( TCheckBox )
public:
  __fastcall TCheckBoxClear( TComponent *Owner ) : TCheckBox( Owner ) {};
  //...
};

#endif 


CheckBoxClear.cpp:

Código PHP:

#define OEMRESOURCE

#pragma hdrstop

#include "CheckBoxClear.h"

#pragma package(smart_init)

void __fastcall TCheckBoxClear::CreateParams( TCreateParams &Params )
{
  TCustomCheckBox::CreateParams( Params );
  Params.ExStyle |= WS_EX_TRANSPARENT;
}

void __fastcall TCheckBoxClear::CreateWnd( void )
{
  TCheckBox::CreateWnd();
  SetButtonStyle();
}

void __fastcall TCheckBoxClear::SetButtonStyle()
{
  const BS_MASK = 0x000F;
  unsigned int Style;

  if ( HandleAllocated() ) {
    Style = BS_CHECKBOX | BS_OWNERDRAW;
    if ( GetWindowLong( Handle, GWL_STYLE) & BS_MASK != Style )
      SendMessage( Handle, BM_SETSTYLE, Style, 1 );
  }
}

void __fastcall TCheckBoxClear::CNDrawItem( TWMDrawItem &msg )
{
  const int H = 0xD;
  const int W = 0xD;
  FGlyphR        = msg.DrawItemStruct->rcItem;
  FGlyphR.Right  = 20;
  FCaptionR      = msg.DrawItemStruct->rcItem;
  FCaptionR.Left = FGlyphR.Right;

  FCanvas = new TCanvas;
  __try {
    FCanvas->Handle       = msg.DrawItemStruct->hDC;
    FCanvas->Brush->Style = bsClear;

    // Draw TBitmap
    int x, y, sx=0, sy=0;
    Graphics::TBitmap *Glyph = new Graphics::TBitmap;
    try {
      Glyph->Handle = ::LoadBitmap( NULL, MAKEINTRESOURCE( OBM_CHECKBOXES ) );
      y = FGlyphR.Top + (FGlyphR.Bottom - FGlyphR.Top - H) / 2;
      x = 2;
      if( State == cbChecked ) sx += H;
      if( State == cbGrayed )  sx *= W;
      FCanvas->CopyRect(Rect(x, y, x+W, x+H) ,Glyph->Canvas,
        Rect(sx, sy, sx+W, sy+H));
    }
    __finally {
      delete Glyph;
    }

    // Draw Caption
    long fmt = DT_VCENTER |  DT_SINGLELINE | DT_LEFT;
    fmt = DrawTextBiDiModeFlags( fmt );
    DrawText(msg.DrawItemStruct->hDC, Caption.c_str(),
      Caption.Length(), &FCaptionR, fmt);
  }
  __finally {
    delete FCanvas;
  }
} 


Prueba:

Código PHP:

...
#include "CheckBoxClear.h"

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  // Label transparente
  Label1->Transparent = true;

 // CheckBox transparente
  TCheckBoxClear *cbc = new TCheckBoxClear( this );
  cbc->Left    = 200;
  cbc->Top     = 110;
  cbc->Name    = "CheckBoxClear1";
  cbc->Caption = cbc->Name;
  cbc->Parent  = this;
  ... 


Muestra:


Saludos

[aguml]

Gracias amigo, los código del radiogroup y del listbox no me surten ningún efecto.
He estado probando los componentes de TMS que entre todo lo que trae vienen esos componentes con transparencia pero van de pena y tan lento que se puede ver cómo aplica la transparencia. Lo que tú estás haciendo es infinitamente más eficiente.
Si pudieras revisar esos dos componentes te estaría muy agradecido.
Ya luego me tocaría empollar y ver cómo pasarlos a componentes.
Encontré este código para un radiogroup por si es de utilidad:

Código PHP:

private:    // User declarations
    void __fastcall NewGBWndProc( TMessage& );
    TWndMethod OldGBWndProc;
//-------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    RadioGroup1->Brush->Style = bsClear;
    long exstyle = GetWindowLong( GroupBox1->Handle, GWL_EXSTYLE );
    ::SetWindowLong( GroupBox1->Handle, GWL_EXSTYLE, exstyle | WS_EX_TRANSPARENT );
    OldGBWndProc = GroupBox1->WindowProc;
    GroupBox1->WindowProc = NewGBWndProc;
}
//-------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
    GroupBox1->WindowProc = OldGBWndProc;
}
//-------------------------------------------------------------
void __fastcall TForm1::NewGBWndProc( TMessage &Message )
{
    if( Message.Msg == WM_CTLCOLORSTATIC )
      {
          HWND hWnd = reinterpret_cast<HWND>( Message.LParam );
          if( hWnd == RadioButton1->Handle || hWnd == RadioButton2->Handle )
            {
                HDC hDC = reinterpret_cast<HDC>( Message.WParam );
                SetBkMode( hDC, TRANSPARENT );
                Message.Result = reinterpret_cast<LONG>( GetStockObject(NULL_BRUSH) );
                return;
            }
      }
    OldGBWndProc( Message );
}
//-------------------------------------------------------------