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

MG: fixed client origin coordinates

Browse Source 
git-svn-id: trunk@2092 -
This commit is contained in:
lazarus 2002-08-17 23:40:55 +00:00
parent 831bce3844
commit 2b3ce4681a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,7 +59,7 @@ end;
Result: GBoolean
gtkNoteBookCloseBtnClicked is called by the gtk, whenever a close button in
the tab of notebook page is clicked.
the tab of a notebook page is clicked.
-------------------------------------------------------------------------------}
function gtkNoteBookCloseBtnClicked(Widget: PGtkWidget;
Data: Pointer): GBoolean; cdecl;
@ -915,6 +915,7 @@ begin
ShiftState := GTKEventState2ShiftState(Event^.State);
MappedXY:=TranslateGdkPointToClientArea(Event^.Window,EventXY,
PGtkWidget(AWinControl.Handle));
//writeln('BBB1 MouseDown ',AWinControl.Name,':',AWinControl.ClassName,' Mapped=',MappedXY.X,',',MappedXY.Y,' Event=',EventXY.X,',',EventXY.Y);
if event^.Button in [4,5] then begin
// this is a mouse wheel event
@ -927,8 +928,6 @@ begin
MessE.Button := 0;
// send the message directly to the LCL
// (Posting the message via queue
// has the risk of getting out of sync with the gtk)
DeliverMessage(AWinControl, MessE);
end
else begin
@ -969,8 +968,6 @@ begin
MessI.Result:=0;
// send the message directly to the LCL
// (Posting the message via queue
// has the risk of getting out of sync with the gtk)
DeliverMessage(AWinControl, MessI);
end;
end;
@ -2467,6 +2464,9 @@ end;
{ =============================================================================
$Log$
Revision 1.143 2002/10/09 10:22:54 lazarus
MG: fixed client origin coordinates
Revision 1.142 2002/10/07 07:00:03 lazarus
MG: fixed stopping keypress event if handled by LCL