【结】StringGrid的行合并问题**

刺青

我要实现StringGrid的行合并,代码如下:

with StringGrid1.Canvas do
begin
     Brush.Color := graphics.clWindow;
     Font.Color := graphics.clWindowText;
     if (acol=1) or (acol=3) then
         rect.Right:=rect.Right+rect.Right-rect.Left;
     if (acol=2) or (acol=4)then
         rect.Left:=rect.Right;

     if gdFixed in State then
        Brush.Color := StringGrid1.FixedColor;
        FillRect(Rect);
     with StringGrid1 do
          TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
     if gdFixed in State then
        DrawEdge(Handle, Rect, BDR_RAISEDINNER, BF_RECT);
end;

编译出错错误:[错误]Biz:\WICCWGL\WLGL\KHWLLQGN.FUNC.DIR\KHWLLQ.Form.pas(106, 9): Undeclared identifier "gdFixed"
[错误]Biz:\WICCWGL\WLGL\KHWLLQGN.FUNC.DIR\KHWLLQ.Form.pas(111, 9): Undeclared identifier "gdFixed"

delphi 代码的贴:http://www.kfdoc.com/delphibbs2005/306/3060209.htm

大哥大姐,帮忙修改下,从delphi转到这平台,有些东西真不知道怎么变才对!!先谢过

新来小职员

有些代码在delphi 中能运行，在x3中报错

gaihl

gdFixed 是怎么声明的

shangxy

NameSpace: Business.Forms
--------------------------------------------------------------------------------
TGridDrawStateEnum = (gdSelected, gdFocused, gdFixed);

atiger

with StringGrid1.Canvas do
  begin
       Brush.Color := graphics.clWindow;
       Font.Color := graphics.clWindowText;
       if (acol=1) or (acol=3) then
           rect.Right:=rect.Right+rect.Right-rect.Left;
       if (acol=2) or (acol=4)then
           rect.Left:=rect.Right;
       if Business.Forms.TGridDrawStateEnum.gdFixed in State then
          Brush.Color := StringGrid1.FixedColor;
          FillRect(Rect);
       with StringGrid1 do
            TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
       if Business.Forms.TGridDrawStateEnum.gdFixed in State then
          Borland.Delphi.Windows.DrawEdge(Handle, Rect, Borland.Delphi.Windows.BDR_RAISEDINNER, Borland.Delphi.Windows.BF_RECT);
  end;

刺青

感谢 atiger和shangxy 的帮忙
问题已解决
可以结了

代码如下:
with StringGrid1.Canvas do
     begin
          Brush.Color := graphics.clWindow;
          Font.Color := graphics.clWindowText;
          if (acol=1) or (acol=3) then
              rect.Right:=rect.Right+rect.Right-rect.Left
          else
          if (acol=2) or (acol=4)then
             rect.Left:=rect.Right;

         if Business.Forms.TGridDrawStateEnum.gdFixed in State then
            Brush.Color := StringGrid1.FixedColor;
            FillRect(Rect);
         with StringGrid1 do
              TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
         if Business.Forms.TGridDrawStateEnum.gdFixed in State then
            Borland.Delphi.Windows.DrawEdge(Handle, Rect, borland.Delphi.Windows.BDR_RAISEDINNER, Borland.Delphi.Windows.BF_RECT);
     end;

atiger

ok