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

Minor commenting improvement

Browse Source 
git-svn-id: trunk@34146 -
This commit is contained in:
sekelsenmat 2011-12-13 07:15:44 +00:00
parent 9fc8c6bedc
commit 33b5417013
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2190,7 +2190,7 @@ begin
{$ifdef VerboseCDText} {$ifdef VerboseCDText}
DebugLn(Format(':>[WinAPI ExtTextOut] DC=%x javaEnvRef=%x Str=%s X=%d Y=%d', DebugLn(Format(':>[WinAPI ExtTextOut] DC=%x javaEnvRef=%x Str=%s X=%d Y=%d',
[DC, PtrInt(javaEnvRef), StrPas(Str), X, Y])); [DC, PtrInt(javaEnvRef), StrPas(Str), X, Y]));
www.{$endif} {$endif}
Result := False; Result := False;
@ -2236,6 +2236,8 @@ begin
UpdateControlLazImageAndCanvas(lImage, lCanvas, lWidth, lHeight, clfRGBA32, pixels, True, False, False); UpdateControlLazImageAndCanvas(lImage, lCanvas, lWidth, lHeight, clfRGBA32, pixels, True, False, False);
// 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
// because misteriously it read the target area pixels as red
lDestCanvas.AlphaBlendIgnoringSrcPixels(lCanvas, X, Y, 0, 0, lWidth, lHeight); lDestCanvas.AlphaBlendIgnoringSrcPixels(lCanvas, X, Y, 0, 0, lWidth, lHeight);
// Release the helper objects // Release the helper objects