[Windows] remplir un tbitmap

remplir un tbitmap

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:

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 ... :-(

deux petites choses

1) il faut définir les dimensions du Bitmap
2) il ne faut pas oublier le canal Alpha, TColorRec.Red donne un joli rouge totalement transparent, TAlphaColorRec.Red donne un rouge plein ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
  with Image1.Bitmap do
  begin
    SetSize(Round(Image1.Width), Round(Image1.Height));
    Canvas.BeginScene();
    Canvas.Fill.Color        := TAlphaColorRec.Red;
    Canvas.Fill.DefaultColor := TAlphaColorRec.Red;
    Canvas.Fill.Kind         := FMX.Graphics.TBrushKind.Solid;
    Canvas.FillRect(
      RectF(0, 0, image1.Width, image1.height),
      0,
      0,
      [],
      255
    );
    Canvas.EndScene;
  end;

En fait, c'était juste un exemple. Mon bitmap est passé en paramètre à une procédure.

Par contre, j'ai un nouveau problème.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Bmp.Canvas.BeginScene(); Bmp.Clear(ClaWhite); Bmp.Canvas.EndScene; if Bmp.Map(TMapAccess.Write, Data) = True then begin for I := Low(V2) to High(V2) do if V2[I] then begin X := (I + 1) div W; Y := (I + 1) mod W; Data.SetPixel(X, Y, claBlack); end; Bmp.Unmap(Data); end;
W est la largeur du bitmap.
J'ai une violation d'accès sur le SetPixel.

Mon bitmap devrait être défini comme 1 byte par pixel et par défaut il l'est de 4, ce qui explique cela.
Mais impossible de trouver comment créer un bitmap de ce type.
PixelFormat est en lecture seule.

Pour vérifier que ça vient bien de là, j'ai fait le même code en rajoutant un div 4 sur chaque X et Y et ça me donner le dessin sur un quart de l'image.

Saurais-tu comment contourner ça ?

euh...tu n'aurais pas inversé le modulo et la division ? X devrait être en "mod W" et Y en "div W"

Mais quel :boulet: je fais ....

Merci à toi .... tu sauves mon w-e .