paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 12:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

Small naming fix

Browse Source 
git-svn-id: trunk@34147 -
This commit is contained in:
sekelsenmat 2011-12-13 07:51:37 +00:00
parent 33b5417013
commit be198d094a
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawnwinapi_android.inc
View File

@ -2238,7 +2238,7 @@ begin
// Execute the copy, pixel by pixel with Alpha blending // Execute the copy, pixel by pixel with Alpha blending
// Simple AlphaBlend was showing redish areas in the emulator // Simple AlphaBlend was showing redish areas in the emulator
// because misteriously it read the target area pixels as red // because misteriously it read the target area pixels as red
lDestCanvas.AlphaBlendIgnoringSrcPixels(lCanvas, X, Y, 0, 0, lWidth, lHeight); lDestCanvas.AlphaBlendIgnoringDestPixels(lCanvas, X, Y, 0, 0, lWidth, lHeight);
// Release the helper objects // Release the helper objects
lCanvas.Free; lCanvas.Free;

6
lcl/lazcanvas.pas
View File

@ -100,7 +100,7 @@ type
// Alpha blending operations // Alpha blending operations
procedure AlphaBlend(ASource: TLazCanvas; procedure AlphaBlend(ASource: TLazCanvas;
const ADestX, ADestY, ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer); const ADestX, ADestY, ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer);
procedure AlphaBlendIgnoringSrcPixels(ASource: TLazCanvas; procedure AlphaBlendIgnoringDestPixels(ASource: TLazCanvas;
const ADestX, ADestY, ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer); const ADestX, ADestY, ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer);
procedure CanvasCopyRect(ASource: TLazCanvas; procedure CanvasCopyRect(ASource: TLazCanvas;
const ADestX, ADestY, ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer); const ADestX, ADestY, ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer);
@ -458,9 +458,9 @@ begin
end; end;
end; end;
// This is a safer version in case one doesnt trust the source pixels // This is a safer version in case one doesnt trust the destination pixels
// It will draw as if the target area contained opaque white // It will draw as if the target area contained opaque white
procedure TLazCanvas.AlphaBlendIgnoringSrcPixels(ASource: TLazCanvas; procedure TLazCanvas.AlphaBlendIgnoringDestPixels(ASource: TLazCanvas;
const ADestX, ADestY, ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer const ADestX, ADestY, ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer
); );
var var