| 568 |
|
Exit; {ignore these keys if we are in a combobox} |
| 569 |
|
|
| 570 |
|
if (AControl <> nil) and (AControl is TCustomMemo) |
| 571 |
< |
and (Key in [VK_RETURN,VK_UP,VK_DOWN]) then Exit; {Ignore Return in a CustomMemo} |
| 571 |
> |
and (Key in [VK_RETURN,VK_UP,VK_DOWN]) then Exit; {Ignore keys in a CustomMemo} |
| 572 |
|
|
| 573 |
|
if (AControl <> nil) and (AControl is TCustomGrid) |
| 574 |
< |
and (Key in [VK_RETURN,VK_UP,VK_DOWN,VK_TAB]) then Exit; {Ignore Return in a Custom Grid} |
| 574 |
> |
and (Key in [VK_RETURN,VK_UP,VK_DOWN,VK_TAB]) then Exit; {Ignore keys in a Custom Grid} |
| 575 |
|
|
| 576 |
< |
if (AControl <> nil) and ((AControl is TDateEdit) or (AControl is TEBEdit)) |
| 577 |
< |
and (Key in [VK_RETURN,VK_UP,VK_DOWN, |
| 578 |
< |
VK_ESCAPE,VK_LEFT,VK_RIGHT]) then Exit; {Ignore Return in a Data edit} |
| 576 |
> |
if (AControl <> nil) and (AControl is TEBEdit) and (AControl.Owner is TDateEdit) then |
| 577 |
> |
begin |
| 578 |
> |
if (Key in [VK_LEFT,VK_RIGHT]) then Exit; {Ignore navigation keys} |
| 579 |
> |
if TDateEdit(AControl.Owner).DroppedDown and |
| 580 |
> |
(Key in [VK_RETURN,VK_UP,VK_DOWN,VK_ESCAPE]) then Exit; {Ignore TCalender navigation keys in a Data edit} |
| 581 |
> |
end; |
| 582 |
|
|
| 583 |
|
if assigned(FOnKeyDownHander) then |
| 584 |
|
OnKeyDownHander(Sender,Key,Shift,Done); |
| 1000 |
|
destructor TIBDynamicGridColumn.Destroy; |
| 1001 |
|
begin |
| 1002 |
|
if assigned(FDBLookupProperties) then FDBLookupProperties.Free; |
| 1003 |
+ |
Application.RemoveAsyncCalls(self); |
| 1004 |
|
inherited Destroy; |
| 1005 |
|
end; |
| 1006 |
|
|
| 1293 |
|
if assigned(FIBControlLink) then FIBControlLink.Free; |
| 1294 |
|
if assigned(FIndexFieldsList) then FIndexFieldsList.Free; |
| 1295 |
|
if assigned(FDBLookupCellEditor) then FDBLookupCellEditor.Free; |
| 1296 |
+ |
Application.RemoveAsyncCalls(self); |
| 1297 |
|
inherited Destroy; |
| 1298 |
|
end; |
| 1299 |
|
|
