Discussion :

[Alcatîz]

Bonjour !

En essayant de recompiler la RTL (32 bits) de Virtual Pascal 2.1, je bute invariablement sur une erreur de type tRect dans les sources des unités de Turbo Vision.
Pire, lorsque j'essaye de compiler les sources (16 bits) de Turbo Vision directement sous Borland Pascal 7.0, je bute sur la même erreur.

Je connais le type tRect de Windows (qui est un simple record) mais pas celui de Turbo Vision (qui est apparemment un objet). Je précise que je n'ai jamais programmé avec Turbo Vision... Chuis paumé. Mon but est juste de pouvoir recompiler complètement la RTL sans devoir aller supprimer toutes références à Turbo Vision dans les dizaines de fichiers sources.

Ma question : à quelle unité dois-je faire référence pour pouvoir utiliser le type tRect de Turbo Vision ? Ou, à défaut, quelqu'un pourrait-il(elle) me préciser la déclaration de ce type ? L'aide en ligne de BPW et de VP ne connaît que le type tRect de Windows.

Merci à celui ou celle qui voudra bien se pencher sur la question.

[M.Dlb]

Salut !

Voici la déclaration du type TRect sous Turbo Vision de TP :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  TRect = object
    A, B: TPoint;
    procedure Assign(XA, YA, XB, YB: Integer);
    procedure Copy(R: TRect);
    procedure Move(ADX, ADY: Integer);
    procedure Grow(ADX, ADY: Integer);
    procedure Intersect(R: TRect);
    procedure Union(R: TRect);
    function Contains(P: TPoint): Boolean;
    function Equals(R: TRect): Boolean;
    function Empty: Boolean;
  end;

Cet objet est un descendant direct de l'objet TObject, il est déclaré dans objects.pas avec la version de Turbo Vision donnée avec TP 7 (Turbo Vision 2). Ce doit être la même version que BPW 7.

J'espère t'avoir aider, n'hésite pas à demander

Bon courage !

[Alcatîz]

Merci mille fois pour ta réponse !

En fait, l'unité Objects de TP7 n'est pas la même que celle de BP7.
J'ai téléchargé TP7 et dispose à présent de la déclaration des différents types qui me posent problème.
Je vais devoir jouer avec des directives de compilation pour différencier les types tRect, tPoint, etc de Turbo Vision de ceux de Windows. C'est faisable, avec un peu de patience...

Problème résolu !