View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0005591JEDI VCL00 JVCL Componentspublic2011-06-03 18:062011-09-21 14:10
ReporterCaiqueAssigned ToAHUser 
PrioritynormalSeveritytrivialReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.40 
Target VersionFixed in Version3.45 
Summary0005591: TJvDBLookupCombo - don't allow changes in KeyDown for VK_UP and VK_DOWN
DescriptionTrying check VK_UP / VK_DOWN in KeyDown Event don't work ( value of
variable Key is 0 ).

I beleave de code must be changed from :

procedure TJvDBLookupCombo.KeyDown(var Key: Word; Shift: TShiftState);
...
begin
... // code
 inherited ; <<===
end ;

changes to :

procedure TJvDBLookupCombo.KeyDown(var Key: Word; Shift: TShiftState);
...
begin
 inherited ; <<===
... // code
end ;

Additional Informationthis sample don't work :

procedure TForm1.JvDBLookupCombo1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  // Key has processed before event, in case of VK_UP / VK_DOWN
  // value is 0.
  // never do above :
  if ( Key in [ VK_UP, VK_DOWN ] ) and not ( TJvDBLookupCombo( Sender ).ListVisible ) then
    begin
     Key := 0 ;
     TJvDBLookupCombo ( Sender ).DropDown ;
    end ;
end;
TagsNo tags attached.

Activities

obones

2011-06-07 18:03

administrator   ~0018641

Please provide the zipped sources of a sample application showing this

AHUser

2011-06-11 13:04

developer   ~0018742

Fixed in svn revision 13063.

Issue History

Date Modified Username Field Change
2011-06-03 18:06 Caique New Issue
2011-06-07 18:03 obones Note Added: 0018641
2011-06-07 18:03 obones Status new => feedback
2011-06-11 13:02 AHUser Assigned To => AHUser
2011-06-11 13:04 AHUser Note Added: 0018742
2011-06-11 13:04 AHUser Status feedback => resolved
2011-06-11 13:04 AHUser Fixed in Version => Daily / SVN
2011-06-11 13:04 AHUser Resolution open => fixed
2011-09-21 14:10 obones Fixed in Version Daily / SVN => 3.45