mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 17:38:04 +02:00
35 lines
786 B
ObjectPascal
35 lines
786 B
ObjectPascal
unit customdrawn_androidproc;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// rtl+ftl
|
|
Types, Classes, SysUtils,
|
|
fpimage, fpcanvas, ctypes,
|
|
// Android headers
|
|
jni,
|
|
// Custom Drawn Canvas
|
|
IntfGraphics, lazcanvas,
|
|
//
|
|
GraphType, Controls, Graphics, LCLMessageGlue, WSControls, LCLType, LCLProc,
|
|
customdrawnproc;
|
|
|
|
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)
|
|
or (AValue.Green and $ff00)
|
|
or ((AValue.Red shl 8) and $ff0000);
|
|
end;
|
|
|
|
end.
|
|
|