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

* reverted r21200 #16af7e11b4, the removed functionality is essential when running lcl apps remote

Browse Source 
git-svn-id: trunk@21207 -
This commit is contained in:
marc 2009-08-12 21:43:56 +00:00
parent e90595ffcc
commit 6185c6ab60
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkint.pp
View File

@ -131,6 +131,10 @@ type
FDragImageListIcon: PGtkWidget; FDragImageListIcon: PGtkWidget;
FDragHotStop: TPoint; FDragHotStop: TPoint;
// cache for WindowFromPoint
FLastWFPMousePos: TPoint;
FLastWFPResult: HWND;
function CreateThemeServices: TThemeServices; override; function CreateThemeServices: TThemeServices; override;
function GetDeviceContextClass: TGtkDeviceContextClass; virtual; abstract; function GetDeviceContextClass: TGtkDeviceContextClass; virtual; abstract;
public public

2
lcl/interfaces/gtk/gtkwidgetset.inc
View File

@ -181,6 +181,8 @@ begin
inherited Create; inherited Create;
FLastWFPMousePos := Point(MaxInt, MaxInt);
{$IFDEF EnabledGtkThreading} {$IFDEF EnabledGtkThreading}
{$IFNDEF Win32} {$IFNDEF Win32}
if GetThreadManager(TM) and Assigned(TM.InitManager) and g_thread_supported then if GetThreadManager(TM) and Assigned(TM.InitManager) and g_thread_supported then

8
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -9695,8 +9695,8 @@ var
p: TPoint; p: TPoint;
begin begin
// return cached value to prevent heavy gdk_window_at_pointer call // return cached value to prevent heavy gdk_window_at_pointer call
//if (APoint = FLastWFPMousePos) and GTK_IS_WIDGET(Pointer(FLastWFPResult)) then if (APoint = FLastWFPMousePos) and GTK_IS_WIDGET(Pointer(FLastWFPResult)) then
// Exit(FLastWFPResult); Exit(FLastWFPResult);
//DebugLn('WindowFromPoint: ', dbgs(APoint)); //DebugLn('WindowFromPoint: ', dbgs(APoint));
//DumpStack; //DumpStack;
Result := 0; Result := 0;
@ -9712,8 +9712,8 @@ begin
Widget := gtk_get_event_widget(@ev); Widget := gtk_get_event_widget(@ev);
Result := PtrUInt(Widget); Result := PtrUInt(Widget);
end; end;
//FLastWFPMousePos := APoint; FLastWFPMousePos := APoint;
//FLastWFPResult := Result; FLastWFPResult := Result;
end; end;
//##apiwiz##eps## // Do not remove //##apiwiz##eps## // Do not remove