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

Qt:

Browse Source 
- reimplement sendmessage same way as postmessage is done

git-svn-id: trunk@12174 -
This commit is contained in:
paul 2007-09-25 06:33:33 +00:00
parent 5e815b536b
commit d65866183a
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2060,7 +2060,7 @@ begin
Msg.wParam := QLCLMessageEvent_getWParam(MessageEvent);
Msg.lParam := QLCLMessageEvent_getLParam(MessageEvent);
Msg.Result := 0;
DeliverMessage(Msg);
QLCLMessageEvent_setMsgResult(MessageEvent, DeliverMessage(Msg));
end;
procedure TQtWidget.Activate;

15
lcl/interfaces/qt/qtwinapi.inc
View File

@ -3752,15 +3752,18 @@ function TQtWidgetSet.SendMessage(HandleWnd: HWND; Msg: Cardinal;
WParam: WParam; LParam: LParam): LResult;
var
Widget: TQtWidget absolute HandleWnd;
Message: TLMessage;
Event: QLCLMessageEventH;
begin
Result := 0;
if HandleWnd <> 0 then
begin
Message.msg := Msg;
Message.wParam := WParam;
Message.lParam := LParam;
Message.Result := 0;
Result := Widget.DeliverMessage(Message);
Event := QLCLMessageEvent_create(QEventLCLMessage, Msg, wParam, lParam, 0);
try
QCoreApplication_sendEvent(Widget.Widget, Event);
Result := QLCLMessageEvent_getMsgResult(Event);
finally
QLCLMessageEvent_destroy(Event);
end;
end;
end;