• Jueves 28 de Marzo de 2024, 20:48

Autor Tema:  Crear Nuevo Componente Vcl Visual  (Leído 993 veces)

neg1414

  • Miembro activo
  • **
  • Mensajes: 28
    • Ver Perfil
Crear Nuevo Componente Vcl Visual
« en: Miércoles 24 de Octubre de 2007, 17:14 »
0
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.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <Forms.hpp>
#include <StdCtrls.hpp>


//---------------------------------------------------------------------------
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.h>

#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