Discussion :

[Papy214]

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

[Paul TOTH]

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 :

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
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;

[Papy214]

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 :

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
 
  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 ?

[Paul TOTH]

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

[Papy214]

Mais quel je fais ....

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