FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema crear componente vcl
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
crear componente | kapullok_2006 | OOP | 1 | 21-04-2007 20:02:13 |
crear componente de bd dinamicamente | gushmaish | Varios | 2 | 01-03-2007 19:28:45 |
Crear componente | kalimero | OOP | 2 | 31-01-2006 10:43:10 |
Problemas al crear un componente TWebBrowser | cone220 | Internet | 4 | 04-10-2003 00:41:55 |
Crear un componente OLE - PowerPoint | onairam | Varios | 0 | 24-07-2003 22:34:46 |
|