盒子论坛 v2.1

以下是我参照 tttzms 的方法改的一个过程,目的是控制dbGrid颜色显示.但dbGrid在打开显示的时候总是出现以下错误提示: declaration of 'dbGridDrawDatacell' differs from previous declaration. 麻烦高手帮我分析一下.多谢!

procedure TFdataOneGrid.DBGrid1DrawDataCell(Sender: TObject;
  DrawDbg: TDBGrid;DrawCds:TClientDataSet;const Rect: TRect; Field: TField;
  State: TGridDrawState);
var
  FRect:TRect;
begin
  //如果处于选择状态则绘制另外一种颜色
  if GdSelected in State then
  begin
    exit;
  end;
  With DrawDbg do
  begin
    //判断是否为偶数行，以便相邻的行用不同的颜色绘制
    if DrawCds.RecNo mod 2=0 then
      Canvas.Brush.Color:=ClInfoBk
    else
      //DBGStock.Canvas.Brush.Color:=Rgb(191,255,223);
      Canvas.Brush.Color:=$00FEF8F1;
    //设置表格画布画笔的颜色，采用RGB函数据设置
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
    Canvas.Pen.Color:=$00FBE1C8;
    Canvas.MoveTo(Rect.Left,Rect.Bottom);
    Canvas.LineTo(Rect.Right,Rect.Bottom);
    Canvas.MoveTo(Rect.Right,Rect.Top);
    Canvas.LineTo(Rect.Right,Rect.Bottom);
    Canvas.Brush.Color:=$00825320;
    //绘制数据区的上边框
    FRect.Left:=Rect.Left-1;
    FRect.Right:=Rect.Right;
    Frect.Top:=-1;
    Frect.Bottom:=16;
    Canvas.FrameRect(FRect);
    //绘制数据区的左边框
    FRect.Left:=-1;
    FRect.Right:=11;
    Frect.Top:=Rect.Top-1;
    Frect.Bottom:=Rect.Bottom;
    Canvas.FrameRect(FRect);
    //绘制数据区的表格边框
    FRect.Bottom:=Rect.Bottom;
    FRect.Top:=Rect.Top-1;
    FRect.Left:=Rect.Left-1;
    FRect.Right:=Rect.Right;
    Canvas.FrameRect(FRect);
    //对表格进行绘制
  end;
end;
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/26 16:48:44

1楼：

declaration of 'dbGridDrawDatacell' differs from previous declaration

你的参数传递和函数本身声明的不一样所以编译器报错！
----------------------------------------------

作者：

wlhalxq ( )	★☆☆☆☆	-
	盒子活跃会员

2003/12/26 17:01:50

2楼：

bios 大哥：多谢你的指点。我是菜鸟，刚接触Delphi，请教你我该如何修改呢？

顺便附上“天气”预报，供各位分享：

//////////////////////////////////////////////////////////

下面是未来24小时天气预报：

今天夜间到明天白天，全市大面积地区会下人民币，西北部一些地区有有短时支票，局部地
区还会有金块，气象部门提醒广大市民提前备好麻袋，准备发财，祝圣诞节快乐,天天如
此！同时关注天气情况，下次节目再会，谢谢！wlhalxq

----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/26 17:52:45

3楼：

晕好象你自己把 DELPHI默认的事件给改了参数个数了（是自己加的吧）
这样可不行哦，
如果你一定要改得把 DELPHI的默认的事件的参数也改过来才行呀

此帖子包含附件:

大小:10.4K

----------------------------------------------

信息

登陆以后才能回复