yuadbgrid.cpp

扩充了C++ Builder DBGRID 控件的功能

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

#include <vcl.h>

#pragma hdrstop

#include "YUADBGrid.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(TDBGridPro *)
{
        new TDBGridPro(NULL);
}
//---------------------------------------------------------------------------
__fastcall TDBGridPro::TDBGridPro(TComponent* Owner)
        : TDBGrid(Owner)
{
     DBGridOldProc = this->WindowProc;
     this->WindowProc = DBGridMouseWheelProc;
}
void __fastcall TDBGridPro::DBGridMouseWheelProc(TMessage& Message)
{
  //if (IntToStr(Message.WParam).Trim() !="0")
  //   ShowMeg(IntToStr(Message.WParam)+":" +IntToStr(Message.Msg));
  if ((long)Message.Msg == 45123)
  {
    int z = GET_WHEEL_DELTA_WPARAM(Message.WParam);
    if (z>0)
         ::PostMessage(this->Handle,WM_VSCROLL,SB_LINEUP,0);
    else
         ::PostMessage(this->Handle,WM_VSCROLL,SB_LINEDOWN,0);
  }

  DBGridOldProc(Message);
}
//---------------------------------------------------------------------------
/*void __fastcall TDBGridPro::DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
   //-----------------------
   TDBGridPro *MyDBGrid=( TDBGridPro *  )Sender;
   if (MyDBGrid->DataLink->ActiveRecord ==MyDBGrid->Row-1)
   {
     MyDBGrid->Canvas->Font->Color=clWhite;
     MyDBGrid->Canvas->Brush->Color=0x00800040;
   }
   else
   {
     MyDBGrid->Canvas->Brush->Color=MyDBGrid->Color;
     MyDBGrid->Canvas->Font->Color=MyDBGrid->Font->Color;
   }
   MyDBGrid->TDBGrid::DrawColumnCell(Rect,DataCol,Column,State);
} */
//---------------------------------------------------------------------------
namespace Yuadbgrid
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TDBGridPro)};
                 RegisterComponents("Data Controls", classes, 0);
        }
}
//---------------------------------------------------------------------------