Club Builder

[neg1414]

Buenas :

Estoy intentando crear mi primer componente VCL (VISUAL) lo derivo de la clase customControl (sera interactivo con el usuario)
El caso es que lo "creo" logrando que me aparezca en la paleta Standard el icono correspondiente. se supone que al anadirlo en un form en principio deberia de aparecer un rectangulo (de 100x150) con borde "ES SOLO UNA PRUEBA " pero na de na.

os dejo el codigo del componente haber si me podeis ayudar

#ifndef ComponenteH
#define ComponenteH
//---------------------------------------------------------------------------
#include <SysUtils>
#include <Classes>
#include <Controls>
#include <Forms>
#include <StdCtrls>


//---------------------------------------------------------------------------
class PACKAGE TComponente : public TCustomControl
{

private:

TCanvas *FCanvas; //Para Dibujar

//Mensaje de Windows solicitando el Tamano del control
void __fastcall CNMeasureItem(TWMMeasureItem& Mensaje);

//Mensaje de Windows solicitando el tamano del control
void __fastcall CNDrawItem(TWMDrawItem& Mensaje);

BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CN_MEASUREITEM,TWMMeasureItem,CNMeasureItem);
MESSAGE_HANDLER(CN_DRAWITEM,TWMDrawItem,CNDrawItem);
END_MESSAGE_MAP(TCustomControl);

protected:

//Parametros para la creacion del Compnente
void __fastcall Parametros (TCreateParams &Parametro);

//Cambio el estado del Componente
void __fastcall EstadComponent (bool ADefault);

public:
__fastcall TCeldaResultados(TComponent* Owner);


__published:

};
//---------------------------------------------------------------------------





#include <vcl>

#pragma hdrstop

#include "Componente.h"
#pragma package(smart_init)

static inline void ValidCtrCheck(TComponente *)
{
new TCeldaResultados(NULL);
}



//---------------------------------------------------------------------------
__fastcall TComponente ::TComponente (TComponent* Owner)
: TCustomControl(Owner)
{
FCanvas = new TCanvas; //Creamos el objeto camvas
}



//---------------------------------------------------------------------------
//Fijamos una serie de parametros antes de crear el componente

void __fastcall TComponente ::Parametros (TCreateParams &Parametro)
{
Parametro.Width =100;
Parametro.Height =150;
//Indicamos que el control va a ser definido por el rogramador
Parametro.Style = Parametro.Style | BS_OWNERDRAW;
}


//---------------------------------------------------------------------------
//Cada vez que Windows necesita dibujar el componente
//BS_OWNERDRAW envia este mensaje,solicitando las dimensiones

void __fastcall TComponente ::CNMeasureItem(TWMMeasureItem& Mensaje)
{
//Facilitamos la anchura y altura del control
Mensaje.MeasureItemStruct->itemWidth = Width;
Mensaje.MeasureItemStruct->itemHeight = Height;
}


//---------------------------------------------------------------------------
//Cada vez que halla que dibujar el control se llamara a este metodo

void __fastcall TComponente ::CNDrawItem(TWMDrawItem& Mensaje)
{

RECT Area;
char Texto[256];
strncpy(Texto,Caption.c_str(),255); //Copiamos el titulo del boton
Area = ClientRect; //Obtenemos el area de Trabajo

// Tomar el color normal del borde
FCanvas->Pen->Color = clWindowFrame;

//El Handle de FCanvas sera el que nos permita dibujar
FCanvas->Handle = Mensaje.DrawItemStruct->hDC;

//Anchura del Lapiz
FCanvas->Pen->Width =2;

//Estilo lapiz continuo
FCanvas->Pen->Style = psSolid;

//Relleno solido
FCanvas->Brush->Style = bsSolid;

//color
FCanvas->Brush->Color=clBtnFace;

//Dibujamos un contorno
FCanvas->Rectangle(10,10,20,20);

//Cuando Hallamos terminado Handle debe de ser cero
FCanvas->Handle = 0;
}



//---------------------------------------------------------------------------
//Al cambiar el estado del componente

void __fastcall TComponente ::EstadComponent (bool ADefault);
{
Refresh(); //Redibujar
}

//---------------------------------------------------------------------------
namespace Componente
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TCeldaResultados)};
RegisterComponents("Standard", classes, 0);
}
}


Gracias

[_Leo]

Hola neg1414, te has complicado un poquito, lo que quieres hacer es más sencillo:

[neg1414]

Buenas, Gracias por contestar mi pregunta.

Correcta la respuesta de esta manera me muestra el rectangulo perfectamente, Lo unico es que dos bordes (lados) del rectangulo me da la sensacion de que son el doble de ancho que los otros dos, si es asi es posible hacer que los cuatro lados tengan el mismo aspecto.

Gracias otra vez.

[_Leo]

Supongo que te refieres a cuando el grosor del borde del rectángulo es mayor de un pixel:

[neg1414]

Simplemente perfecto, queda exactamente como queria, Gracias por tu ayuda, seguire trabajando en la creacion de componentes si tengo alguna duda espero que te encuentres cerca, cuando realize la pregunta

Muchas Gracias.

"La ignoracia es unadolencia que se cura preguntando"