pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix bug in RxLockupComboBox

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2491 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-08-26 10:09:21 +00:00
parent 3414e0ec24
commit e24c69622d
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/rxpopupunit.pas
View File

@ -55,6 +55,7 @@ type
procedure FindPriorChar; procedure FindPriorChar;
procedure SetLookupDisplayIndex(const AValue: integer); procedure SetLookupDisplayIndex(const AValue: integer);
protected protected
procedure SetDBHandlers(Value: boolean);override;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override; procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
property LookupDisplayIndex:integer read FLookupDisplayIndex write SetLookupDisplayIndex; property LookupDisplayIndex:integer read FLookupDisplayIndex write SetLookupDisplayIndex;
@ -891,12 +892,14 @@ begin
FLookupDisplayField:=Columns[FLookupDisplayIndex].FieldName; FLookupDisplayField:=Columns[FLookupDisplayIndex].FieldName;
end; end;
procedure TPopUpGrid.SetDBHandlers(Value: boolean);
begin
//
end;
procedure TPopUpGrid.UTF8KeyPress(var UTF8Key: TUTF8Char); procedure TPopUpGrid.UTF8KeyPress(var UTF8Key: TUTF8Char);
begin begin
inherited UTF8KeyPress(UTF8Key); inherited UTF8KeyPress(UTF8Key);
if UTF8Key>=#32 then
FindNextChar(UTF8Key)
else
if UTF8Key>#32 then if UTF8Key>#32 then
FindNextChar(UTF8Key) FindNextChar(UTF8Key)
else else