procedure GetCellParams(Column: TColumnEh; AFont: TFont;
var Background: TColor; State: TGridDrawState); override;
procedure TDBMyGrid.GetCellParams(Column: TColumnEh; AFont: TFont;
var Background: TColor; State: TGridDrawState);
begin
if Column.UseGridStyle then
Case FGridStyleIndex of
1:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := $00AAE8EE //第二种颜色
else Background := $00D2FAFA; //第一种颜色
end;
end;
2:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := $00F7F7F7 //第二种颜色
else Background := $00FFE7E7; //第一种颜色
end;
end;
3:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := clWhite //第二种颜色
else Background := $DEF7F7; //第一种颜色
end;
end;
end;
inherited GetCellParams(Column, AFont, Background, State);
end;错误信息:
Build
[Error] DBMyGrid.pas(55): Declaration of 'GetCellParams' differs from previous declaration
[Error] DBMyGrid.pas(240): Incompatible types: 'DBGridEh.TDBGridOption' and 'DBGrids.TDBGridOption'
[Error] DBMyGrid.pas(888): Undeclared identifier: 'UseGridStyle'
[Error] DBMyGrid.pas(918): Incompatible types
[Error] DBMyGrid.pas(931): Undeclared identifier: 'PickOnly'
[Fatal Error] dclusr.dpk(40): Could not compile used unit '..\Components\DBMyGrid\DBMyGrid.pas'
var Background: TColor; State: TGridDrawState); override;
procedure TDBMyGrid.GetCellParams(Column: TColumnEh; AFont: TFont;
var Background: TColor; State: TGridDrawState);
begin
if Column.UseGridStyle then
Case FGridStyleIndex of
1:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := $00AAE8EE //第二种颜色
else Background := $00D2FAFA; //第一种颜色
end;
end;
2:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := $00F7F7F7 //第二种颜色
else Background := $00FFE7E7; //第一种颜色
end;
end;
3:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := clWhite //第二种颜色
else Background := $DEF7F7; //第一种颜色
end;
end;
end;
inherited GetCellParams(Column, AFont, Background, State);
end;错误信息:
Build
[Error] DBMyGrid.pas(55): Declaration of 'GetCellParams' differs from previous declaration
[Error] DBMyGrid.pas(240): Incompatible types: 'DBGridEh.TDBGridOption' and 'DBGrids.TDBGridOption'
[Error] DBMyGrid.pas(888): Undeclared identifier: 'UseGridStyle'
[Error] DBMyGrid.pas(918): Incompatible types
[Error] DBMyGrid.pas(931): Undeclared identifier: 'PickOnly'
[Fatal Error] dclusr.dpk(40): Could not compile used unit '..\Components\DBMyGrid\DBMyGrid.pas'
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货