paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 11:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed uncapturing of mouse

Browse Source 
git-svn-id: trunk@2094 -
This commit is contained in:
lazarus 2002-08-17 23:40:55 +00:00
parent 75c82f7d1c
commit 6a4f825241
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -229,7 +229,6 @@ function GTKEventState2ShiftState(KeyState: Word): TShiftState;
function KeyToListCode(KeyCode, VirtKeyCode: Word; Extended: boolean): integer;
procedure GetGTKKeyInfo(const Event: PGDKEventKey; var KeyCode,VirtualKey: Word;
var SysKey, Extended, Toggle: Boolean);
procedure Uncapturehandle;
procedure StoreCommonDialogSetup(ADialog: TCommonDialog);
procedure DestroyCommonDialogAddOns(ADialog: TCommonDialog);
function ObjectToGTKObject(const AObject: TObject): gtk_object;
@ -258,7 +257,6 @@ function GetWidgetClientOrigin(TheWidget: PGtkWidget): TPoint;
function TranslateGdkPointToClientArea(SourceWindow: PGdkWindow;
SourcePos: TPoint; DestinationWidget: PGtkWidget): TPoint;
procedure UpdateMouseCaptureControl;
procedure CheckMouseCaptureHandle(CurrentInputWidget: PGtkWidget);
procedure SetCursor(AWinControl : TWinControl; Data: Pointer);
type