paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +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;
FDragHotStop: TPoint;
// cache for WindowFromPoint
FLastWFPMousePos: TPoint;
FLastWFPResult: HWND;
function CreateThemeServices: TThemeServices; override;
function GetDeviceContextClass: TGtkDeviceContextClass; virtual; abstract;
public

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

@ -181,6 +181,8 @@ begin
inherited Create;
FLastWFPMousePos := Point(MaxInt, MaxInt);
{$IFDEF EnabledGtkThreading}
{$IFNDEF Win32}
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;
begin
// return cached value to prevent heavy gdk_window_at_pointer call
//if (APoint = FLastWFPMousePos) and GTK_IS_WIDGET(Pointer(FLastWFPResult)) then
// Exit(FLastWFPResult);
if (APoint = FLastWFPMousePos) and GTK_IS_WIDGET(Pointer(FLastWFPResult)) then
Exit(FLastWFPResult);
//DebugLn('WindowFromPoint: ', dbgs(APoint));
//DumpStack;
Result := 0;
@ -9712,8 +9712,8 @@ begin
Widget := gtk_get_event_widget(@ev);
Result := PtrUInt(Widget);
end;
//FLastWFPMousePos := APoint;
//FLastWFPResult := Result;
FLastWFPMousePos := APoint;
FLastWFPResult := Result;
end;
//##apiwiz##eps## // Do not remove