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

fix closeup event; set text manually because windows has only set itemindex, but not the text yet

Browse Source 
git-svn-id: trunk@5447 -
This commit is contained in:
micha 2004-05-08 07:21:10 +00:00
parent 5941e179aa
commit 3e1fa8cdbe
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/win32/win32callback.inc
View File

@ -382,7 +382,16 @@ Begin
end
else if OwnerObject is TCustomCombobox then
case Hi(WParam) of
CBN_EDITCHANGE, CBN_SELCHANGE: LMessage.Msg := LM_CHANGED;
{ no need to handle CBN_SELCHANGED here: upon receiving of CBN_SELCHANGED,
text is not actually changed yet }
CBN_EDITCHANGE{, CBN_SELCHANGED}: LMessage.Msg := LM_CHANGED;
{ closeup message is sent before text is actually changed... *sigh*
itemindex is updated, so set text manually }
CBN_CLOSEUP:
begin
with TCustomComboBox(OwnerObject) do
Text := Items[ItemIndex];
end;
end;
// no specific message found? try send a general msg
if LMessage.Msg = LM_NULL then
@ -1138,6 +1147,9 @@ end;
{
$Log$
Revision 1.101 2004/05/08 07:21:10 micha
fix closeup event; set text manually because windows has only set itemindex, but not the text yet
Revision 1.100 2004/04/11 10:19:28 micha
cursor management updated:
- lcl notifies interface via WSControl.SetCursor of changes