114 |
|
procedure DoEnter; override; |
115 |
|
procedure DoExit; override; |
116 |
|
procedure KeyUp(var Key: Word; Shift: TShiftState); override; |
117 |
+ |
procedure Loaded; override; |
118 |
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override; |
119 |
|
procedure SetItemIndex(const Val: integer); override; |
120 |
|
function SQLSafe(aText: string): string; |
487 |
|
(not (cbactEndOfLineComplete in AutoCompleteText) or (SelStart = UTF8Length(Text))) then |
488 |
|
FTimer.Interval := FKeyPressInterval |
489 |
|
else |
490 |
< |
FTimer.Interval := 0 |
490 |
> |
FTimer.Interval := 0; |
491 |
> |
end; |
492 |
> |
|
493 |
> |
procedure TIBLookupComboEditBox.Loaded; |
494 |
> |
begin |
495 |
> |
inherited Loaded; |
496 |
> |
IBControlLinkChanged; |
497 |
|
end; |
498 |
|
|
499 |
|
procedure TIBLookupComboEditBox.Notification(AComponent: TComponent; |