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 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

#	Line 1 | Line 1
1	+
2		{
3		/***************************************************************************
4		DBControlGrid.pas
#	Line 67 | Line 68 | uses
68		}
69
70		type
70	–	TRowCacheState = (rcEmpty,rcPresent,rcDeleted);
71	–	TRowDetails = record
72	–	FState: TRowCacheState;
73	–	FAlternateColor: boolean;
74	–	FBitmap: TBitmap;
75	–	end;
76	–
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 417 | Line 420 | begin
420		end;
421
422		function TRowCache.Add2Cache(RecNo: Longint; Control: TWinControl): TBitmap;
420	–	var i: integer;
423		begin
424		Dec(RecNo); {Adust to zero base}
425		ExtendCache(RecNo + 1);
#	Line 609 | Line 611 | begin
611		begin
612		FCacheRefreshQueued := true;
613		Application.QueueAsyncCall(@DoMoveRecord,PtrInt(aRow));
614	<	end
614	>	end;
615	>	Canvas.FillRect(aRect);
616		end
617		else
618		Canvas.Draw(aRect.Left,aRect.Top,CachedRow)
#	Line 1174 | Line 1177 | begin
1177		result := dsInactive;
1178		end;
1179
1177	–	var
1178	–	DataCol: Integer;
1180		begin
1181		PrepareCanvas(aCol, aRow, aState);
1182
#	Line 1286 | Line 1287 | end;
1287		procedure TDBControlGrid.KeyDown(var Key: Word; Shift: TShiftState);
1288		type
1289		TOperation=(opMoveBy,opCancel,opAppend,opInsert,opDelete);
1289	–	var
1290	–	DeltaCol,DeltaRow: Integer;
1290
1291		procedure DoOnKeyDown;
1292		begin
#	Line 1689 | Line 1688 | begin
1688		FDataLink.Free;
1689		end;
1690		if assigned(FRowCache) then FRowCache.Free;
1691	+	Application.RemoveAsyncCalls(self);
1692		inherited Destroy;
1693		end;
1694

Diff Legend

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