paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 04:07:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Small commenting improvement

Browse Source 
git-svn-id: trunk@34894 -
This commit is contained in:
sekelsenmat 2012-01-24 10:50:08 +00:00
parent 921aebcc60
commit 6ae55bb20e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawn_androidproc.pas
View File

@ -21,6 +21,8 @@ function FPColorToAndroidColor(AValue: TFPColor): jint;
implementation
// Android color is in the format: Alpha-Red-Green-Blue
// It uses 8-bits per channel. $FF means alpha opaque
// See http://developer.android.com/reference/android/graphics/Color.html
function FPColorToAndroidColor(AValue: TFPColor): jint;
begin
Result:= $FF000000 or ((AValue.Blue shr 8) and $ff)