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

Fixed a gtk2 bug where TCheckListBox.OnItemClick would always use 0 for the Index param

Browse Source 
git-svn-id: trunk@12438 -
This commit is contained in:
andrew 2007-10-13 16:02:39 +00:00
parent f54cf5bbbc
commit 093ca94abb
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/gtk2/gtk2wschecklst.pp
View File

@ -90,6 +90,7 @@ begin
g_free(value); g_free(value);
end; end;
Mess.Msg := LM_CHANGED; Mess.Msg := LM_CHANGED;
Val(arg1, Mess.WParam);
Mess.Result := 0; Mess.Result := 0;
DeliverMessage(widgetInfo^.lclObject, Mess); DeliverMessage(widgetInfo^.lclObject, Mess);
end; end;