Imagen de fondo en formulario

Neftali [Germán.Estévez] · #1 05-12-2017

Los componentes de la VCL no están pensados inicialmente para soportar transparencias, así que todo lo que hagas en ese sentido deberá ser "manual" y seguramente no muy eficiente.
¿Tienes posibilidad de usar en este caso FireMonkey? Te facilitaría mucho las cosas.

aguml · #2 05-12-2017

La verdad es que no sé ni qué es eso. ¿No hay componentes de terceros que ofrezcan esa opción? He estado mirando los de alpha skins y alguno más pero no veo cómo hacerlo transparente.

ecfisa · #3 05-12-2017

Hola.

Derivando de un TPanel te hice un ejemplo básico como para que puedas ir trabajando sobre él:

Código PHP:


			
...

class TPanelClear : public TPanel {
protected:
  void __fastcall CreateParams( TCreateParams &Params ) {
     TPanel::CreateParams( Params );
     Params.ExStyle |= WS_EX_TRANSPARENT;
  }
  void __fastcall Paint() {
    HDC DC   = Canvas->Handle;
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TPanel::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
  }
public:
   __fastcall TPanelClear( TComponent *Owner ) : TPanel( Owner ) {
    // ...
   }
   // ...
};


void __fastcall TForm1::btShowPanelClearClick(TObject *Sender)
{
  TPanelClear *pc = new TPanelClear(this);
  pc->Left    = 5;
  pc->Top     = 5;
  pc->Height  = 50;
  pc->Width   = 200;
  pc->Name    = "PanelClear1";
  pc->Caption = pc->Name;
  pc->Parent  = this;
}

Muestra:

Saludos

aguml · #4 05-12-2017

La verdad es que no sabría hacer para crear lo que haces y me harías un gran favor si me describirse los pasos para hacerlo y me comentase que va haciendo el código. Nunca he creado un componente y estoy muy perdido para hacer lo que haces.

ecfisa · #5 05-12-2017

Hola.

El ejemplo no es difícil de implementar, sólo debes copiar el código de la declaración de la clase derivada en la unidad que vayas a usarlo.

Basándote en ese código, luego no te será muy difícil crear tu componente panel transparente; de echo vas a encontrar en la web varios tutoriales muy didácticos sobre creación de componentes en C++ Builder.

Te adjunto el código fuente del ejemplo para que puedas probarlo y revisarlo. ( C++ Builder 6 )

Saludos

aguml · #6 06-12-2017

He estado probando tu codigo y me encuentro con una serie de problemas a extrapolarlo a otros componentes que necesito tambien hacerlos transparentes y que irán dentro de dicho TPanelClear. Son TGroupBox, TRadioGroup, y TCheckBox. Ademas de que no consigo hacer a ninguno de ellos transparentes con tu codigo, el TCheckBox no me deja ni compilar porque dice que Canvas no se reconoce. Te pego el codigo:

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)
{
}
//---------------------------------------------------------------------------

class TPanelClear : public TPanel {
protected:
  void __fastcall CreateParams( TCreateParams &Params ) {
     TPanel::CreateParams( Params );
     Params.ExStyle |= WS_EX_TRANSPARENT;
  }
  void __fastcall Paint() {
    HDC DC   = Canvas->Handle;
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TPanel::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
  }
public:
   __fastcall TPanelClear( TComponent *Owner ) : TPanel( Owner ) {
      TPanel::TPanel( Owner );
  }
};
//---------------------------------------------------------------------------

void __fastcall TForm1::btShowPanelClearClick(TObject *Sender)
{
  TPanelClear *pc = new TPanelClear(this);
  pc->Left    = 5;
  pc->Top     = 5;
  pc->Height  = 50;
  pc->Width   = 200;
  pc->Name    = "PanelClear1";
  pc->Caption = pc->Name;
  pc->Parent  = this;
}
//---------------------------------------------------------------------------

class TGroupBoxClear : public TGroupBox {
protected:
  void __fastcall CreateParams( TCreateParams &Params ) {
     TGroupBox::CreateParams( Params );
     Params.ExStyle |= WS_EX_TRANSPARENT;
  }
  void __fastcall Paint() {
    HDC DC   = Canvas->Handle;
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TGroupBox::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
  }
public:
   __fastcall TGroupBoxClear( TComponent *Owner ) : TGroupBox( Owner ) {
      TGroupBox::TGroupBox( Owner );
  }
};
//---------------------------------------------------------------------------

class TCheckBoxClear : public TCheckBox {
protected:
  void __fastcall CreateParams( TCreateParams &Params ) {
     TCheckBox::CreateParams( Params );
     Params.ExStyle |= WS_EX_TRANSPARENT;
  }
  void __fastcall Paint() {
    HDC DC   = Canvas->Handle;  //Undefined symbol 'Canvas'
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TCheckBox::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
  }
public:
   __fastcall TCheckBoxClear( TComponent *Owner ) : TCheckBox( Owner ) {
      TCheckBox::TCheckBox( Owner );
  }
};
//---------------------------------------------------------------------------

void __fastcall TForm1::btShowGroupBoxClearClick(TObject *Sender)
{
    TGroupBoxClear *gbc = new TGroupBoxClear(this);
  gbc->Left    = 5;
  gbc->Top     = 5;
  gbc->Height  = 60;
  gbc->Width   = 200;
  gbc->Name    = "GroupBoxClear1";
  gbc->Caption = gbc->Name;
  gbc->Parent  = this;

  //No se crea dentro del GroupBoxClear
  TCheckBoxClear *cbc1 = new TCheckBoxClear(this);
  cbc1->Left = 10;
  cbc1->Top = 10;
  cbc1->Name = "CheckBox1";
  cbc1->Caption = cbc1->Name;
  cbc1->Parent = gbc;
}
//---------------------------------------------------------------------------

class TRadioGroupClear : public TRadioGroup {
protected:
  void __fastcall CreateParams( TCreateParams &Params ) {
     TRadioGroup::CreateParams( Params );
     Params.ExStyle |= WS_EX_TRANSPARENT;
  }
  void __fastcall Paint() {
    HDC DC   = Canvas->Handle;  //Undefined symbol 'Canvas'
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TRadioGroup::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
  }
public:
   __fastcall TRadioGroupClear( TComponent *Owner ) : TRadioGroup( Owner ) {
      TRadioGroup::TRadioGroup( Owner );
  }
};
//---------------------------------------------------------------------------

void __fastcall TForm1::btShowRadioGroupClick(TObject *Sender)
{
    TRadioGroupClear *rgc = new TRadioGroupClear(this);
    rgc->Left    = 5;
    rgc->Top     = 5;
    rgc->Height  = 100;
    rgc->Width   = 200;
    rgc->Name    = "GroupBoxClear1";
    rgc->Caption = rgc->Name;
    rgc->Parent  = this;
    rgc->Items->Add("opcion1");
    rgc->Items->Add("opcion2");
}
//---------------------------------------------------------------------------

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

aguml · #7 06-12-2017

Asi lo tengo ahora mismo:
El .h del Form:

Código PHP:


			
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include "MyPanelClear.h"
#include "MyGroupBoxClear.h"
#include "MyRadioGroupClear.h"
#include "MyCheckBoxClear.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TImage *Image1;
    TButton *btShowPanelClear;
    TButton *btShowGroupBoxClear;
    TButton *btShowRadioGroup;
    void __fastcall btShowPanelClearClick(TObject *Sender);
    void __fastcall btShowGroupBoxClearClick(TObject *Sender);
    void __fastcall btShowRadioGroupClick(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:    // User declarations
    TPanelClear *pc;
    TGroupBoxClear *gbc;
    TCheckBoxClear *cbc1;
    TRadioGroupClear *rgc;
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

El .cpp del Form:

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)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btShowPanelClearClick(TObject *Sender)
{
  if(pc != NULL)
    delete pc;

  pc = new TPanelClear(this);
  pc->Left    = 5;
  pc->Top     = 10;
  pc->Height  = 130;
  pc->Width   = 175;
  pc->Name    = "PanelClear1";
  pc->Caption = pc->Name;
  pc->Parent  = this;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btShowGroupBoxClearClick(TObject *Sender)
{
    if(gbc != NULL)
        delete gbc;
    gbc = new TGroupBoxClear(this);
    gbc->Left    = 185;
    gbc->Top     = 5;
    gbc->Height  = 135;
    gbc->Width   = 200;
    gbc->Name    = "GroupBoxClear1";
    gbc->Caption = gbc->Name;
    gbc->Parent  = this;

    //No se crea dentro del GroupBoxClear
    if(cbc1 != NULL)
        delete cbc1;
        
    cbc1 = new TCheckBoxClear(this);
    cbc1->Left = 10;
    cbc1->Top = 10;
    cbc1->Name = "CheckBox1";
    cbc1->Caption = cbc1->Name;
    cbc1->Parent = gbc;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btShowRadioGroupClick(TObject *Sender)
{
    if(rgc != NULL)
        delete rgc;

    rgc = new TRadioGroupClear(this);
    rgc->Left    = 5;
    rgc->Top     = 150;
    rgc->Height  = 130;
    rgc->Width   = 175;
    rgc->Name    = "RadioGroupClear1";
    rgc->Caption = rgc->Name;
    rgc->Parent  = this;
    rgc->Items->Add("opcion1");
    rgc->Items->Add("opcion2");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    pc=NULL;
    gbc=NULL;
    cbc1=NULL;
    rgc=NULL;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    if(rgc != NULL)
        delete rgc;
    if(gbc != NULL)
        delete gbc;
    if(cbc1 != NULL)
        delete cbc1;
    if(pc != NULL)
        delete pc;
}
//---------------------------------------------------------------------------

El .h del TPanelClear:

Código PHP:


			
#ifndef MyPanelClearH
#define MyPanelClearH
//---------------------------------------------------------------------------
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TPanelClear : public TPanel {
protected:
    void __fastcall CreateParams( TCreateParams &Params );
    void __fastcall Paint();
public:
    __fastcall TPanelClear( TComponent *Owner );
};
//---------------------------------------------------------------------------
#endif

el .cpp del TPanelClear:

Código PHP:


			
#include "MyPanelClear.h"
//---------------------------------------------------------------------------

__fastcall TPanelClear::TPanelClear( TComponent *Owner ) : TPanel( Owner ) {
    TPanel::TPanel( Owner );
}
//---------------------------------------------------------------------------

void __fastcall TPanelClear::CreateParams( TCreateParams &Params ) {
    TPanel::CreateParams( Params );
    Params.ExStyle |= WS_EX_TRANSPARENT;
}
//---------------------------------------------------------------------------

void __fastcall TPanelClear::Paint() {
    HDC DC   = Canvas->Handle;
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TPanel::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
}
//---------------------------------------------------------------------------

El .h del TGroupBoxClear:

Código PHP:


			
#ifndef MyGroupBoxClearH
#define MyGroupBoxClearH
//---------------------------------------------------------------------------
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TGroupBoxClear : public TGroupBox {
protected:
    void __fastcall CreateParams( TCreateParams &Params );
    void __fastcall Paint();
public:
    __fastcall TGroupBoxClear( TComponent *Owner );
};
//---------------------------------------------------------------------------
#endif

El .cpp del TGroupBoxClear:

Código PHP:


			
#include "MyGroupBoxClear.h"
//---------------------------------------------------------------------------

__fastcall TGroupBoxClear::TGroupBoxClear( TComponent *Owner ) : TGroupBox( Owner ) {
    TGroupBox::TGroupBox( Owner );
}
//---------------------------------------------------------------------------

void __fastcall TGroupBoxClear::CreateParams( TCreateParams &Params ) {
    TGroupBox::CreateParams( Params );
    Params.ExStyle |= WS_EX_TRANSPARENT;
}
//---------------------------------------------------------------------------

void __fastcall TGroupBoxClear::Paint() {
    HDC DC   = Canvas->Handle;
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TGroupBox::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
}
//---------------------------------------------------------------------------

El .h del RadioGroupClear:

Código PHP:


			
#ifndef MyRadioGroupClearH
#define MyRadioGroupClearH
//---------------------------------------------------------------------------
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TRadioGroupClear : public TRadioGroup {
protected:
    void __fastcall CreateParams( TCreateParams &Params );
    void __fastcall Paint();
public:
    __fastcall TRadioGroupClear( TComponent *Owner );
};
//---------------------------------------------------------------------------
#endif

El .cpp del TRadioGroupClear:

Código PHP:


			
#include "MyRadioGroupClear.h"
//---------------------------------------------------------------------------

__fastcall TRadioGroupClear::TRadioGroupClear( TComponent *Owner ) : TRadioGroup( Owner ) {
    TRadioGroup::TRadioGroup( Owner );
}
//---------------------------------------------------------------------------

void __fastcall TRadioGroupClear::CreateParams( TCreateParams &Params ) {
    TRadioGroup::CreateParams( Params );
    Params.ExStyle |= WS_EX_TRANSPARENT;
}
//---------------------------------------------------------------------------

void __fastcall TRadioGroupClear::Paint() {
    HDC DC   = Canvas->Handle;
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TRadioGroup::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
}
//---------------------------------------------------------------------------

El .h del TCheckBoxClear:

Código PHP:


			
#ifndef MyCheckBoxClearH
#define MyCheckBoxClearH
//---------------------------------------------------------------------------
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TCheckBoxClear : public TCheckBox {
protected:
    void __fastcall CreateParams( TCreateParams &Params );
    void __fastcall Paint();
public:
    __fastcall TCheckBoxClear( TComponent *Owner );
};
//---------------------------------------------------------------------------
#endif

El .cpp del TCheckBoxClear:

Código PHP:


			
#include "MyCheckBoxClear.h"
//---------------------------------------------------------------------------

__fastcall TCheckBoxClear::TCheckBoxClear( TComponent *Owner ) : TCheckBox( Owner ) {
    TCheckBox::TCheckBox( Owner );
};
//---------------------------------------------------------------------------

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

void __fastcall TCheckBoxClear::Paint() {
    HDC DC   = Canvas->Handle;
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TCheckBox::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
}
//---------------------------------------------------------------------------

No me gusta tener todas las clases juntas y las he separado cada una en su propio archivo para tenerlo mas claro todo a la hora de examinarlo pero los problemas siguen siendo los mismos.

ecfisa · #8 06-12-2017

Cita:

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

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Fondo en formulario que no se ve	Ramsay	Varios	1	06-02-2016 02:23:35
Otra forma de cambiar color fondo formulario	chino150	Varios	2	16-02-2011 09:46:58
Mantener el Formulario principal en el fondo.	Critter	Lazarus, FreePascal, Kylix, etc.	5	25-10-2010 10:04:27
Poner un control en el fondo de un formulario MDI	Egroc	Varios	6	31-03-2007 02:56:57
Imagen de Fondo	lucasarts_18	Gráficos	7	16-06-2005 17:03:04