Bonjour les gens du dimanche,

Je suis en train de m'arracher les cheveux ... (heureusement, j'en ai de reste)

Pourquoi ce code pourtant ultra-simple ne produit aucun effet sur mon image ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
  with Image1.Bitmap do
  begin
    Canvas.BeginScene();
    Canvas.Fill.Color        := TColorRec.Red;
    Canvas.Fill.DefaultColor := TColorRec.Red;
    Canvas.Fill.Kind         := FMX.Graphics.TBrushKind.Solid;
    Canvas.FillRect(
      RectF(0, 0, image1.Width, image1.height),
      0,
      0,
      [],
      255
    );
    Canvas.EndScene;
  end;

J'ai oublié de préciser: Firemonkey sous XE7



Trouvé .... Il faut utiliser claWhite de UIConsts au lieu de TColorRec ..

Tout ça pour ça ... :-(