ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/ibcontrols/DBControlGrid.pas
(Generate patch)

Comparing ibx/trunk/ibcontrols/DBControlGrid.pas (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 217 by tony, Fri Mar 16 10:27:26 2018 UTC

# Line 1 | Line 1
1 +  
2   {
3   /***************************************************************************
4                                 DBControlGrid.pas
# Line 417 | Line 418 | begin
418   end;
419  
420   function TRowCache.Add2Cache(RecNo: Longint; Control: TWinControl): TBitmap;
420 – var i: integer;
421   begin
422    Dec(RecNo); {Adust to zero base}
423    ExtendCache(RecNo + 1);
# Line 609 | Line 609 | begin
609      begin
610        FCacheRefreshQueued := true;
611        Application.QueueAsyncCall(@DoMoveRecord,PtrInt(aRow));
612 <    end
612 >    end;
613 >    Canvas.FillRect(aRect);
614    end
615    else
616       Canvas.Draw(aRect.Left,aRect.Top,CachedRow)
# Line 1174 | Line 1175 | begin
1175      result := dsInactive;
1176   end;
1177  
1177 – var
1178 –  DataCol: Integer;
1178   begin
1179    PrepareCanvas(aCol, aRow, aState);
1180  
# Line 1286 | Line 1285 | end;
1285   procedure TDBControlGrid.KeyDown(var Key: Word; Shift: TShiftState);
1286   type
1287    TOperation=(opMoveBy,opCancel,opAppend,opInsert,opDelete);
1289 – var
1290 –  DeltaCol,DeltaRow: Integer;
1288  
1289    procedure DoOnKeyDown;
1290    begin
# Line 1689 | Line 1686 | begin
1686      FDataLink.Free;
1687    end;
1688    if assigned(FRowCache) then FRowCache.Free;
1689 +  Application.RemoveAsyncCalls(self);
1690    inherited Destroy;
1691   end;
1692  

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines