[Lazarus] TColor and Alpha channel support

[Ondrej Pokorny]

On 26.09.2016 14:15, Mattias Gaertner via Lazarus wrote:
> On Mon, 26 Sep 2016 13:09:30 +0100
> Graeme Geldenhuys via Lazarus <lazarus at lists.lazarus-ide.org> wrote:
>
>> [...]
>>> The idea is to use the FPColor property for alpha, but that is not
>>> implemented yet by the LCL interfaces. Hmm, I wonder how hard it would
>>> be...
>> Does that also mean every widget in LCL will have a Color and FPColor
>> property?
>>
>>    eg:
>>      Label1.Color := ....;
>>      Label1.FPColor := ....;
>>
>> That would be very messy!
> First of all setting Pen.FPColor sets Pen.Color and vice versus, so
> you only set one.
> And second I doubt that alpha is useful for all native widgets.

In this case maybe this property pair would be more appropriate (?):

Color := ...;
Alpha := ...; // property Alpha: Byte

Ondrej