修正Ehlib5.0.13的一个小问题

DBGridEh(5.0.13)当ContraColCount>0时,点击右边被锁定的列,会抛出一个下标越界的异常。

修正办法:

function TCustomDBGridEh.DataToRawColumn(ADataCol: Integer): Integer;
begin
if RowPanel
then Result := FIndicatorOffset
else Result := ADataCol + FIndicatorOffset - FContraColCount{狂歌痛饮:必须减去ContraColCount,否则会出现索引越界的问题 2010-3-18};
end;

你可能感兴趣的:(lib)