1、把Ctl3D设为False;
2、把Flat设为真;
3、把Options中的[dghFixed3D]设为False;
4、修改DBGridEh.pas中的InternalLayout过程:
其中程序中的代码如下:
if Flat then
GridLineColors.DarkColor := clGray
else if DrawTitleByThemes then
GridLineColors.DarkColor := clBtnShadow
else if ThemesEnabled then
GridLineColors.DarkColor := cl3DDkShadow
else
GridLineColors.DarkColor := {cl3DDkShadow;//}clBlack;
把这一段注释掉,修改GridLineColors属性,变成自己的颜色,修改后如下:
GridLineColors.DarkColor := clBlack;
GridLineColors.BrightColor:=clBlack;
//以两个值都需修改,缺一不可。
{ if Flat then
// GridLineColors.DarkColor := clGray
GridLineColors.DarkColor := clBlack
else if DrawTitleByThemes then
GridLineColors.DarkColor := clBtnShadow
else if ThemesEnabled then
GridLineColors.DarkColor := cl3DDkShadow
else
}// GridLineColors.DarkColor := {cl3DDkShadow;//}clBlack;
修改后的表格样子如下: