Discussion :

[tintin62]

bonjour
sous FMX je crée un bitmap pour dessiner des formes
(ellipse rectangle ect..)
après je voudrais définir la résolution de mon bitmap
par la fonction pixelformat
mais j'ai une erreur
FMX et VCL une différence ???

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var
bitm:tbitmap;
 
begin
bitm:=Tbitmap.create
bitm.setsize(...,...);
bitm.pixelformat:=tpixelformat.rgb;

[ShaiLeTroll]

Une erreur à la compilation ?
Laquelle ?

pixelformat ne change pas la résolution mais la profondeur de couleur (Bit, 8Bit, 16Bit ...)


Fait attention aux uses si pas de mélange d'unité VCL et FMX au sein du même fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
var
 bitm: FMX.Graphics.TBitmap;
 
begin
  bitm := FMX.Graphics.TBitmap.create();
  bitm.SetSize(..., ...);
  bitm.PixelFormat := FMX.Types.TPixelFormat.RGB; // 24 Bits

[tintin62]

bonjour
merci Shailetroll vais essayer
++

[tintin62]

bonjour
viens essayer
erreur a affectation :=

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
bitm.PixelFormat := FMX.Types.TPixelFormat.RGB; // 24 Bits

[exoseven]

le problème c'est que PixelFormat est en lecture seule, une possibilité que je n'ai pas testé c'est de passer par un TBitmapSurface et setSize qui permet de modifier le pixelformat en plus de la taille.

après il devrait suffire d'assigner TBitmapSurface au TBitmap

[ShaiLeTroll]

erreur a affectation :=

le problème c'est que PixelFormat est en lecture seule,

Merci exoseven d'avoir éclairci le problème


Effectivement, je ne fais jamais de FMX, mais tente ceci selon l'idée de exoseven

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  bitmS := FMX.Surfaces.TBitmapSurface.Create;
  bitmS.SetSize(255, 255, TPixelFormat.RGB);
  bitm.Assign(bitmS); // c'est un boucle à base de Scanline à l'intérieur via TBitmapData  ... curieusement, on ne voit aucune conversion entre PixelFormat Source->Destination ni même affectation du PixelFormat

A Mon avis, c'est plus complexe si il y a des PixelFormat différent entre TBitmapSurface (RGB) et TBitmap (à None probablement, si il n'y a eu aucun LoadFrom...)


Le TBitmapImage interne au TBitmap, on ne trouve pas non plus la modification de PixelFormat aussi en Lecture seule

Faudrait piger le fonctionnement de TBitmapData qui est le seul à fournir la création avec PixelFormat donné

Le seul endroit où l'on peut founir le PixelFormat c'est TCanvas.InitializeBitmap qui retourne à Handle mais comme l'affecter au TBitmap.Canvas.Handle ?

En plus, le PixelFormat peut être altéré si l'API FMX spécique à l'OS ne supporte pas cette valeur, cela en utilisera une autre semble-t-il

[tintin62]

bonjour
donc viens de modifier en assignant mon bitmap a bitm.Assign(bitmS)
j'ai déclaré une valeur pour tester le nombre de pixel par inch
nb:=bitm.pixelsperinch;
nb reste a 4 même en modifiant TPixelFormat.RGB
donc a par se servir du bitmapdata aucun moyen de changer la résolution
merci