Discussion :

[od.dev]

Bonjour à tous,

C'est encore moi
J'ai encore un truc bizarre à faire
Ne me demandez pas pourquoi, mais je dois imprimer un logo avec le Canvas du Printer
Je fais donc :

Code :

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

1
2
3
4
 
       Logo := TGraphic.Create;
       Logo.LoadFromFile('.\MonLogo.bmp');
       Printer.Canvas.Draw(1200, 4000, Logo);

Il plante en "erreur abstraite" sur "Logo.LoadFromFile('.\MonLogo.bmp');"

Quelqu'un saurait-il me dire ce que je fais mal ?
Merci de ne pas rire...

[Cl@udius]

Salut

TGraphic est une classe abstraite, d'où ton erreur.
Utilise TBitmap à la place (qui hérite de TGraphic ).

@+ Claudius

[od.dev]

Ben figure toi qu'c'est ben c'qui m'semblait.

Après ton message j'ai donc insisté, et en fait L'unité déclarait une unité "WinProcs" que je n'ai pas pu ouvrir et qui doit redéfinir le type TBitmap.
Ce qui fait que le "LoadFromFile" n'était pas dispo dans le TBitmap.
Voilà pourquoi j'ai essayé avec TGraphic.
Merci de ne pas avoir ri.

[Linkin]

Il faut préciser (pour éviter les confusions)

Code :

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

1
2
3
 
var
a:Graphics.TBitmap; // au lieu de a:TBitmap

[Cl@udius]

Salut

Confusion avec quoi ?
La classe TBitmap est définie dans l'unité Graphics.

@+

[guillemouze]

Confusion avec quoi ?
La classe TBitmap est définie dans l'unité Graphics.

Elle est aussi defini dans Windows il me semble (TBitmap = _TAGBitmap).
Selon l'ordre des uses, c'est celui de l'une ou l'autre de ces unités qui sera pris si tu ne prefixe pas le type du nom de l'unité.

[Andnotor]

Mais rien ne t'empèche de déclarer ta variable en TGraphic pour rester générique.

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
var
  Logo :TGraphic;
 
procedure CreateBitmap(aFileName :TFileName);
begin
  Logo := TBitmap.Create;
  Logo.LoadFromFile('.\MonLogo.bmp');
end;
 
procedure CreateJpg(aFileName :TFileName);
begin
  Logo := TJPegImage.Create;
  Logo.LoadFromFile('.\MonLogo.jpg');
end;
 
procedure PrintLogo;
begin
  Printer.Canvas.Draw(1200, 4000, Logo);
end;

[od.dev]

Linkin a raison, j'aurai dû faire
"a: Graphics.TBitmap;"

En tout cas j'ai encore un problème bizarre, c'est que mon bitmap s'imprime à l'envers verticalement et horizontalement .
Je ne vois pas pourquoi...

[od.dev]

En fait, il faut que je fasse :
Printer.Canvas.Draw(1000, -270, Logo);
pour voir mon logo, mais il s'imprime à l'envers...

[Linkin]

As-tu la possibilité de nous fournir l'image. J'ai essayé sur une des miennes ça fonctionne correctement.