418 |
|
end; |
419 |
|
|
420 |
|
function TRowCache.Add2Cache(RecNo: Longint; Control: TWinControl): TBitmap; |
421 |
– |
var i: integer; |
421 |
|
begin |
422 |
|
Dec(RecNo); {Adust to zero base} |
423 |
|
ExtendCache(RecNo + 1); |
1175 |
|
result := dsInactive; |
1176 |
|
end; |
1177 |
|
|
1179 |
– |
var |
1180 |
– |
DataCol: Integer; |
1178 |
|
begin |
1179 |
|
PrepareCanvas(aCol, aRow, aState); |
1180 |
|
|
1285 |
|
procedure TDBControlGrid.KeyDown(var Key: Word; Shift: TShiftState); |
1286 |
|
type |
1287 |
|
TOperation=(opMoveBy,opCancel,opAppend,opInsert,opDelete); |
1291 |
– |
var |
1292 |
– |
DeltaCol,DeltaRow: Integer; |
1288 |
|
|
1289 |
|
procedure DoOnKeyDown; |
1290 |
|
begin |