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 314 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 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		Control.PaintTo(Container.Canvas,0,0);
312		except
313		Container.Free;
#	Line 665 | Line 666 | procedure TDBControlGrid.KeyDownHandler(
666		var Done: boolean;
667		AControl: TControl;
668		begin
669	<	if Visible and assigned(FDrawPanel) and FDrawPanel.Visible and FWeHaveFocus then
669	>	if Visible and assigned(FDrawPanel) and FDrawPanel.Visible and FWeHaveFocus
670	>	and (Self.Owner=Screen.ActiveForm) then
671		begin
672		AControl := ActiveControl;
673		if (AControl <> nil) and (AControl is TCustomComboBox)
#	Line 1688 | Line 1690 | begin
1690		FDataLink.Free;
1691		end;
1692		if assigned(FRowCache) then FRowCache.Free;
1693	+	if not (csDesigning in ComponentState) then
1694	+	Application.RemoveOnKeyDownBeforeHandler( @KeyDownHandler );
1695		Application.RemoveAsyncCalls(self);
1696		inherited Destroy;
1697		end;

Diff Legend

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