我要实现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转到这平台,有些东西真不知道怎么变才对!!先谢过 |