/***************************************************************/
Type StyleCadre Defaut TailleSegment 4 ConserverObjets
/* Objet : Definition d'un style de cadre. */
/***************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
FeuilleDeStylesMere : ContexteGraphique Virtuel Lecture Public;
NomStyleCadre : Caractere Virtuel Lecture Public Trace;
AccesEcriture : SorteAcces Virtuel Lecture Public;
AccesLecture : SorteAcces Virtuel Lecture Public;
Sorte : SorteStyleCadre Virtuel Lecture Public;
Crayon : Nul Ou Pinceau Virtuel Lecture Public;
Fond : Nul Ou Motif Virtuel Lecture Public;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'Objet. */
/*-------------------------------------------------------------*/
Public :
Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
Procedure Convertir(O : Nul Ou Objet);
Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
Procedure SupprimerPropriete(NomPropriete : Caractere);
Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;
Prive :
Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Public :
Operateur Optimiser(Invariant, NulAbsorbant) ==(S : Nul Ou StyleCadre) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(S : Nul Ou StyleCadre) Retourner Nul Ou Booleen;
Procedure HabilitationContextuelle Modifier(S : SorteStyleCadre, Crayon : Nul Ou Pinceau, Fond : Nul Ou Motif=Nul);
Procedure HabilitationContextuelle Supprimer();
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type StyleCadre modélise un style de cadre pour dessiner des traits complexes.
Le type StyleCadre ne possède pas de constructeur. Les styles de cadre sont construits au travers du contexte graphique.
Principal
/*******/
Variable
/******/
S1 : Nul Ou StyleCadre;
S2 : Nul Ou StyleCadre;
Debut
...
Si S1==S2 Alors
/* Egalité entre deux styles de cadre. */
...
Fin Si
Si S1!=S2 Alors
/* Inégalité entre deux styles de cadre. */
...
Fin Si
...
Fin Principal
| - | - | - | - | - | - | - | - | - |