Sauvegarde de l'image d'un TPath

Version imprimable

20/05/2019, 14h46
SergioMaster

2 pièce(s) jointe(s)

Sauvegarde de l'image d'un TPath
Bonjour,

je finalise avec mon utilisation de TPath, après les questions qui se posaient sur la partie gradient, une question sur la sauvegarde.

Pour l'instant le code est simplissime et bien sûr j'y ajouterai un TSaveDialog
Code:

1 2 3 4 5 6 7 8 9 10 procedure TMainForm.SauveClick(Sender: TObject); var ABitmap : TBitmap; begin ABitmap:= Path1.MakeScreenshot; try ABitmap.SaveToFile('Test.png'); // finally ABitmap.Free; end; end;
Le problème est le suivant, si je sauve en format PNG j'ai bien la transparence
Pièce jointe 476502
mais au format BMP j'obtiens un fond noir
Pièce jointe 476506

Comment garder la transparence à partir de mon code ?
Il y a aussi l'histoire du paramètre SaveParams et de son BitmapCodec que j'aimerais éclaircir

Merci
20/05/2019, 16h44
pprem

(sous réserve que ma mémoire vive le soit plus que moi aujourd'hui je crois me souvenir que) le format BMP ne gère pas de transparence , je ne vois pas trop comment tu pourrais l'obtenir.
20/05/2019, 17h13
SergioMaster

Oui, bon, peut être me suis-je mal exprimé.
Comment on peut sauvegarder une image bmp en 32 bits ?
Comment transformer ensuite une couleur en Alpha

Citation:

ma mémoire vive le soit plus que moi

ce n'est pas ton poste qui surchauffe aujourd'hui :ptdr:

Salut,

J'ai trouvé ça, mais je n'ai pas testé. Donc à voir si ça fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.SetBMPTransparent(oBmp:Tbitmap);
var
  bmpData:TBitmapData;
  colorToMakeTransparent:TAlphaColor;
  transparentColor:TAlphaColor;
  Color:TAlphaColor;
  x: Integer;
  y: Integer;
begin
  oBmp.Map(TMapAccess.ReadWrite,bmpData);
 
  colorToMakeTransparent := bmpData.GetPixel (0, 0);
  TransparentColor := claNull;
 
  for x := 0 to bmpData.Width do
  begin
    for y := 0 to bmpData.Height do
    begin
      Color := bmpData.GetPixel(x,y);
      if Color = colorToMakeTransparent then
      begin
        bmpData.SetPixel(x,y,transparentColor);
      end;
    end;
  end;
  oBmp.Unmap(bmpData);
end;

Bonjour Thierry,

j'en étais arrivé presque au même point après avoir lu cette discussion prè-FMX 2
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 procedure SetCouleur(aBmp: TBitmap; FromColor: TAlphaColor = TAlphaColors.Null; ToColor: TAlphaColor = TAlphaColors.Null); var Data: TBitmapData; X, Y: Integer; begin aBmp.Map(TMapAccess.ReadWrite, Data); if FromColor = TAlphaColors.Null then // changement inspiré FromColor := Data.GetPixel(0, 0); for X := 0 to aBmp.Height do for Y := 0 to aBmp.Width do if Data.GetPixel(Y,X) = FromColor then Data.SetPixel(Y,X, ToColor); abmp.Unmap(Data); end;
Ta solution à l'avantage de ne pas se faire "suer" avec les fromcolor/tocolor de la mienne ;)

[Edit]je désespérais car mon image ne se modifiait pas :arf: il manquait une instruction abmp.Unmap(Data); conclusion Map est un peu comme un BeginUpdate et UnMap son EndUpdate
Encore quelques essais et je pourrais cliquer sur :resolu:

20/05/2019, 19h13
Jipété

1 pièce(s) jointe(s)

Bonsoir,

Citation:

Envoyé par pprem

(sous réserve que ma mémoire vive le soit plus que moi aujourd'hui je crois me souvenir que) le format BMP ne gère pas de transparence , je ne vois pas trop comment tu pourrais l'obtenir.

:nono:

Bien sûr que oui que le BMP gère la transparence, c'est Windows qui ne la gère pas. Il n'y a qu'à regarder la boîte de dialogue d'enregistrement d'un fichier au format BMP sous The Gimp pour en être convaincu.
Pièce jointe 476597

On notera que l'ovale orange est transparent (opacité à 60 %), il a été réalisé sur un calque, qui a le canal alpha activé par défaut.
20/05/2019, 19h23
SergioMaster

1 pièce(s) jointe(s)

Oui et non, ce n'est pas le format de fichier bitmap qui ne gère pas la transparence (pour peu que ce soit en 32bits) le vieux TBitmap VCL. pour FMX la question ne se pose pas c'est bien du 32bits (ce que j'ai vérifié en utilisant Data.PixelFormat pour vérifier même si j'ai ensuite supprimé ce test ;)

pour en finir (ou presque car j'ai été obligé d'utiliser if FromColor = TAlphaColors.Null then FromColor := Data.GetPixel(abmp.Width-4,abmp.Height-4); pour avoir ma couleur de référence
Pièce jointe 476609
le fond de test2.bmp a été modifié via l'instruction ChangeCouleur(ABitmap,TAlphaColors.Null,TAlphaColors.White);Rien d'insurmontable si :
1 - je mets mon composant TPath dans un Layout (avec padding)
2- je fais un ScreenShot de ce Layout au lieu du TPath

Sinon la transformation de couleur fonctionne. Donc excepté amélioration de la procedure ? c'est résolu :yaisse3: