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 _______________________________________________ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus