Utilisation de la fonction LineTo

Version imprimable

16/12/2011, 12h14
Helmi1993

Utilisation de la fonction LineTo
Salut tout le monde
Je suis encore débutant sous Turbo Pascal, j'utilise la version 1.5 pour Windows. Je veux créer un programme qui dessine une ligne avec la fonction LineTo mais je n'y arrive pas.
Mon code source :
Code:

1 2 3 4 uses winprocs,wintypes; begin LineTo(0,15,15); end.

Bonjour,

La fonction GDI LineTo nécessite un contexte de périphérique d'affichage (DC). Une solution simple est de créer une application OWL et d'utiliser la méthode tWindow.Paint, qui met à ta disposition le contexte de périphérique d'affichage PaintDC, qu'il n'y a besoin ni de créer ni de détruire :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Program Ligne;
 
Uses WinTypes, WinProcs, OWindows;
 
Type pFenetrePrincipale = ^tFenetrePrincipale;
     tFenetrePrincipale = Object(tWindow)
                            x1, y1, x2, y2 : Integer;   (* Coordonnées de la ligne *)
                            Procedure SetupWindow; virtual;
                            Procedure Paint (PaintDC : hDC; var PaintInfo : tPaintStruct); virtual;
                          end;
 
     tProgramme = Object(tApplication)
                    Procedure InitMainWindow; virtual;
                  end;
 
Procedure tFenetrePrincipale.SetupWindow;
(* Initialisation des champs x1, y1; x2 et y2 *)
Begin
  tWindow.SetupWindow;
  x1 := 10;
  y1 := 20;
  x2 := 200;
  y2 := 160;
End;
 
Procedure tFenetrePrincipale.Paint (PaintDC : hDC; var PaintInfo : tPaintStruct);
(* Dessin de la ligne *)
Begin
  MoveTo(PaintDC,x1,y1);
  LineTo(PaintDC,x2,y2);
End;
 
Procedure tProgramme.InitMainWindow;
Begin
  MainWindow := New(pFenetrePrincipale,Init(Nil,'Dessin de ligne'));
End;
 
Var Programme : tProgramme;
 
Begin
  Programme.Init('Ligne');
  Programme.Run;
  Programme.Done;
End.

16/12/2011, 20h03
Helmi1993

Merci pour votre réponse.
Pour commencer, c'est très compliqué :calim2: / fichier non trouvé (Owindows.tpu). J'utilise la version 1.5 pour Windows.
N'existe-t-il pas une autre methode plus simple, je cherche seulement à apprendre comment tracer des lignes ?
17/12/2011, 10h18
Alcatîz

C'est que, justement, Turbo Pascal 1.5 pour Windows est destiné à créer des applications Windows, donc les graphismes passent par les fonctions GDI. C'est très différent du Turbo Pascal classique, par exemple, qui permet d'utiliser l'unité Graph pour dessiner.

;)
18/12/2011, 05h12
Paul TOTH

Citation:

Envoyé par Helmi1993

Merci pour votre reponse
pour commencer c est trés compliqué :calim2: / fichier non trouvé (Owindows.tpu) j utilise la version 1.5 pour windows
il n existe une autre methode plus simple je cherche seulement à apprendre comment tracer des lignes

as-tu réellement besoin d'une version 16 bits ?

Delphi 6 version Perso est disponible sur ce site, avec une aide en ligne correcte et des objets plus haut niveau (TCanvas)
19/12/2011, 22h24
Helmi1993

Je cherche à apprendre, y a-t-il des cours, svp ?
20/12/2011, 17h54
Alcatîz
Il y a pas mal de cours à ta disposition :
8-)