Discussion :

[Helmi1993]

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 :

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

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

[Alcatîz]

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 :

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
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.

[Helmi1993]

Merci pour votre réponse.
Pour commencer, c'est très compliqué / 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 ?

[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.

[Paul TOTH]

Merci pour votre reponse
pour commencer c est trés compliqué / 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)

[Helmi1993]

Je cherche à apprendre, y a-t-il des cours, svp ?

[Alcatîz]

Il y a pas mal de cours à ta disposition :

• Des cours généralistes sur le Pascal ;
• Des cours sur Delphi ;
• Des cours sur Lazarus.