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

[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' ;