| # | Line 347 | Line 347 | begin | |
|---|---|---|
| 347 | SelStart := iSelStart; | |
| 348 | SelLength := UTF8Length(Text); | |
| 349 | end; | |
| 350 | + | KeyValue := ListSource.DataSet.FieldByName(KeyField).AsVariant; |
| 351 | end; | |
| 352 | end; | |
| 353 | finally | |
| # | Line 380 | Line 381 | end; | |
| 381 | ||
| 382 | procedure TIBLookupComboEditBox.HandleEnter(Data: PtrInt); | |
| 383 | begin | |
| 384 | + | if AppDestroying in Application.Flags then Exit; |
| 385 | SelectAll | |
| 386 | end; | |
| 387 | ||
| # | Line 457 | Line 459 | end; | |
| 459 | ||
| 460 | procedure TIBLookupComboEditBox.DoExit; | |
| 461 | begin | |
| 462 | + | if FTimer.Interval <> 0 then |
| 463 | + | HandleTimer(nil); |
| 464 | FExiting := true; | |
| 465 | try | |
| 466 | CheckAndInsert; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |