1 files changed, 4 insertions, 1 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index 8b7b9939..b24b04be 100644
--- a/src/corelib/gdi/fpg_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -1418,8 +1418,11 @@ begin
 end;
 
 function TfpgGDIApplication.GetScreenPixelColor(APos: TPoint): TfpgColor;
+var
+  c: longword;
 begin
-  raise EfpGUIException.Create('Not implemented yet');
+  c := Windows.GetPixel(FDisplay, APos.X, APos.Y);
+  Result := WinColorTofpgColor(c);
 end;
 
 function TfpgGDIApplication.Screen_dpi_x: integer;