[TURBO PASCAL] Comment imprimer un dessin ? [Résolu]

Comment imprimer un dessin ? [Résolu] [TURBO PASCAL] - Delphi/Pascal - Programmation

Marsh Posté le 01-06-2003 à 22:23:41    

salut,
 
j'ai fait sous Turbo Pascal 7, un dessin (représentation d'un volume en perspective cavalière) et j'aimerai imprimer ce dessin. Mais je n'y arrive pas :(
 
J'aimerai faire un copier-coller mais ça ne fonctionne pas  :(  
 
 
pour le dessin, j'utilise
 


g:=detect;
initgraph (g,grapmode,'c:\tp\bgi');


 
Si quelqu'un a une solution, merci  :jap:


Message édité par Pizz le 02-06-2003 à 11:31:54

---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 01-06-2003 à 22:23:41   

Reply

Marsh Posté le 01-06-2003 à 23:03:46    

C'est pas gagné :D

Reply

Marsh Posté le 02-06-2003 à 00:30:10    

verdoux a écrit :

C'est pas gagné :D


 
arf  :cry:  
 
 
s'il y avait un moyen d'avoir l'écran qui apparaît avec le dessin, en fenêtre au lieu de plein écran, je pourrai faire une capture ...
 
help  :cry:


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 09:04:09    

sinon, si il y a moyen d'adapter mon programme sur Delphi 4 ou DevPascal ou Kylix 3 (sous Linux) ...
 
n'importe quoi tant que j'arrive à imprimer ou du moins, faire une capture d'écran  :cry:  
 
PS : je n'ai pas d'APN, juste une webcam (j'ai déjà essayé, c'est trop pourri).
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 09:38:26    

C'est un programme DOS ? Si oui je pense que tu peux oublier Delphi/Kylix


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-06-2003 à 09:47:14    

antp a écrit :

C'est un programme DOS ? Si oui je pense que tu peux oublier Delphi/Kylix


 
oui
 
mais avec les sources, il n'y a pas moyen de faire quelque chose ?
 
genre rajouter un truc qui permette de sortir le dessin en bmp par exemple ...
 
il doit bien y avoir une petite solution ...
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 09:49:33    

Le problème c'est que Delphi est incapable de faire un programme DOS, et donc les librairies graphiques de Turbo Pascal n'y existent plus.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-06-2003 à 09:54:13    

antp a écrit :

Le problème c'est que Delphi est incapable de faire un programme DOS, et donc les librairies graphiques de Turbo Pascal n'y existent plus.


 
il y a moyen d'apdater ?
 
dans mon programme je n'utilise que des "putpixel", des "line" et des "outtextxy".
 
donc, je ne fais que des lignes, et je mets que des points. (+ du texte, mais c'est moins important).
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 09:55:45    

bah y a toujours moyen, mais bon tu devras modifier tout ça pour aller écrire sur le Canvas d'un TImage par exemple (zone d'image sur une fenêtre).
C'est peut-être pas si compliqué en fait, et là aucun problème pour imprimer ou sauver en bmp à priori...


Message édité par antp le 02-06-2003 à 09:56:04

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-06-2003 à 09:58:08    

antp a écrit :

bah y a toujours moyen, mais bon tu devras modifier tout ça pour aller écrire sur le Canvas d'un TImage par exemple (zone d'image sur une fenêtre).
C'est peut-être pas si compliqué en fait, et là aucun problème pour imprimer ou sauver en bmp à priori...


 
c'est peut-être pas compliqué pour toi, mais pour moi ...
 
j'ai déjà travaillé sous Delphi, mais je n'ai jamais fait des lignes, des points ... j'ai surtout fait des trucs comme une calculatrice ...
 
Si tu sais m'aider ça serait génial  :jap:  
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 09:58:08   

Reply

Marsh Posté le 02-06-2003 à 10:04:56    

La plupart des composants ont une propriété Canvas.
par ex le TImage.

Code :
  1. with Image1.Canvas do
  2. begin
  3.   MoveTo(100, 100);
  4.   Pen.Color := clRed;
  5.   LineTo(300, 100);
  6.   Pen.Color := clBlue;
  7.   LineTo(150, 150);
  8.   Font.Color := clGreen;
  9.   Font.Size := 18;
  10.   TextOut(150, 200, 'bouh !');
  11. end;


 
te donne ça :
http://www.antp.be/temp/delphicanvas.png
 
puis pour imprimer :
 

Code :
  1. if PrintDialog1.Execute then
  2.   begin
  3.     Printer.BeginDoc;
  4.     Printer.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height), Image1.Canvas, Rect(0, 0, Image1.Width, Image1.Height));
  5.     Printer.EndDoc;
  6.   end;


(ici ça copie bêtement le dessin vers l'imprimante, donc l'échelle est peut-être pas conservée)


Message édité par antp le 02-06-2003 à 10:10:08

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-06-2003 à 10:09:47    

merci bcp  :jap:  
 
j'installe Delphi 4 (pas tout jeune ...) et j'essaye.
 
 
Vive la Belgique  :D


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 10:10:34    

j'ai édité pour ajouter un exemple pour imprimer ;)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-06-2003 à 10:19:07    

tu sais me donner tout ton Unit1.pas ?
 
pour que je puisse commencer parce que je suis nul ...
 
merci  :jap:


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 10:20:05    

ah non, ça va, j'ai oublié un end;  :whistle:  
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 11:31:32    

Merci bcp  :love: antp  :love:  pour ton aide, j'arrive à faire le dessin sous delphi et j'arrive à imprimer  :D  
 
Merci bcp  :jap:  
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Marsh Posté le 02-06-2003 à 11:32:06    

déjà ? he bhe ça a été rapide :D
content d'avoir pu t'aider ;)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-06-2003 à 11:37:59    

antp a écrit :

déjà ? he bhe ça a été rapide :D
content d'avoir pu t'aider ;)


 
oui, il suffit simplement de modifer les line(..) en lineto(..), les putpixel(..) en pixels[..], les outtextxy(..) en textout(..) ...
 
plus 2-3 autres trucs.
 
 
Encore merci de ton aide compatriote :D  
 


---------------
C'est quand on a le nez dans la tomate qu'on voit mieux la tomate !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed