paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 17:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed mouse capturing, OI edit focus

Browse Source 
git-svn-id: trunk@852 -
This commit is contained in:
lazarus 2002-02-09 01:47:06 +00:00
parent 081df4c405
commit b6d2afd839
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -818,7 +818,6 @@ end;
function GetCoreChildWidget(const Widget: Pointer): Pointer;
begin
Result:= gtk_object_get_data(Widget, 'core_child');
if Result = nil then Result := Widget;
end;
procedure SetCoreChildWidget(const ParentWidget, ChildWidget: Pointer);
@ -984,6 +983,22 @@ begin
end;
end;
{-------------------------------------------------------------------------------
procedure CheckMouseCaptureHandle(CurrentInputWidget: PGtkWidget);
Compares CurrentInputWidget with cached capture widget
and updates if necessary.
-------------------------------------------------------------------------------}
procedure CheckMouseCaptureHandle(CurrentInputWidget: PGtkWidget);
begin
if (MCaptureHandle <> 0)
and (Pointer(MCaptureHandle) <> CurrentInputWidget) then begin
// capture differs. => gtk forgot to tell, that the capturing has changed
// -> update
UpdateMouseCaptureControl;
end;
end;
{------------------------------------------------------------------------------
procedure: SetCursor
Params: AWinControl : TWinControl
@ -2526,6 +2541,9 @@ end;
{ =============================================================================
$Log$
Revision 1.75 2002/08/24 12:55:00 lazarus
MG: fixed mouse capturing, OI edit focus
Revision 1.74 2002/08/24 07:09:04 lazarus
MG: fixed bracket hilighting