Bitmap := MyBitmapCopy finally MyBitmapCopy. SetPixel ( X, Y, Color ) end end finally MyBitmap. ToInteger ) then begin //255 is the maximum value for a color channel TAlphaColorRec ( Color ). GetPixel ( X, Y ) if ( TAlphaColorRec ( Color ). Save pictures to all the supported picture file formats. Features: Load all the supported picture file formats Free Image Library supports. Height - 1 do begin Color := CurrentData. Free Image Bitmap Library is a little TBitmap and TBitmap32 descendant class that uses Free Image Library (FreeImage.dll) for loading and saving of picture files. Write, ModifiedData ))) then begin try for X := 0 to MyBitmap. lower then the curent value of the trackbar if ( MyBitmap. This changes the transparency of the pixels that have the amount of Red. ToString () try // Changes the color of certain pixels. TrackBar1Change ( Sender : TObject ) var MyBitmapCopy : TBitmap X, Y : Integer CurrentData, ModifiedData : TBitmapData Color : TAlphaColor begin MyBitmapCopy := TBitmap.
0 Comments
Leave a Reply. |