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

Adds a filter for the special alphablending routine to filter out white pixels and makes the Android look the default in the Android example

Browse Source 
git-svn-id: trunk@36391 -
This commit is contained in:
sekelsenmat 2012-03-28 09:11:32 +00:00
parent 89e3e0fba4
commit 6edfeb2724
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/androidlcl/androidlcltest.lpr
View File

@ -6,7 +6,7 @@ uses
customdrawnint,
Interfaces,
Forms,
mainform, secondform;
mainform, secondform, customdrawn_android, customdrawndrawers;
exports
Java_com_pascal_lclproject_LCLActivity_LCLOnTouch name 'Java_com_pascal_lcltest_LCLActivity_LCLOnTouch',
@ -22,6 +22,7 @@ exports
procedure MyActivityOnCreate;
begin
DefaultStyle := dsAndroid;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);

4
lcl/lazcanvas.pas
View File

@ -574,7 +574,9 @@ begin
begin
Self.Colors[CurDestX, CurDestY] := ASource.Colors[CurSrcX, CurSrcY];
end
else if MaskValue > $00 then
// Theorically it should be > 0 but we make a filter here to exclude low-alpha pixels
// because those cause small white pixels in the image
else if MaskValue > $4000 then
begin
SrcColor := ASource.Colors[CurSrcX, CurSrcY];