create rect dynamiquement

Version imprimable

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

27/01/2019, 09h58
Jipété

Salut,

HS :

Citation:

Envoyé par SergioMaster

N'oubliez jamais d'indiquer de quel framework il s'agit

En fait, quand on clique sur "Nouvelle discussion" et que l'éditeur s'affiche, il faudrait qu'il soit pré-rempli avec un texte genre

Code:

Pensez bien à indiquer avec quel framework vous travaillez

/HS
27/01/2019, 10h10
SergioMaster

Bien évidement je plussoie mais je ne pense pas que ce soit possible
27/01/2019, 13h33
julius1983

Désolé, mais il ne reste plus qu' 1 erreur,
et j'ai rajouté ExtCtrls dans la liste des uses qui m'a enlevé 10 erreurs.
Le code se trouve ci-dessus.
je précise que je travaille sous Delphi X .

Merci de votre aide,

A+
27/01/2019, 14h34
Charly910

Donc tu es en VCL ?

PS : ton code n'est pas affiché dans ton message

Merci de t’intéresser de mes projets,

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
unit Unit2;
 
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
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.fmx}
 
procedure TForm2.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;
 
end.

Vous noteraient que j'ai rajouté le uses ExtCtrls.

Merci de votre aide,

A+

27/01/2019, 16h09
SergioMaster

Citation:

Envoyé par julius1983

Vous noterez que j'ai rajouté le uses ExtCtrls.

et je ferais remarquer qu'elle ne sert à rien.
FMX.Extctrls contient les classes : TPopupBox, TImageViewer, TPlotGrid, TDropTarget, rien qui concerne un TRectangle
28/01/2019, 10h59
Andnotor

Lorsque tu ne connais pas l'unité dans laquelle se trouve un composant installé dans la palette, pose temporairement ce composant sur la fiche et compile. La clause Uses sera ainsi complétée automatiquement.

Salut à tous,

voici mon code (je précise que je suis sous Delphi 10)

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 2 erreurs (voir ci dessous) :

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
Vérification des dépendances de projet...
Compilation de Project3.dproj (Debug, Win32)
Ligne de commande brcc32 pour "Project3.vrc"
  c:\program files (x86)\embarcadero\studio\19.0\bin\cgrc.exe -c65001 Project3.vrc -foProject3.res 
Ligne de commande dcc32 pour "Project3.dpr"
  c:\program files (x86)\embarcadero\studio\19.0\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generics.Collections;
  Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG 
  -E.\Win32\Debug -I"c:\program files (x86)\embarcadero\studio\19.0\lib\Win32\debug\FR";"c:\program files 
  (x86)\embarcadero\studio\19.0\lib\Win32\debug";"c:\program files (x86)\embarcadero\studio\19.0\lib\Win32\release\FR";"c:\program files 
  (x86)\embarcadero\studio\19.0\lib\Win32\release";C:\Users\julie\Documents\Embarcadero\Studio\19.0\Imports;"c:\program files 
  (x86)\embarcadero\studio\19.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\19.0\Dcp;"c:\program files (x86)\embarcadero\studio\19.0\include" 
  -LEC:\Users\Public\Documents\Embarcadero\Studio\19.0\Bpl -LNC:\Users\Public\Documents\Embarcadero\Studio\19.0\Dcp -NU.\Win32\Debug -NSWinapi;
  System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap; -O"c:\program files 
  (x86)\embarcadero\studio\19.0\lib\Win32\release";C:\Users\julie\Documents\Embarcadero\Studio\19.0\Imports;"c:\program files 
  (x86)\embarcadero\studio\19.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\19.0\Dcp;"c:\program files (x86)\embarcadero\studio\19.0\include" 
  -R"c:\program files (x86)\embarcadero\studio\19.0\lib\Win32\release\FR";"c:\program files (x86)\embarcadero\studio\19.0\lib\Win32\release";
  C:\Users\julie\Documents\Embarcadero\Studio\19.0\Imports;"c:\program files (x86)\embarcadero\studio\19.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\19.0\Dcp;"c:\program files (x86)\embarcadero\studio\19.0\include" -U"c:\program files 
  (x86)\embarcadero\studio\19.0\lib\Win32\debug\FR";"c:\program files (x86)\embarcadero\studio\19.0\lib\Win32\debug";"c:\program files 
  (x86)\embarcadero\studio\19.0\lib\Win32\release\FR";"c:\program files (x86)\embarcadero\studio\19.0\lib\Win32\release";
  C:\Users\julie\Documents\Embarcadero\Studio\19.0\Imports;"c:\program files (x86)\embarcadero\studio\19.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\19.0\Dcp;"c:\program files (x86)\embarcadero\studio\19.0\include" -V -VN 
  -NBC:\Users\Public\Documents\Embarcadero\Studio\19.0\Dcp -NHC:\Users\Public\Documents\Embarcadero\Studio\19.0\hpp\Win32 -NO.\Win32\Debug   
  Project3.dpr   
[dcc32 Erreur] Unit3.pas(1): E1038 L'identificateur d'unité 'Unit1' ne correspond pas au nom de fichier
[dcc32 Erreur fatale] Unit3.pas(8): F2613 Unité 'ExtCtrls' non trouvée.
Echec
Temps écoulé :  00:00:01.6

Merci de votre aide,

A+

02/02/2019, 20h30
SergioMaster

:arf:

J'ai l'impression d'écrire à un mur !

TShape est un composant VCL , si donc vous écrivez un programme VCL les unités FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, sont à supprimer
Au risque de me répéter l'unité VCL.Extctrls contient le composant TShape contrairement à l'unité FMX.Extctrls

Vous dites utiliser la version 10 de Delphi mais il existe les versions 10.1 (Berlin), 10.2 (Tokyo), 10.3 (Rio)

Vous ne pouvez pas (ou plutôt vous pouvez mais je ne pense pas que vous en soyez là) mixer des unités VCL avec des unités FMX dans un même projet

Quel type de projet avez vous donc créé ?

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