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 143 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 68 | Line 68 | uses
68   }
69  
70   type
71 –  TRowCacheState = (rcEmpty,rcPresent,rcDeleted);
72 –  TRowDetails = record
73 –    FState: TRowCacheState;
74 –    FAlternateColor: boolean;
75 –    FBitmap: TBitmap;
76 –  end;
77 –
71    { TRowCache }
72  
73    TRowCache = class
74    private
75 +    type
76 +      TRowCacheState = (rcEmpty,rcPresent,rcDeleted);
77 +      TRowDetails = record
78 +        FState: TRowCacheState;
79 +        FAlternateColor: boolean;
80 +        FBitmap: TBitmap;
81 +  end;
82 +
83 +  private
84      FAltColorStartNormal: boolean;
85      FHeight: integer;
86      FList: array of TRowDetails;
# Line 418 | Line 420 | begin
420   end;
421  
422   function TRowCache.Add2Cache(RecNo: Longint; Control: TWinControl): TBitmap;
421 – var i: integer;
423   begin
424    Dec(RecNo); {Adust to zero base}
425    ExtendCache(RecNo + 1);
# Line 1176 | Line 1177 | begin
1177      result := dsInactive;
1178   end;
1179  
1179 – var
1180 –  DataCol: Integer;
1180   begin
1181    PrepareCanvas(aCol, aRow, aState);
1182  
# Line 1288 | Line 1287 | end;
1287   procedure TDBControlGrid.KeyDown(var Key: Word; Shift: TShiftState);
1288   type
1289    TOperation=(opMoveBy,opCancel,opAppend,opInsert,opDelete);
1291 – var
1292 –  DeltaCol,DeltaRow: Integer;
1290  
1291    procedure DoOnKeyDown;
1292    begin

Diff Legend

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