Imagen de fondo en formulario

[ecfisa]

Empezado por aguml

...
PD: Tu proyecto no me compilaba porque me decia que habia un error de linkado porque faltaba el nombre: "[Linker Fatal Error] Fatal: Expected a file name:"
Una vez consiguiese hacer que todo funcione correctamente la idea ya seria crear componentes con dichos codigos a ver si soy capaz

Que raro... acabo de descargarlo y ejecuta sin siquiera advertencias

Con respecto a los componentes, el código sólo era para derivados de TPanel; lamentablemente no funcionará para todos los controles. Hacer un conjunto grande de componentes que tengan la propiedad de ser transparentes es una tarea bastante árdua.

Si es tu intención (o necesidad) usar esa propiedad sobre un grupo grande de controles, lo mas simple sería buscar alguna biblioteca de terceros que ya lo implemente.

Saludos

[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 );
}
//-------------------------------------------------------------