mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 10:50:53 +02:00
LCL-fpgui: Fully implement DCGetPixel(). Issue #35478, patch from Graeme.
git-svn-id: trunk@61124 -
This commit is contained in:
parent
182c72e0da
commit
4236e93bc6
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user