ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/ibcontrols/DBControlGrid.pas
(Generate patch)

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