Bitmap 8bit
lazarus / 13-General

----------------------------------------------------------------------
addebito · 2008-10-07 14:50

Hi to all.
I don't understand how paint into a TImage component a simple bitmap
(8 bit for pixel). 
For example:
buf : array [100..100] of byte;
This is a buffer of bytes that represent my image and 1 byte is equal
of 1 pixel (black: 0, white: 255).
Please can you post a example for write this image buffer on a Timage
component ?!?

...because the Image1.Picture.Bitmap.Canvas.Pixel <--- this accept a
TColor.
I must pass only a byte not a TColor.

Thak you in advance.

----------------------------------------------------------------------
theo · 2008-10-07 16:51

If it's black&white; only, why don't you simply pass clBlack or
clWhite?

----------------------------------------------------------------------
addebito · 2008-10-07 17:14

Quote from: "theo"If it's black&white; only, why don't you simply pass
clBlack or clWhite?
No, isn't only black & white.
In all byte of my array I can have the value from 0 to 255.
Practically my buffer is an image that I capture width a camera
device, but it isn't a color camera.

----------------------------------------------------------------------
theo · 2008-10-07 17:34

So it's grayscale?
Then you pass RGBToColor(byteval,byteval,byteval);