| 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; |
| 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) |
| 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; |
