create rect dynamiquement

Version imprimable

Voir 40 message(s) de cette discussion en une page

18/01/2019, 16h10
julius1983

create rect dynamiquement
Salut à tous

Tout est dans le titre, j'aimerais créer un rectangle coloré dynamiquement.
Voici mon code (qui ne fonctionne pas (1 error)) :
Code:

1 2 3 4 5 6 7 8 9 procedure TForm2.Button1Click(Sender: TObject); var TheRect: TRect; begin TheRect := TRect.Create(Self); TheRect := Rect(10,10,100,100); end;
Votre aide est la bienvenue,

A+

Citation:

Envoyé par julius1983

Salut à tous
Tout est dans le titre, j'aimerais créer un rectangle coloré dynamiquement.
Voici mon code (qui ne fonctionne pas (1 error)) :

C'est normal que ça ne marche pas !!! Faut consulter l'aide en ligne avant de faire un peu n'importe quoi...

Un TRect c'est juste une structure pour stocker les coordonnées des 4 angles d'un rectangle c'est pas un objet qui dessine un rectangle

Pour dessiner dans un conteneur (une fenêtre par exemple) on utiliser le Canvas de cet objet
Par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm21.FormCreate(Sender: TObject); var Rect : TRect; begin Rect.Left:=10; // X Rect.Top:=10; // Y Rect.Width:=100; // Largeur Rect.Height:=50; // Hauteur Canvas.Rectangle(Rect); // On dessine dans le Canvas de la fenêtre end;

19/01/2019, 09h55
Andnotor

L'argument Self n'est pas corrects. Le constructeur attend des données numériques, un mélange de coordonnées (point), de positions (x,y) ou de taille (w,h).

Place le curseur juste après l'ouverture de la parenthèse et presse Ctrl+Shift+espace pour voir les variantes possibles.

J'ai ésséayé le code suivant :

Code:

1
2
3
4
5
6
7
8
9
 
procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
var
 TheRect: TRect;
 
begin
 TheRect := TRect.Create(TPoint(0,0,50,50));
end;

Malheureusement cela ne fonctionne pas.

Quand au code suivant c'est la même chose, il m'envoie 4 erreurs de compilation.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm2.FormCreate(Sender: TObject);
var
    Rect    :   TRect;
begin
    Rect.Left:=10;  // X
    Rect.Top:=10;   // Y
    Rect.Width:=100; // Largeur
    Rect.Height:=50; // Hauteur
    Canvas.Rectangle(Rect); // On dessine dans le Canvas de la fenêtre
end;

Merci de votre aide,

A+

19/01/2019, 11h25
SergioMaster

Bonjour,

Si déjà vous indiquiez : votre version de Delphi et le framework (VCL ou FMX) ?
Ensuite peut-être vous êtes vous trompé en partant sur un TRect (TRectF pour FMX) qui n'est qu'un ensemble de points
VCL vous voulez mettre un TShape
FMX vous voulez mettre un TRectangle FMX
19/01/2019, 12h40
Andnotor

Code:

TheRect := TRect.Create(Point(0,0),50,50);
19/01/2019, 14h03
tourlourou

Citation:

Voici mon code (qui ne fonctionne pas (1 error)) :

Citation:

Quand au code suivant c'est la même chose, il m'envoie 4 erreurs de compilation.

Bonjour,

Il ne faut certainement pas négliger ce qu'on peut apprendre des messages d'erreur eux-mêmes, s'ils sont suffisamment parlants, ni de les mentionner dans les messages, pour aider les intervenants à comprendre où peut se situer l'erreur.

Citation:
Envoyé par julius1983
Salut à tous

Tout est dans le titre, j'aimerais créer un rectangle coloré dynamiquement.
Voici mon code (qui ne fonctionne pas (1 error)) :
Code:

1 2 3 4 5 6 7 8 9 procedure TForm2.Button1Click(Sender: TObject); var TheRect: TRect; begin TheRect := TRect.Create(Self); TheRect := Rect(10,10,100,100); end;
Votre aide est la bienvenue,

A+
Code:

1 2 3 4 5 6 7 8 9 procedure TForm2.Button1Click(Sender: TObject); var TheRect: TShape; begin TheRect := TShape.Create(Self); TheRect.Parent := Self; TheRect.SetBounds(10,10,100,100); end;

Bonjour,
à noter que le code de Sergio_is_back "marchait" déjà très bien. Le même en couleur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button3Click(Sender: TObject);
var
    Rect    :   TRect;
begin
    Rect.Left:=10;  // X
    Rect.Top:=10;   // Y
    Rect.Width:=100; // Largeur
    Rect.Height:=50; // Hauteur
    Canvas.Brush.Color := ClLime ;
    Canvas.Pen.Color := clRed ;
    Canvas.Pen.Width := 4 ;
    Canvas.Rectangle(Rect);
    end;

A+
Charly

20/01/2019, 19h27
Paul TOTH

Citation:

Envoyé par Charly910

Bonjour,
à noter que le code de Sergio_is_back "marchait" déjà très bien. Le même en couleur :

par contre il n'est pas persistant :)
25/01/2019, 19h20
julius1983

Désolé mais le code ci-dessus (avec la couleur) envoie 5 erreurs.
Je précise que je suis sous Delphi 10.2.

Voici les messages d'erreur :

- [dcc32 Erreur] Unit1.pas(29): E2003 Identificateur non déclaré : 'TShape'
- [dcc32 Erreur] Unit1.pas(31): E2066 Opérateur ou point-virgule manquant
- [dcc32 Erreur fatale] julius.dpr(6): F2063 Impossible de compiler l'unité utilisée 'Unit1.pas'

Merci des votre aide,

A+
25/01/2019, 19h54
Jipété

Citation:

Envoyé par julius1983

Désolé mais le code ci-dessus (avec la couleur) envoie 5 erreurs.

Le code de Charly910 ? Il n'a que 13 lignes.

Citation:

Envoyé par julius1983

- [dcc32 Erreur] Unit1.pas(29): E2003 Identificateur non déclaré : 'TShape'
- [dcc32 Erreur] Unit1.pas(31): E2066 Opérateur ou point-virgule manquant
- [dcc32 Erreur fatale] julius.dpr(6): F2063 Impossible de compiler l'unité utilisée 'Unit1.pas'

Alors tes erreurs en lignes 29 et 31 :cristal:

Et je ne compte que 3 erreurs dans ton message, pas 5... :roll:

@ Paul Toth : C'est vrai tu as raison (comme toujours), non persistant si on réduit la fenêtre. Alors le voici en couleur :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Button2Click(Sender: TObject); var TheRect: TShape; begin TheRect := TShape.Create(Self); TheRect.Brush.Color := ClLime ; TheRect.Pen.Color := ClRed ; TheRect.Pen.Width := 4 ; TheRect.Parent := Self; TheRect.SetBounds(10,10,100,100); end;
pour ne pas rester idiot :mouarf:

A+
Charly

26/01/2019, 11h05
SergioMaster

Citation:

Envoyé par Jipété

Le code de Charly910 ? Il n'a que 13 lignes.

et en plus il utilisait un TRect ce dernier code (du moins celui du 20/01/2019, 14h43) or que vois-je dans les erreurs : Identificateur non déclaré : 'TShape'
26/01/2019, 11h38
Charly910

Bonjour,

c'est surement le code de Paul Toth dont tu veux parler ?

Tshape est dans l'unité ExtCtrls - Ajoute la à tes Uses si elle n'y est pas.

A+
Charly
26/01/2019, 12h52
Jipété

Citation:

Envoyé par SergioMaster

et en plus il utilisait un TRect ce dernier code (du moins celui du 20/01/2019, 14h43) or que vois-je dans les erreurs : Identificateur non déclaré : 'TShape'

Je l'avais vu aussi mais ne voulais pas abattre toutes mes cartes d'un coup, :mouarf:

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
unit Unit5;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, ExtCtrls;
 
type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.fmx}
 
Procedure TForm1.Button1Click(Sender: TObject);
var
  TheRect: TShape;
begin
 TheRect := TShape.Create(Self);
 TheRect.Brush.Color := ClLime ;
 TheRect.Pen.Color := ClRed ;
 TheRect.Pen.Width := 4 ;
 TheRect.Parent := Self;
 TheRect.SetBounds(10,10,100,100);
end;
 
end;
 
end.

26/01/2019, 16h13
Charly910

Oui, et donc ? c'est résolu ?

A+
Charly

Salut à tous,

voici mon code (celui de Carly910) en entier :

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
unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
Procedure TForm1.Button1Click(Sender: TObject);
var
  TheRect: TShape;
begin
 TheRect := TShape.Create(Self);
 TheRect.Brush.Color := ClLime ;
 TheRect.Pen.Color := ClRed ;
 TheRect.Pen.Width := 4 ;
 TheRect.Parent := Self;
 TheRect.SetBounds(10,10,100,100);
end;
 
end;
 
end.

Le problème c'est que le compilateur renvoie 1 erreur.

Code:

1
2
 
(dcc32 Erreur fatale] Unit5.pas(8): F2613 Unité 'ExtCtrls' non trouvée.

Le deuxième problème c'est lorsque je supprime l'unité 'ExtCtrls'.
cela renvoie 15 erreurs.

Dans l'attente d'une aide précieuse...

A+

Et voilà, on se demande à quoi ça sert de se décarcasser :arf:

Citation:

Envoyé par SergioMaster

Si déjà vous indiquiez : votre version de Delphi et le framework (VCL ou FMX) ?

N'oubliez jamais d'indiquer de quel framework il s'agit
Bon, on sait maintenant qu'il s'agit de FMX vu la liste des unités. Donc :

Citation:

Envoyé par SergioMaster

FMX vous voulez mettre un TRectangle FMX

Et, pas de bol, TShape n'existe pas en FMX, l'unité Extctrls est une unité VCL (c'est pas pour rien qu'il y a des préfixes) d'où l'erreur

Citation:

(dcc32 Erreur fatale] Unit5.pas(8): F2613 Unité 'ExtCtrls' non trouvée.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm8.Button1Click(Sender: TObject); var ARectangle : TRectangle; begin ARectangle:=TRectangle.Create(Self); ARectangle.Parent:=Self; // parent du rectangle (ici la forme principale) ARectangle.Position.X:=10; // gauche par rapport au parent ARectangle.Position.Y:=30; // haut par rapport au parent ARectangle.Height:=50; ARectangle.Width:=100; ARectangle.Fill.Color:=TAlphaColors.Red; //..autres propriétés end;
ou, en plus "condensé"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm8.Button1Click(Sender: TObject); begin with TRectangle.Create(Self) do begin Parent:=Self; // parent du rectangle (ici la forme principale) Position.X:=10; // gauche par rapport au parent (défaut 0) Position.Y:=30; // haut par rapport au parent (défaut 0) Height:=50; // hauteur (défaut 50) Width:=100; // largeur (défaut 50) Fill.Color:=TAlphaColors.Red; // couleur remplissage (défaut #FFE0E0E0) //..autres propriétés end end;

Voir 40 message(s) de cette discussion en une page