BorlandTalk.com

Mars · Guest

How to get rid of flick from derived TStringGrid class ?

Hi All:
I using Borland C++ Builder 6.0 enterprise edition to derived an class
name TStringGridBS from TStringGrid, and override DrawCell function
for my custom draw cell, but when I use this derived component, I find it
continuous flicking and I have no any solution to solved even after
search on Google. The following code are my derived class, if you have any
good idea to get rid of continuous flick, Please help me! Thanks a lot.

//File: TStringGridBS.h
//Code:
//--------------------------------------------------------------------------
-

#ifndef StringGridBSH
#define StringGridBSH

//--------------------------------------------------------------------------
-
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <Grids.hpp>

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

//--------------------------------------------------------------------------
-
class PACKAGE TStringGridBS : public TStringGrid
{
private:
TColor FGridBodayColor;
TColor __fastcall GetMainStyle();
void __fastcall SetMainStyle(TColor value);

protected:
virtual void __fastcall DrawCell(int ACol, int ARow, const
Types::TRect &ARect, TGridDrawState AState);

public:
__fastcall TStringGridBS(TComponent* Owner);

__published:
__property TColor GridBodayColor = { read = GetMainStyle, write =
SetMainStyle, default = clWhite };
};

//--------------------------------------------------------------------------
-
#endif
//--------------------------------------------------------------------------
-

//File:TStringGridBS.cpp
//Code:
//--------------------------------------------------------------------------
-

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

#include <vcl.h>

#pragma hdrstop

#include "TStringGridBS.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(TStringGridBS *)
{
new TStringGridBS(NULL);
}

//--------------------------------------------------------------------------
-
__fastcall TStringGridBS::TStringGridBS(TComponent* Owner) :
TStringGrid(Owner)
{
this->Font->Name = "Fixdays";
this->FixedCols = 0;
FGridBodayColor = clWhite;
}

//--------------------------------------------------------------------------
-
namespace Stringgridbs
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TStringGridBS)};
RegisterComponents("ASIAINFO", classes, 0);
}
}

//--------------------------------------------------------------------------
-
// implement custom draw cell

//--------------------------------------------------------------------------
-
void __fastcall TStringGridBS::DrawCell(int ACol, int ARow, const
Types::TRect &ARect, TGridDrawState AState)
{
// call parent class draw cell function
TStringGrid::DrawCell(ACol, ARow, ARect, AState);

RECT rcCell = {ARect.left, ARect.top, ARect.right, ARect.bottom};
switch (ARow)
{
case 0: //draw the first row
{
this->Font->Size = 14;
this->Font->Style = TFontStyles() << fsBold;
this->Font->Color = TColor(RGB(39, 80, 166));
this->Canvas->Brush->Color = TColor(RGB(119, 159, 225));
}
break;

default: //draw the other row
{
this->Font->Size = 12;
this->Font->Style = TFontStyles() >> fsBold;
this->Font->Color = TColor(RGB(0, 0, 0));

// Draw the Selected Cell
if (this->Selection.Top == ARow)
{
this->Canvas->Brush->Color = TColor(RGB(255, 153, 0));
}
else // Draw the normal Cell
{
this->Canvas->Brush->Color = this->FGridBodayColor;
}
}
break;
}

// Fill Grid background color and draw the cell text
this->Canvas->FillRect(ARect);
::DrawText(
this->Canvas->Handle,
this->Cells[ACol][ARow].c_str(),
this->Cells[ACol][ARow].Length(),
&rcCell,
DT_CENTER | DT_SINGLELINE | DT_VCENTER
);

if (this->OnDrawCell)
{
this->OnDrawCell(this, ACol, ARow, ARect, AState);
}
}

//--------------------------------------------------------------------------
-
void __fastcall TStringGridBS::SetMainStyle(TColor value)
{
FGridBodayColor = value;
}

//--------------------------------------------------------------------------
-
TColor __fastcall TStringGridBS::GetMainStyle()
{
return FGridBodayColor;
}
//--------------------------------------------------------------------------
-

Remy Lebeau (TeamB) · Guest

"Mars" <Marslv_gzb (AT) 21cn (DOT) net> wrote

Remy Lebeau (TeamB) · Guest

"Hans Galema" <dontusethis (AT) dontusethis (DOT) nl> wrote

Mars · Guest

Thanks a lot to Remy Lebeau (TeamB)!!!
you are right, and the component work as I will now.
Thanks again!
I love Borland!!!

"Remy Lebeau (TeamB)" <gambit47.no.spam (AT) no (DOT) spam.yahoo.com> Ð´ÈëÓÊ¼þ
news:3fdfec07 (AT) newsgroups (DOT) borland.com...