Discussion :

[Delphi-ne]

Bonjour,

Je voudrais pouvoir utiliser un TBitMap à l'intérieur d'un module
J'ai bien défini dans les Uses l'unité Graphics
Par contre quand dans une précédure j'écris
LO_Image = TBitMap.Create;

J'obtiens une erreur indiquant que cette méthode n'est pas connue.

Sur les différents sujets que j'ai lus cette instruction est toujours effectuée dans l'évènement Create d'une Form.
J'ai besoin de ne le faire que dans un module classique.

J'imagine que c'est possible mais que faut-il déclarer de plus ?

[Linkin]

Il faut préfixer la déclaration. TBitmap existe à la fois dans les unités Windows et Graphics:

Code :

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

1
2
 
LO_Image : Graphics.TBitmap;

[Delphi-ne]

Merci j'essaie ce soir
Pour le create je fais juste LO_Image := TBitmap.Create
ou LO_Image := Graphics.TBitmap.Create

Par contre j'ai fait plusieurs essais hier. Quelle différence entre Graphics et QGraphics ? Cela viendrait de QuickReport ?

[Linkin]

Le create reste inchangé.
(si tu as une version professionelle, en faisant un ctrl+clic sur TBitmap, tu verras la différence avec et sans préfixage).

QGraphics (comme la plupart des unités commençant par Q) étaient destinées à faire du multi-plateforme avec Kylix.

Il vaut mieux éviter, cela te permettra de te passer de livrer la DLL qtintf.dll avec ton logiciel..

[Delphi-ne]

Ca fonctionne mais j'ai été obligé de préfixer la création
Il y a encore une chose que je ne comprends pas et je ne sais pas si cela vient de la création.
Le bitmap est un fond de page : il contient un logo de Société, son adresse, etc... J'ai donc créé un BMP de 21 * 29 centimetres.

Si j'imprime l'image sur le canvas elle ne prend qu'une toute petite partie de la page.

Si j'essaie de la mettre en fond j'ai une erreur en hexa
Voici le code et il me semble correct

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
var
   LO_Image : Graphics.TBitmap;
 
Begin
    LO_Image := Graphics.TBitmap.Create;
    Try
       LO_Image.LoadFromFile(Image);
//       Printer.Canvas.Draw(OrigX, OrigY, LO_Image);
       Printer.Canvas.Brush.Bitmap := LO_Image;
       Printer.Canvas.FillRect(Rect(0, 0, LO_Image.Width, LO_Image.Height));
    finally
       Printer.Canvas.Brush.Bitmap := nil;
       LO_Image.Free;
  end;
End;

Merci pour l'aide

[Linkin]

Une image est définie en pixels et non en centimètres.
Or le Canvas d'un écran est beaucoup plus petit que celui d'une imprimante. (tu peux comparer Height du bitamp et ClientHeigth du Canvas de l'miprimate)

Il faudrait mieux utiliser la fonction StretchDraw (de tête) et d'agrandir aux dimensions du canvas de l'imprimante.

[Delphi-ne]

Je vais essayer StretchDraw (en espèrant que cela existe en Delphi 6).
Je ne comprends pas cette différence Pixel / Centimètre

J'ai utilisé des centimètres quand j'ai construit le bitmap parce que c'était plus parlant pour moi. Quand je l'imprime il occupe bien toute la page

Dans cette ligne

Code :

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

Printer.Canvas.FillRect(Rect(0, 0, LO_Image.Width, LO_Image.Height));

je pensais que le width et le heignt étaient dans la même unité que le canvas. Non ?

[Linkin]

Il n'y a qu'une seule unité à manipuler: les pixels

(Cela permet d'afficher la même chose pour un écran 20cm*10cm que sur un écran 10cm*5cm ayant la même résolution par exemple).

[edam]

pour plus de détail voir ce lien
bon dev

[Delphi-ne]

J'ai utilisé la méthode StretchDraw et j'ai passé en paramètre la taille de la page canvas de l'imprimante.
C'est correct.

Je donne le code ici pour d'éventuelles générations futures.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
   LO_Image : Graphics.TBitmap;
 
Begin
    LO_Image := Graphics.TBitmap.Create;
    Try
       LO_Image.LoadFromFile(Image);
       Printer.Canvas.StretchDraw(Rect(0, 0, Printer.PageWidth, Printer.PageHeight), LO_Image);
    finally
       LO_Image.Free;
  end;
End;

Merci à vous