From 7d0c8c60a7ff5e6f0b25a99073ca034ef028d798 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Tue, 21 Aug 2007 14:40:43 +0000
Subject: * minor fix

---
 src/corelib/gdi/gfx_gdi.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/corelib/gdi')

diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas
index f6a2dbb3..1b8d82c0 100644
--- a/src/corelib/gdi/gfx_gdi.pas
+++ b/src/corelib/gdi/gfx_gdi.pas
@@ -1008,7 +1008,7 @@ end;
 
 function TfpgWindowImpl.DoWindowToScreen(ASource: TfpgWindowBase; const AScreenPos: TPoint): TPoint;
 begin
-  if not ASource.HandleIsValid then
+  if not TfpgWindowImpl(ASource).HandleIsValid then
     Exit; //==>
 
   Result.X := AScreenPos.X;
-- 
cgit v1.2.3-70-g09d2