TCustomDBGridEh = class(TCustomGridEh, IInplaceEditHolderEh {$IFNDEF CIL}, IUnknown {$ENDIF})
...
FCol0Left:Integer;//添加变量用作记下第一列的焦点 //by thinkzhong
...
FColCellParamsEh: TColCellParamsEh;
FColCellParamsEh1: TColCellParamsEh;//添加变量 //by thinkzhong
FUseduplicatekeyField:String; //by thinkzhong
...
property UseduplicatekeyField: String read FUseduplicatekeyField write FUseduplicatekeyField; //thinkzhong
...
TDBGridEh = class(TCustomDBGridEh)
property UseduplicatekeyField; // thinkzhong
constructor TCustomDBGridEh.Create(AOwner: TComponent);
...
FColCellParamsEh := TColCellParamsEh.Create;
FColCellParamsEh1 := TColCellParamsEh.Create;//建立变量 //by thinkzhong
...
destructor TCustomDBGridEh.Destroy;
FreeAndNil(FColCellParamsEh);
FreeAndNil(FColCellParamsEh1);//释放变量 //by thinkzhong
{new DrawCell}
procedure TCustomDBGridEh.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);
var
...
Value: string;
Value1: string//添加变量 //by thinkzhong
DrawColumn: TColumnEh;
DrawColumn1: TColumnEh; //添加变量 //by thinkzhong
DrawSubLine: Boolean;//添加变量 //by thinkzhong
...
//在变量里添加过程 //by thinkzhong
function FieldExit(Dataset:TDataSet;FieldName:String):Boolean;
var
&n