[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