LCL-fpgui: Fully implement DCGetPixel(). Issue #35478, patch from Graeme.

git-svn-id: trunk@61124 -
This commit is contained in:
juha 2019-05-03 19:45:28 +00:00
parent 182c72e0da
commit 4236e93bc6

View File

@ -289,8 +289,14 @@ begin
end;
function TFpGuiWidgetSet.DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor;
var
DC: TFPGUIDeviceContext;
p: TPoint;
begin
Result:=clNone;
DC := TFPGUIDeviceContext(CanvasHandle);
p := Point(X,Y);
p := DC.PreparePointOffsets(p);
Result := DC.fpgCanvas.Pixels[p.x, p.y];
end;
procedure TFpGuiWidgetSet.DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor);