FMX : bitmap clear canvas bug ?

[bernhard_LA]

ich möchte eine Bitmap mit einer bestimmten Farbe einfärben (eigentlich ganz einfach ..... )

Delphi-Quellcode:

procedure TForm1.clear_colorClick(Sender: TObject);
begin

  case grp_Radio.ItemIndex of
    1:
      localBMP.Canvas.Clear(clawhite);
    2:
      localBMP.Canvas.Clear(clablack);
    3:
      localBMP.Canvas.Clear(clablue);
  else
    localBMP.Canvas.Clear(clawhite);
  end;

  LoadBMP2GUI(nil);
end;

das ganze Projekt kann man hier finden : https://github.com/ImageProcessingFM...Firemonkey-FMX

bei mir passiert unter Win 10 x 64 nix .... , habe durch Zufall das Projekt auf LINUX compiliert, hier geht alles Prima , warum ?????????????

[Michael II]

Evt. BeginScene, EndScene vergessenn?
Getestet direkt in deinem Projekt mit D10.4 und Microsoft Windows Version 10.0.19042.450. Grün füllen - funktioniert.

Delphi-Quellcode:

  localBMP.Canvas.BeginScene;
  localbmp.Canvas.Clear( $ff00ff00 );
  localBMP.Canvas.EndScene;
  LoadBMP2GUI(nil);

[bernhard_LA]

gelöst , danke :-)