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

LCL/TCanvas: Switch x and y loops in TCanvas.BrushCopy. Patch by lagprogramming, https://forum.lazarus.freepascal.org/index.php/topic,62996.msg476742.html

Browse Source
This commit is contained in:
wp_xyz 2023-04-10 23:52:26 +02:00
parent 3a2c3212cc
commit c0946573ce
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/canvas.inc
View File

@ -754,8 +754,8 @@ begin
// Next copy the bitmap to a intfimage to be able to make the color change // Next copy the bitmap to a intfimage to be able to make the color change
lIntfImage.LoadFromBitmap(lPaintedBitmap.Handle, 0); lIntfImage.LoadFromBitmap(lPaintedBitmap.Handle, 0);
for x := 0 to lSrcWidth-1 do for y := 0 to lSrcHeight-1 do
for y := 0 to lSrcHeight-1 do for x := 0 to lSrcWidth-1 do
begin begin
lPixelColor := lIntfImage.Colors[x, y]; lPixelColor := lIntfImage.Colors[x, y];
if (lPixelColor.red = lTransparentColor.red) and if (lPixelColor.red = lTransparentColor.red) and