paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Implement Canvas.GetPixel. Issue #36472, patch from CudaText man.

Browse Source 
git-svn-id: trunk@62473 -
This commit is contained in:
juha 2019-12-31 10:52:52 +00:00
parent 593915c4b3
commit d163f49c6b
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/gtk3/gtk3object.inc
View File

@ -588,23 +588,20 @@ begin
Result := HCURSOR({%H-}PtrUInt(gdk_cursor_new(CursorValue)));
end;
function TGtk3WidgetSet.DCGetPixel(CanvasHandle: HDC; X, Y: integer
): TGraphicsColor;
function TGtk3WidgetSet.DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor;
var
ANewPix: PGdkPixbuf;
pixbuf: PGdkPixbuf;
pixels: pointer;
begin
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
DebugLn('WARNING: TGtk3WidgetSet.DCGetPixel not implemented ...');
{$ENDIF}
Result := 0;
if IsValidDC(CanvasHandle) then
begin
if (TGtk3DeviceContext(CanvasHandle).ParentPixmap <> nil) then
pixbuf := gdk_pixbuf_get_from_surface(TGtk3DeviceContext(CanvasHandle).CairoSurface, X, Y, 1, 1);
if Assigned(pixbuf) then
begin
ANewPix := gdk_pixbuf_new_subpixbuf(TGtk3DeviceContext(CanvasHandle).ParentPixmap, X, Y, 1, 1);
// cairo_get_c
// gdk_pixbuf_get_pixels(ANewPix);
ANewPix^.unref;
pixels := gdk_pixbuf_get_pixels(pixbuf);
if Assigned(pixels) then
Result := PLongInt(pixels)^ and $FFFFFF; // take first 3 bytes at pixels^
end;
end;
end;