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

Qt: bugfix TMemo doesn't fire OnClick() OnDoubleClick()

Browse Source 
git-svn-id: trunk@16403 -
This commit is contained in:
zeljko 2008-09-04 08:53:42 +00:00
parent 8c62c223c5
commit d183b9c039
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4958,8 +4958,6 @@ begin
inherited AttachEvents; inherited AttachEvents;
FTextChanged := QLineEdit_hook_create(Widget); FTextChanged := QLineEdit_hook_create(Widget);
{TODO: BUG CopyUnicodeToPWideString() segfaults while calling SetLength()
workaround: add try..except around SetLength() }
QLineEdit_textChanged_Event(Method) := @SignalTextChanged; QLineEdit_textChanged_Event(Method) := @SignalTextChanged;
QLineEdit_hook_hook_textChanged(FTextChanged, Method); QLineEdit_hook_hook_textChanged(FTextChanged, Method);
end; end;
@ -5265,6 +5263,10 @@ begin
QEvent_accept(Event); QEvent_accept(Event);
case QEvent_type(Event) of case QEvent_type(Event) of
QEventContextMenu: SlotContextMenu(Sender, Event); QEventContextMenu: SlotContextMenu(Sender, Event);
QEventMouseButtonPress,
QEventMouseButtonRelease,
QEventMouseButtonDblClick: SlotMouse(Sender, Event);
QEventMouseMove: SlotMouseMove(Event);
end; end;
end; end;