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 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 317 by tony, Thu Feb 25 12:01:13 2021 UTC

#	Line 307 | Line 307 | begin
307		Container := TBitmap.Create;
308		try
309		Container.SetSize(Control.Width,Control.Height);
310	+	Container.Canvas.Brush.Color := control.Color;
311	+	Container.Canvas.FillRect(0,0,Control.Width,Control.Height);
312		Control.PaintTo(Container.Canvas,0,0);
313		except
314		Container.Free;
#	Line 665 | Line 667 | procedure TDBControlGrid.KeyDownHandler(
667		var Done: boolean;
668		AControl: TControl;
669		begin
670	<	if Visible and assigned(FDrawPanel) and FDrawPanel.Visible and FWeHaveFocus then
670	>	if Visible and assigned(FDrawPanel) and FDrawPanel.Visible and FWeHaveFocus
671	>	and (Self.Owner=Screen.ActiveForm) then
672		begin
673		AControl := ActiveControl;
674		if (AControl <> nil) and (AControl is TCustomComboBox)
#	Line 1688 | Line 1691 | begin
1691		FDataLink.Free;
1692		end;
1693		if assigned(FRowCache) then FRowCache.Free;
1694	+	if not (csDesigning in ComponentState) then
1695	+	Application.RemoveOnKeyDownBeforeHandler( @KeyDownHandler );
1696		Application.RemoveAsyncCalls(self);
1697		inherited Destroy;
1698		end;

Diff Legend

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