paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-30 17:56:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed key events and changed pixmap loading

Browse Source 
git-svn-id: trunk@1928 -
This commit is contained in:
lazarus 2002-08-17 23:40:16 +00:00
parent 625b625a5a
commit a8b08fac69
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -359,7 +359,7 @@ begin
// send the message directly to the LCL // send the message directly to the LCL
// (Posting the message via queue // (Posting the message via queue
// has the risk of getting out of sync with the gtk) // has the risk of getting out of sync with the gtk)
Result := DeliverMessage(Data, Msg) = 0; Result := DeliverPostMessage(Data, Msg);
end; end;
GDK_KEY_PRESS: GDK_KEY_PRESS:
begin begin
@ -390,7 +390,7 @@ begin
// send the message directly to the LCL // send the message directly to the LCL
// (Posting the message via queue // (Posting the message via queue
// has the risk of getting out of sync with the gtk) // has the risk of getting out of sync with the gtk)
Result := DeliverMessage(Data, Msg) = 0; Result := DeliverPostMessage(Data, Msg);
if KeyCode <> $FFFF if KeyCode <> $FFFF
then begin then begin
@ -401,7 +401,7 @@ begin
// send the message directly to the LCL // send the message directly to the LCL
// (Posting the message via queue // (Posting the message via queue
// has the risk of getting out of sync with the gtk) // has the risk of getting out of sync with the gtk)
Result := DeliverMessage(Data, Msg) = 0; Result := DeliverPostMessage(Data, Msg);
end; end;
end; end;
end; end;
@ -2120,6 +2120,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.104 2002/08/22 12:30:36 lazarus
MG: fixed key events and changed pixmap loading
Revision 1.103 2002/08/22 12:25:00 lazarus Revision 1.103 2002/08/22 12:25:00 lazarus
MG: fixed mouse events MG: fixed mouse events