On 2013-04-18 08:48:11 -0700, leledumbo wrote: > Assign all the RGBA value in one go, that would reduce the inner loop by 4 > times. i.e.: > > var > PixelPtr: PLongWord; > PixelRowPtr: PByte; > begin > PixelRowPtr := Fbmp.RawImage.Data; > for Y := 0 to Self.Height - 1 do > begin > PixelPtr := PLongWord(PixelRowPtr); > for X := 0 to (Self.Width - 1) div 4 do > begin > PixelPtr^ := (lRed shl 24) or (lGreen shl 16) or (lBlue shl 8) or 255; > Inc(PixelPtr); > end; > Inc(PixelRowPtr, FBmp.RawImage.Description.BytesPerLine); > end; > end; >
Great!, I'll try it. -- Leonardo M. Ramé http://leonardorame.blogspot.com -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
