paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-22 12:40:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: always close/prevent dropdown when pressing Return, ESC or TAB. Code cleanup

Browse Source 
git-svn-id: trunk@34373 -
This commit is contained in:
blikblum 2011-12-23 14:19:28 +00:00
parent 8ad1d066b9
commit 7b40b6ff7e
1 changed files with 21 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lcl/include/customcombobox.inc
View File

@ -475,42 +475,36 @@ end;
procedure TCustomComboBox.KeyDown(var Key: Word; Shift: TShiftState);
var
skip : Boolean;
UserDropDown: boolean;
Skip, UserDropDown, PreventDropDown: Boolean;
begin
Skip := False;
UserDropDown := ((Shift *[ssAlt] = [ssAlt]) and (Key = VK_DOWN));
PreventDropDown := Key in [VK_TAB, VK_RETURN, VK_ESCAPE];
if PreventDropDown then
DroppedDown := False;
if AutoDropDown or UserDropDown or FReturnArrowState then
begin
case Key of
VK_TAB,VK_RETURN:
begin
if FReturnArrowState = True then
begin
SetArrowKeysTraverseList(False); //we need this here, else we cannot traverse popup list
FReturnArrowState := False;
end;
DroppedDown := False;
end;
else
if PreventDropDown then
begin
if FReturnArrowState then
begin
if ArrowKeysTraverseList = False then
begin
SetArrowKeysTraverseList(True); //we need this here, else we cannot traverse popup list
FReturnArrowState := True;
Skip := True;
end;
//AutoDropDown := True;
DroppedDown := True;
if UserDropDown then
Skip := True;
ArrowKeysTraverseList := False; //we need?? this here, else we cannot traverse popup list
FReturnArrowState := False;
end;
end
else
begin
if not ArrowKeysTraverseList then
begin
ArrowKeysTraverseList := True; //we need?? this here, else we cannot traverse popup list
FReturnArrowState := True;
Skip := True;
end;
DroppedDown := True;
if UserDropDown then
Skip := True;
end;
end;
if Skip then
Key := VK_UNKNOWN
else