Discussion :

[BéBéHi]

Delphi 6

Bonjour,

Une bitmap s'affiche correctement à l'écran (dans le canvas d'une fiche), mais est illisible à l'impression (canvas de l'objet Printer). Je ne comprends pas pourquoi.

C'est pourtant assez basic comme manip !

Voici le résultat.

Ci après, le code qui a permis cet essai

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
18
19
20
21
22
23
24
25
26
27
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('C:\Program Files\Fichiers communs\Borland Shared\Images\Splash\256Color\factory.bmp');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Form1.Canvas.Draw(50,50,BitMap);
      // dessin sur la fiche ==> ok
    with Printer do
    begin
      BeginDoc;
      Canvas.Draw(50,50,BitMap);
        // dessin sur l'imprimante ==> ko
      EndDoc;
    end;
  finally
  end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
    Bitmap.Free;
end;

[Gilbert Geyer]

Bonjour,

J'ai fait un test avec le code suivant similaire au tien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var  Bitmap : TBitmap;
procedure TfrmGenP.Button1Click(Sender: TObject);
begin     Bitmap := TBitmap.Create;
          BitMap.PixelFormat:=pf24bit;
          Bitmap.LoadFromFile('C:\Program Files\Fichiers communs\Borland Shared\Images\Splash\256Color\factory.bmp');
          frmGenP.Canvas.Draw(170,50,BitMap); //< dessin sur la fiche ==> ok
          with Printer do
          begin BeginDoc;
                //Canvas.Draw(50,50,BitMap); // dessin sur l'imprimante ==> ok mais taille réduite
                Canvas.StretchDraw(rect(50, 50, 600, 450),Bitmap); // dessin sur l'imprimante ==> ok taille agrandie
                EndDoc;
          end;
end;

... pas détecté d'anomalie... par contre vaut mieux utiliser des BitMap de grande taille pour les réduire avec StretchDraw car si on étire un petit BitMap comme celui-ci dans un grand rectangle on perd en qualité visuelle.

Pour ce qui est du PixelFormat j'aurais pu prendre une valeur plus faible vu qu'il s'agit d'un BitMap de 256 couleurs : TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom); En fait j'ai mis PixelFormat par habitude plus que par nécessité dans le cas présent.

A+

[BéBéHi]

Bonjour,

ça marche nickel !

Bon, je vois que j'ai besoin d'en savoir un peu + sur la manipulation des images.

Merci beaucoup.