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

Gtk3: fixed TGtk3DeviceContext.getPixel(). Patch by Anton Kavalenka. issue #41413

Browse Source
This commit is contained in:
zeljan1 2025-02-08 17:44:49 +01:00
parent 8e5b458e0b
commit 07d34d83e4
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk3/gtk3objects.pas
View File

@ -2004,17 +2004,18 @@ end;
function TGtk3DeviceContext.getPixel(x, y: Integer): TColor;
var
pixbuf: PGdkPixbuf;
pixels: pointer;
pixels,row: pointer;
stride:integer;
begin
Result := 0;
pixbuf := gdk_pixbuf_get_from_surface(CairoSurface, X, Y, 1, 1);
if Assigned(pixbuf) then
cairo_surface_flush (CairoSurface);
pixels := cairo_image_surface_get_data(Cairosurface);
if Assigned(pixels) then
begin
pixels := gdk_pixbuf_get_pixels(pixbuf);
if Assigned(pixels) then
Result := PLongInt(pixels)^ and $FFFFFF; // take first 3 bytes at pixels^
g_object_unref(pixbuf);
stride := cairo_image_surface_get_stride(CairoSurface);
row:=pixels+(fncOrigin.Y+Y)*stride;
inc(row,(fncOrigin.X+X)*sizeof(longint));
Result := PLongInt(row)^ and $FFFFFF; // take first 3 bytes at pixels^
end;
end;