/***************************************************************/
Type Brosse Defaut TailleSegment 4 ConserverObjets
/* Objet : Definition d'une brosse. */
/***************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
FeuilleDeStylesMere : FeuilleDeStyles Virtuel Lecture Public;
NomBrosse : Caractere Virtuel Lecture Public Trace;
AccesEcriture : SorteAcces Virtuel Lecture Public;
AccesLecture : SorteAcces Virtuel Lecture Public;
Sorte : SorteBrosse Virtuel Lecture Public;
Taille : Reel Virtuel Lecture Public;
CouleurAvantPlan : Nul Ou Couleur Virtuel Lecture Public;
CouleurArrierePlan : Nul Ou Couleur 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) ==(P : Nul Ou Brosse) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(P : Nul Ou Brosse) Retourner Nul Ou Booleen;
Procedure HabilitationContextuelle Modifier(S : SorteBrosse, T : Reel, AvantPlan : Nul Ou Couleur, ArrierePlan : Nul Ou Couleur=Nul);
Procedure HabilitationContextuelle Personnaliser(NomFichierImage : Nul Ou Caractere);
Procedure HabilitationContextuelle Supprimer();
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type Brosse modélise une brosse pour dessiner un dessin ponctuel.
Le type Brosse ne possède pas de constructeur. Les brosses sont construites au travers du contexte graphique.
Pour les brosses personnalisées en noir et blanc, le noir est remplacé par la couleur d'avant-plan et le blanc est remplacé par la couleur d'arrière plan.
Principal
/*******/
Variable
/******/
B1 : Nul Ou Brosse;
B2 : Nul Ou Brosse;
Debut
...
Si B1==B2 Alors
/* Egalité entre deux brosses. */
...
Fin Si
Si B1!=B2 Alors
/* Inégalité entre deux brosses. */
...
Fin Si
...
Fin Principal
| - | - | - | - | - | - | - | - | - |