ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/journaling/ibcontrols/DBControlGrid.pas

Comparing ibx/trunk/ibcontrols/DBControlGrid.pas (file contents):
Revision 80 by tony, Mon Jan 1 11:31:07 2018 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

Diff Legend

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