paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-24 13:57:10 +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;
{------------------------------------------------------------------------------
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
Params: ADialog: TCommonDialog
@ -978,6 +992,7 @@ begin
CurMouseCaptureHandle:=gtk_grab_get_current;
if OldMouseCaptureHandle<>CurMouseCaptureHandle then begin
// mouse capture widget has changed
Uncapturehandle;
MCaptureHandle:=integer(CurMouseCaptureHandle); // ToDo: 64bit faulty
NotifyCurCaptureControl;
end;
@ -2615,6 +2630,9 @@ end;
{ =============================================================================
$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
MG: ShortCut support for buttons from Andrew