Discussion :

[GrPtj]

Bonjour, Je vois que depuis la version 10.4 de delphi, certains de nos programmes fonctionnent alors que certaines pages appelées ne font pas partie du projet ...
Par exemple le programme des Devis client fonctionne. Il nécessite de choisir un granit pour pouvoir chiffrer une pièce.
La page FormDevisC appelle la page FormChoixGranit. Or la page FormChoixGranit n'est pas dans le source du programme ?
Comment est-ce possible ? Dans quel cas peut-on utiliser une page sans l'ajouter au projet ?

[SergioMaster]

Bonjour,

Touffue la question !
Déjà j'ai du mal avec la terminologie, il me faut convertir "page" en "forme" pour saisir l'idée
Ensuite sans plus de détail j'aurai du mal à répondre j'ai l'impression qu'il y a confusion entre source du projet , source du programme, fiches (formes) créées au démarrage et celle créées au runtime

[GrPtj]

Il y a probablement une confusion !
Par exemple le programme en VCL des Devis client fonctionne. Il nécessite de choisir un granit pour pouvoir chiffrer une pièce.
La fiche FormDevisC appelle la fiche FormChoixGranit, au runtime la fiche FormChoixGranit est crée et utilisable
Or la fiche FormChoixGranit n'est pas dans le fichier source .dpr du programme ?

[Paul TOTH]

bonjour,

il n'est pas "nécessaire" que le DPR liste toutes les unités du projet

le DPROJ qui est un fichier XML peut aussi donner des fichiers associés au projet sans qu'ils soient dans le DPR

mais de façon générale, si Unit1 fait un uses de Unit2 et que Unit2 est dans le même répertoire, ou dans un des répertoires inclut dans la recherche (cf options du projet), le compilateur pour trouver l'unité sans qu'elle soit spécifiée dans le projet

[GrPtj]

Je ne savais pas que certaine s fiches pouvaient ne pas être dans le dpr.
Pour ce qui est de l'exemple, je ne vois pas non plus ma fiche ChoixGranit ni le dossier qui la contient (c'est le même dossier qui contient le projet) dans le dproj ?

[blonde]

Je ne savais pas que certaine s fiches pouvaient ne pas être dans le dpr.
Pour ce qui est de l'exemple, je ne vois pas non plus ma fiche ChoixGranit ni le dossier qui la contient (c'est le même dossier qui contient le projet) dans le dproj ?

Que veux dire pour toi "Je ne vois pas" ?
Le fichier ChoixGranit.pas n'existe pas, ou bien tu n'arrive pas à ouvrir la fiche dans l'IDE ? ou bien autre chose ?

[Paul TOTH]

Je ne savais pas que certaine s fiches pouvaient ne pas être dans le dpr.
Pour ce qui est de l'exemple, je ne vois pas non plus ma fiche ChoixGranit ni le dossier qui la contient (c'est le même dossier qui contient le projet) dans le dproj ?

si l'unité existe, il suffit de faire un Ctrl+Entrée sur le nom de l'unité dans le code pour que Delphi l'ouvre, en plaçant la souris sur l'onglet de la page il est alors possible de voir son emplacement

[SergioMaster]

En fait, l'unité ou plutôt le dcu doit être indiqué quelque part, a minima dans la forme appelante dans la liste des uses

[GrPtj]

Bonjour,
il n'est pas dans la liste des fiches du projet que l'on peut voir dans le fichier source du projet = dpr
Je ne le vois pas non plus listé dans le dproj

[blonde]

Si vraiment tu la veux dans la liste, tu l'ajoutes avec le menu "ajouter" (clic droit sur le Devis.exe )
Mais attention, il faudra que tu modifies le source du projet, car Delphi va t'ajouter automatiquement la création d'une fiche au démarrage de l'application.

[GrPtj]

oui la fiche est dans la liste des uses de la forme appelante.
Je ne savais pas que c'était suffisant ...
Donc si je comprends bien, si une fiche est dans le même répertoire que le projet et qu'elle est appelée par une forme du projet, il n'est pas utile de faire 'ajouter au projet', delphi gère tout seul ?

[Paul TOTH]

bonjour,

il n'est pas "nécessaire" que le DPR liste toutes les unités du projet

le DPROJ qui est un fichier XML peut aussi donner des fichiers associés au projet sans qu'ils soient dans le DPR

mais de façon générale, si Unit1 fait un uses de Unit2 et que Unit2 est dans le même répertoire, ou dans un des répertoires inclut dans la recherche (cf options du projet), le compilateur pour trouver l'unité sans qu'elle soit spécifiée dans le projet

oui la fiche est dans la liste des uses de la forme appelante.
Je ne savais pas que c'était suffisant ...
Donc si je comprends bien, si une fiche est dans le même répertoire que le projet et qu'elle est appelée par une forme du projet, il n'est pas utile de faire 'ajouter au projet', delphi gère tout seul ?

c'est pas ce que je dis ci-dessus ?

[GrPtj]

c'était bien ça !!
Merci pour ces précisions qui sont utiles quand on travaille à plusieurs sur les programmes.

[ALWEBER]

Voici une autre version de ton programme
Il y a deux projets qui se partagent la même fiche.
ex04.zip

[GrPtj]

Merci,
je n'avais pas vu la propriété firemonkeyform.

[GrPtj]

J'aurais voulu mettre un texte sur chaque face
mais je ne sais comment m'y prendre pour orienter un label ?
Peut-être faut-il que j'ouvre une autre conversation ?

[ALWEBER]

Tu ajoutes ces deux composants à chacun des planes

[GrPtj]

Bonjour, J'ai essayé le code suivant mais le texte ne s'affiche pas sur le plan :

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
Faces := TPlane.Create(nil);
Faces.HitTest := false;
Dummy1.AddObject(Faces);
 
layout := TLayout.Create(Faces);
layout.Align := TAlignLayout.alClient ;
Finition := TLabel.Create(layout);
Finition.Align := TAlignLayout.alCenter ;
Finition.FontColor := TAlphaColorRec.Black ;      
 
WFaceCentre := TPoint3D.Create(Pos.X, Pos.Y, Pos.Z  - Dim.Z / 2) * WZoom;
Faces[WInd].Position.Point := WFaceCentre;
Faces[WInd].SetSize(Dim.X * WZoom, Dim.Y * WZoom, 0);
Faces[WInd].MaterialSource := LightMaterialSourceTra;
Finition[WInd].Text := 'Finition 1' ;