TOPIC:

Hi,

I am building an application for RPI. Please, have a look codes below.

procedure TForm1.Button4Click(Sender: TObject);
var R : TRect;
begin
Image1.Picture.Bitmap.PixelFormat := pf32bit;
Image1.Picture.Bitmap.Width := 640;
Image1.Picture.Bitmap.Height:= 480;
R.Left := 0;
R.Right := 640;
R.Top := 0;
R.Bottom:= 480;
Image1.Picture.Bitmap.Canvas.Brush.Style := bsSolid;
Image1.Picture.Bitmap.Canvas.Brush.Color := clBlue;
Image1.Picture.Bitmap.Canvas.Pen.Style := psClear;
Image1.Picture.Bitmap.Canvas.FillRect(R);
end;

When I excute the code, it doesn't show any color on Image1(TImage). When I try this on Windows7, it works.

How do I go around this problem?

Thanks in advance.

Please Sir
try:
PixelFormat := pf24bit;