Discussion :

[PadawanDuDelphi]

Bonjour à tous,

Ma question, concèrne l'impression de mon projet en générale...J'aimerais savoir si il est possible d'utiliser la fonction "assign" ou une astuce équivalente afin de passer le canvas de ma paintbox au MetafileCanvas(pour le redimentionnement et l'exportation vers le presse-papier) ou/et vers le Canvas du Priter (pour l'impression).

Actuellement j'ai un message d'erreur du genre:

Code :

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

Impossible d'assigner TcontrolCanvas à TPrinterCanvas...

Merci pour votre aide,

A+.

[ShaiLeTroll]

Si la fonction assign ou assignto des deux classes n'est pas prévu, c'est fort difficile, sinon, reste toujours le passage via un TBitMap temporaire ? cela reste le format le plus "standard" qui doit pouvoir être utiliser comme intermédiaire

[Clorish]

A noter que l'objet canvas possede une var Handle modifiable.

On peut donc creer dynamiquement un objet TCanvas, lui affecter un handle graphique et manipuler ce canvas.

Il ne me semble donc pas impossible de lier 2 canvas a la meme zone graphique en affectant les handles.

Sinon dans ton cas, peut etre qu'un simple copyrect ou strechdraw d'un canvas sur l'autre devrais faire l'affaire pour copier le contenu d'un canvas sur l'autre.

Les property ne sont pas copiées, mais le contenu du canvas (dessin) oui. Ce qui me semble est l'essentiel ....

[PadawanDuDelphi]

Merci pour ta réponse,

mais j'avoue avoir du mal avec tout ce qui est draw...
Voici mon code, pour que vous compreniez mon blocage...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If printdialog1.Execute then
  Begin
    Printer.Orientation := poLandscape;
    aRect.Right:= Printer.PageWidth;
    aRect.Bottom:= Printer.PageHeight;
    aRect.Left:= 0;
    aRect.Top:= 0;
    Printer.BeginDoc;
    Printer.Canvas.StretchDraw(aRect,PaintBox1.????); => ici on me demande un TGraphic
    Printer.EndDoc;
  End;

Merci encore pour le temps passé à étudier mon problème,

A+.

[Gilbert Geyer]

Code :

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

Printer.Canvas.StretchDraw(aRect, bmp);

... ça marche avec un bmp TBitMap, et pour créer ce BitMap suffit de le créer au préalable en traçant dessus la même chose que sur ta PaintBox1 c'est à dire avec un routine qui contient des instructions quasiment identiques à celles de ta méthode onPaint du PaintBox1. D'ailleurs pour me simplifier la vie je crée toujours le bmp indépendamment du truc sur lequel je veux ensuite l'utiliser ce qui me permet d'envoyer le bmp sur n'importe quel canvas : canvas du printer, canvas d'une image ... ou de l'envoyer dans le presse-papier avec Clipboard.Assign(Bmp) ... c'est à dire que j'utilise le bmp dans l'univers de l'image comme on ballade un String d'un endroit à l'autre dans l'univers du texte et des caption, et quand Finally on n'en a plus besoin alors Bmp.Free.

[PadawanDuDelphi]

Effectivement, d'habitude j'écris directement sur mon Canvas (passé en paramètre de ma fonction dessin).

Le problème c'est que mon prédécésseur à dessiner des objets sans utiliser de facteur d'échelle, et pour éviter de refaire toutes ses fonctions, j'aurais préféré la méthode: récupérer le canvas de ma paintbox, l'agrandir par strechdraw et le copier dans mon Printer.

Mais si cela est impossible, alors je vais me lancer dans la reprise de code...

Merci pour votre aide,

A+.