paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 11:10:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL Carbon: fixed bug #0011688: Comboboxes don't close when item was selected - force hide drop/down list when item selected

Browse Source 
git-svn-id: trunk@16470 -
This commit is contained in:
tombo 2008-09-07 13:58:56 +00:00
parent 13edb8ff11
commit dbad42af76
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/carbon/carbonedits.pp
View File

@ -640,7 +640,7 @@ begin
CreateCFString(AParams.Caption, CFString);
try
if OSError(HIComboBoxCreate(ParamsToHIRect(AParams), CFString, nil, nil,
kHIComboBoxAutoSizeListAttribute, Widget),
kHIComboBoxAutoSizeListAttribute or kHIComboBoxAutoDisclosureAttribute, Widget),
Self, SCreateWidget, 'HIComboBoxCreate')then RaiseCreateWidgetError(LCLObject);
finally
@ -719,6 +719,11 @@ begin
FItemIndex := AIndex;
LCLSendSelectionChangedMsg(LCLObject);
end;
// force hide drop-down list and notification
DropDownTimer(Self);
DropDown(False);
DropDownTimer(Self);
end;
{------------------------------------------------------------------------------