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

prevent double onclick event when using click-on-selchange

Browse Source 
git-svn-id: trunk@7155 -
This commit is contained in:
micha 2005-05-06 10:21:38 +00:00
parent 6c015e6ea2
commit 564ffa1867
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customlistbox.inc
View File

@ -227,6 +227,14 @@ begin
IntfSelectionChanged;
end;
procedure TCustomListBox.WMLButtonDown(var Message: TLMLButtonDown);
begin
inherited WMLButtonDown(Message);
// prevent Click to be called twice when using selchange as click
if ClickOnSelChange then
Exclude(FControlState, csClicked);
end;
{------------------------------------------------------------------------------
procedure TCustomListBox.SendItemSelected(Index: integer; IsSelected: boolean);

4
lcl/stdctrls.pp
View File

@ -408,6 +408,7 @@ type
procedure UpdateSorted;
procedure LMDrawListItem(var TheMessage: TLMDrawListItem); message LM_DrawListItem;
procedure LMSelChange(var TheMessage); message LM_SelChange;
procedure WMLButtonDown(Var Message: TLMLButtonDown); message LM_LBUTTONDOWN;
procedure SendItemSelected(Index: integer; IsSelected: boolean);
protected
procedure AssignItemDataToCache(const AIndex: Integer; const AData: Pointer); virtual; // called to store item data while the handle isn't created
@ -1256,6 +1257,9 @@ end.
{ =============================================================================
$Log$
Revision 1.205 2005/05/06 10:21:38 micha
prevent double onclick event when using click-on-selchange
Revision 1.204 2005/05/06 09:39:49 micha
introduce intfselectionchanged procedure for widgetsets that do not send LM_SELCHANGED automatically
fix senditemindex to cause onclick event