[Lazarus] reference to ~/.config/<appname> documentation
Graeme Geldenhuys
graemeg.lists at gmail.com
Tue Jul 22 12:51:11 CEST 2008
Marc Weustink rašė:
> Valdas Jankūnas wrote:
>> Marc Weustink rašė:
>>
>>> A faster way, (which might work in most cases) is when you have a 24bit
>>> depth description with a 32bits per pixel image.
>> How retrieve image description from TBitmap?
>
> IntfImage.DataDescription
>
>>> Then you can simply add
>>> an alpha description (precision=8, shift=24 or 0) to the rawimage.
>> How i can do that?
>
> if Description.BitsPerPixel = 32
> then begin
> if (Description.RedShift <> 0)
> and (Description.BlueShift <> 0)
> and (Description.GreenShift <> 0)
> then begin
> Description.AlphaPrec := 8;
> Description.AlphaShift := 0;
> end
> else
> if (Description.RedShift <> 24)
> and (Description.BlueShift <> 24)
> and (Description.GreenShift <> 24)
> then begin
> Description.AlphaPrec := 8;
> Description.AlphaShift := 24;
> end;
> end;
Thanks
--
Valdas Jankūnas
More information about the Lazarus
mailing list