From e24c69622d95e734b2541cfcec693d010af95fd0 Mon Sep 17 00:00:00 2001 From: alexs75 Date: Sun, 26 Aug 2012 10:09:21 +0000 Subject: [PATCH] fix bug in RxLockupComboBox git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2491 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/rxpopupunit.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/components/rx/rxpopupunit.pas b/components/rx/rxpopupunit.pas index 68dce3c50..f9f06eb85 100644 --- a/components/rx/rxpopupunit.pas +++ b/components/rx/rxpopupunit.pas @@ -55,6 +55,7 @@ type procedure FindPriorChar; procedure SetLookupDisplayIndex(const AValue: integer); protected + procedure SetDBHandlers(Value: boolean);override; procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override; property LookupDisplayIndex:integer read FLookupDisplayIndex write SetLookupDisplayIndex; @@ -891,12 +892,14 @@ begin FLookupDisplayField:=Columns[FLookupDisplayIndex].FieldName; end; +procedure TPopUpGrid.SetDBHandlers(Value: boolean); +begin + // +end; + procedure TPopUpGrid.UTF8KeyPress(var UTF8Key: TUTF8Char); begin inherited UTF8KeyPress(UTF8Key); - if UTF8Key>=#32 then - FindNextChar(UTF8Key) - else if UTF8Key>#32 then FindNextChar(UTF8Key) else