| 68 |
|
} |
| 69 |
|
|
| 70 |
|
type |
| 71 |
– |
TRowCacheState = (rcEmpty,rcPresent,rcDeleted); |
| 72 |
– |
TRowDetails = record |
| 73 |
– |
FState: TRowCacheState; |
| 74 |
– |
FAlternateColor: boolean; |
| 75 |
– |
FBitmap: TBitmap; |
| 76 |
– |
end; |
| 77 |
– |
|
| 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; |
| 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; |
| 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) |
| 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; |
