From 6a3d645d0edc18051ec8ac3ad8e6fdb9dc51aa54 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Mon, 20 Oct 2014 13:03:54 +0100 Subject: gdi: Implements TfpgGDIApplication.GetScreenPixelColor() The color picker in the ColorWheel demo now works on all supported platforms. --- src/corelib/gdi/fpg_gdi.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/corelib/gdi/fpg_gdi.pas') 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; -- cgit v1.2.3-70-g09d2