I do the following:
...
graphtype, intfgraphics, lazcanvas, fpImage;
...
var
AImage : TLazIntfImage;
lRawImage: TRawImage;
i,j:integer;
begin
lRawImage.Init;
lRawImage.Description.Init_BPP32_A8R8G8B8_BIO_TTB(100, 100);
lRawImage.CreateData(true);
AImage := TLazIntfImage.Create(0, 0);
AImage.SetRawImage(lRawImage);
for i:=0 to AImage.Width-1 do
for j:=0 to AImage.Height-1 do
AImage.Colors[i,j]:=FPColor(200, 0, 0, 255);
Image1.Picture.Bitmap.LoadFromIntfImage(AImage);
...
but Image1 is black. what wrong?
winXP 32 bit, Lazarus 1.0.2