edwinhp2
Lt JG
Registrado: 19 Nov 2005Mensajes: 67
|
 Publicado: Mar 21 Nov, 2006 10:08 pm Asunto: DBGrid que no puede mover sus columnas |
 |
|
Tengo un código que hace que las columnas de un TDBGrid no se muevan en una aplicación, aplico este código en la función OnShow de la forma, intenté hacer un componente con esta funcionalidad pero no me funciona, solamente le puse una propiedad que me activara la propiedad, pero al momento de ejecutar el código no funciona.
Este es el código del CPP:
| Código: |
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DBGridWheel.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
static inline void ValidCtrCheck(TDBGridWheel *)
{
new TDBGridWheel(NULL);
}
//---------------------------------------------------------------------------
__fastcall TDBGridWheel::TDBGridWheel(TComponent* Owner)
: TDBGrid(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDBGridWheel::MouseWhell(TMessage& Msg)
{
if (this->DataSource->DataSet->Active)
{
if (short(Msg.WParamHi) < 0)
{
this->DataSource->DataSet->Next();
}
else
{
this->DataSource->DataSet->Prior();
}
}
}
void __fastcall TDBGridWheel::SetEstadoColumnas(bool Estado)
{
if ( Estado )
((TStringGrid*)(TDBGrid*)this)->Options = ((TStringGrid*)(TDBGrid*)this)->Options >> goColMoving;
else
((TStringGrid*)(TDBGrid*)this)->Options = ((TStringGrid*)(TDBGrid*)this)->Options << goColMoving;
FEstadoColumnas = Estado;
}
namespace Dbgridwheel
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TDBGridWheel)};
RegisterComponents("General", classes, 0);
}
}
//---------------------------------------------------------------------------
|
y este el código del H
| Código: |
//---------------------------------------------------------------------------
#ifndef DBGridWheelH
#define DBGridWheelH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class PACKAGE TDBGridWheel : public TDBGrid
{
private:
bool FEstadoColumnas;
void __fastcall MouseWhell(TMessage&);
protected:
void __fastcall SetEstadoColumnas(bool Estado);
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_MOUSEWHEEL,TMessage,MouseWhell)
END_MESSAGE_MAP(TDBGrid);
public:
__fastcall TDBGridWheel(TComponent* Owner);
__published:
__property bool ColumnasFijas = { read=FEstadoColumnas, write=SetEstadoColumnas };
};
//---------------------------------------------------------------------------
#endif
|
Si alguien me pudiera ayudar a decirme el error que estoy cometiendo, se los agradecería mucho.
Saludos
Edwin |
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
