Class TMLDiagram

Unit

type TMLDiagram = class(TObject)

Le gestionnaire de diagramme (filière, stream, etc.) - Le coeur de l'affaire (bis) !!!

	`constructor Create(AOwner: TComponent; prmImages: TImageList; prmStateImages: TImageList; var prmOk: Boolean);`
	`constructor CreateFromFile(AOwner: TComponent; prmImages: TImageList; prmFileName: string);`
	`destructor Destroy; override;`
	`procedure AddMLComponent(prmMLComp: TMLComponent);`
	`procedure DelCurMLComponent();`
	`procedure FullExecute();`
	`function getHTMLFrameName(): string;`
	`procedure SaveToFile(prmFileName: string = '');`
	`procedure SaveToMemINI(prmINI: TMemINIFile);`
	`procedure SaveToStream(prmStream: TStream);`

attention, le deuxième paramètre sert à vérifier que tout est ok i.e. connexion aux données et création du premier composant dataset

chargement à partir d'un fichier

destructor

procedure AddMLComponent(prmMLComp: TMLComponent);

ajouter un composant dans la liste, avec qq tests

supprimer le composant sélectionné et ses descendants

lancer l'exécution sur l'ensemble des feuilles

récupérer le nom de frame associé au diagramme

sauvegarde générique qui teste le type de fichier à gérer

écrire les informations dans un fichier INI

sauvegarde des composants dans un flux

	`property DatabaseName: string;`
	`property Dataset: TLstAttributes;`
	`property FrmMLDiagram: TFrmBase;`
	`property HTMLFileName: string;`
	`property LstMLComp: TObjectList;`
	`property MLComponent[i: integer]: TMLComponent;`
	`property RootMLComp: TMLComponent;`
	`property Title: string;`
	`property TreeView: TTreeView;`