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

MG: propedits text improvements from Andrew, uncapturing, improved comobobox

Browse Source 
git-svn-id: trunk@861 -
This commit is contained in:
lazarus 2002-02-09 01:47:08 +00:00
parent 02c0990cdf
commit 8b622c33bc
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/gtk/gtkproc.inc
View File

@ -559,6 +559,20 @@ begin
end; end;
{------------------------------------------------------------------------------
procedure Uncapturehandle;
Frees the CaptureHandle
------------------------------------------------------------------------------}
procedure Uncapturehandle;
begin
if MCaptureHandle <> 0 then begin
//gdk_pointer_ungrab(0);
gtk_grab_remove(pgtkwidget(MCaptureHandle));
MCaptureHandle:=0;
end;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Procedure: StoreCommonDialogSetup Procedure: StoreCommonDialogSetup
Params: ADialog: TCommonDialog Params: ADialog: TCommonDialog
@ -978,6 +992,7 @@ begin
CurMouseCaptureHandle:=gtk_grab_get_current; CurMouseCaptureHandle:=gtk_grab_get_current;
if OldMouseCaptureHandle<>CurMouseCaptureHandle then begin if OldMouseCaptureHandle<>CurMouseCaptureHandle then begin
// mouse capture widget has changed // mouse capture widget has changed
Uncapturehandle;
MCaptureHandle:=integer(CurMouseCaptureHandle); // ToDo: 64bit faulty MCaptureHandle:=integer(CurMouseCaptureHandle); // ToDo: 64bit faulty
NotifyCurCaptureControl; NotifyCurCaptureControl;
end; end;
@ -2615,6 +2630,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.77 2002/08/27 18:45:14 lazarus
MG: propedits text improvements from Andrew, uncapturing, improved comobobox
Revision 1.76 2002/08/27 06:40:51 lazarus Revision 1.76 2002/08/27 06:40:51 lazarus
MG: ShortCut support for buttons from Andrew MG: ShortCut support for buttons from Andrew