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

Qt: bugfix #11993

Browse Source 
git-svn-id: trunk@16302 -
This commit is contained in:
zeljko 2008-08-29 17:14:58 +00:00
parent 018ce72857
commit a94f5f833c
1 changed files with 37 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
lcl/interfaces/qt/qtwidgets.pas
View File

@ -6867,16 +6867,43 @@ end;
------------------------------------------------------------------------------}
procedure TQtTreeWidget.SignalItemClicked(item: QTreeWidgetItemH; column: Integer) cdecl;
var
Msg: TLMNotify;
Msg: TLMMouse;
MousePos: TQtPoint;
Modifiers: QtKeyboardModifiers;
MsgN: TLMNotify;
NMLV: TNMListView;
R: TRect;
Pt: TPoint;
begin
FillChar(Msg, SizeOf(Msg), #0);
QCursor_pos(@MousePos);
QWidget_mapFromGlobal(Widget, @MousePos, @MousePos);
OffsetMousePos(@MousePos);
Msg.Keys := 0;
Modifiers := QApplication_keyboardModifiers();
Msg.Keys := QtKeyModifiersToKeyState(Modifiers) or MK_LBUTTON;
Msg.XPos := SmallInt(MousePos.X);
Msg.YPos := SmallInt(MousePos.Y);
Msg.Msg := LM_LBUTTONDOWN;
NotifyApplicationUserInput(Msg.Msg);
DeliverMessage(Msg);
Msg.Msg := LM_PRESSED;
DeliverMessage(Msg);
Msg.Msg := LM_LBUTTONUP;
NotifyApplicationUserInput(Msg.Msg);
DeliverMessage(Msg);
Msg.Msg := LM_RELEASED;
DeliverMessage(Msg);
// we'll send also which item is clicked ... probably future
// lcl implementation of OnItemClick.
FillChar(MsgN, SizeOf(MsgN), #0);
FillChar(NMLV, SizeOf(NMLV), #0);
Msg.Msg := LM_CLICKED;
MsgN.Msg := LM_CLICKED;
NMLV.hdr.hwndfrom := LCLObject.Handle;
NMLV.hdr.code := NM_CLICK;
@ -6885,18 +6912,19 @@ begin
NMLV.iSubItem := Column;
NMLV.uNewState := UINT(NM_CLICK);
NMLV.uChanged := LVIS_SELECTED;
NMLV.uChanged := LVIS_SELECTED;
QTreeWidget_visualItemRect(QTreeWidgetH(Widget), @R, Item);
pt.X := R.Left;
pt.Y := R.Top;
NMLV.ptAction := pt;
Msg.NMHdr := @NMLV.hdr;
DeliverMessage(Msg);
MsgN.NMHdr := @NMLV.hdr;
DeliverMessage(MsgN);
end;
{------------------------------------------------------------------------------