Déclaration d'une variable Rect de type TRect

Version imprimable

Bonjour,
Ancien de Delphi, n'ayant jamais pu renouveler ma Licence en Delphi, j'ai décidé de programmer en Lazarus depuis peu pour le plaisir.
J'ai un problème de déclaration d'une variable dans une unité
Code:

1 2 3 4 5 6 7 var CircRect : TRect; // coordonnées figure circonscrite procedure Dessine_Point(Ox,Oy,R,e : integer; aCanvas : TCanvas; aColorExt, aColorInt: Tcolor); begin CircRect := Rect( Ox - R , OY - R, OX + R, OY + R); ... end;
A la compilation, j'ai l'erreur suivante sur la première virgule : Syntax error, ")" expected but "," found
J'ai vérifié la définition, elle est bien compatible avec ce que je faisais en Delphi

Citation:

Source position: classesh.inc line 2089

function Rect(
ALeft: Integer;
ATop: Integer;
ARight: Integer;
ABottom: Integer
):TRect;

Description

Rect returns a TRect record with the given top-left (ALeft,ATop) and bottom-right
(ABottom,ARight) corners filled in.

No checking is done to see whether the coordinates are valid.

See also

TRect Descibes a rectangle
Point Returns a TPoint record with the given coordinates.
SmallPoint Returns a TSmallPoint record with the given coordinates.
Bounds Returns a TRect structure with the bounding rect of the given location and size.

Documentation generated on: May 12 2018

Pouvez vous m'éclairer?
merci

23/06/2021, 13h50
jurassic pork

hello,
peux-tu montrer ton code complet ?
tu es en mode Delphi ou mode objfpc ?

Ami calmant, J.P

Merci Jurassic de t'intéresser à ma question, voici:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
program Assimiler1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, FP, UVar, uGraph;
 
{$R *.res}
 
begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

La fiche principale n'a aucun code pour l'instant à part un menu...
l'Unité UVar déclare quelques variables non utilisées pour l'instant
La complilation plante dans l'Unité Graphique = juste une procédure déclarée

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
45
46
47
 
unit uGraph;
 
{$mode objfpc}{$H+}
{ _____________________________________________________________________________
|        BIBLIOTHEQUE DE PROCEDURES ET FONCTIONS GRAPHIQUES 
|        Version 1 pour Lazarus                                    
|        Dernière Mise à jour le :                                             
|        22.06.2021                                                           
|_____________________________________________________________________________|
|        Catégories de Fonctions :                                       
|                                                                             
|    1. Figures géométriques traditionnelles dans le plan Euclidien 2 Dimensions.
|       Selon différents points d'entrées : coordonnées, centre, longueurs... 
|                                                                             
|    2. Utilitaires de tracé et de conversions                 
|                                                                             
|_____________________________________________________________________________|
}
interface
 
  Uses Types, Windows, Graphics;//,ExtCtrls;
 
  ...
{=== Figures géométriques de base dans le plan euclidien 2 Dimensions =========}
procedure Dessine_Point(Ox,Oy,R,e : Integer; aCanvas : TCanvas;aColorExt,aColorInt: Tcolor);
 
implementation                                                                
 
-Dessine_Point ----------------------------------------------------------------
  Dessine Un point aux coordonnées spécifiées (Ox,Oy), de rayon R
-------------------------------------------------------------------------------}
procedure Dessine_Point(Ox,Oy,R,e : integer; aCanvas : TCanvas;aColorExt,aColorInt: Tcolor);
  var  CircRect : TRect; // coordonnées figure circonscrite
begin
  CircRect := Rect( Ox - R , OY - R, OX + R, OY + R);
  With aCanvas do
  begin
    // Couleur de fond
    Brush.Color := aColorInt;
    Brush.Style := bsSolid;
    Pen.Color   := aColorExt;
    Pen.Style   := psSolid;
    Pen.Width   := e;
    Ellipse(CircRect);
  end;
end;

23/06/2021, 15h57
jurassic pork

hello,
je crois que la fonction Rect qui est appelée dans ton code n'est pas celle que tu voudrais (passer le curseur dessus pour voir). Il faut que tu ajoutes l'unité classes dans le uses pour avoir celle que tu sembles vouloir utiliser.
Ami calmant, J.P
23/06/2021, 16h10
Jlmat

Merci JP, c'était bien ça!
Avec l'unité Classes, je n'ai plus d'erreur!
pourtant au premier abort, la définition semble la même!