/***************************************************************/
Type FeuilleDeStyles Defaut TailleSegment 2 ConserverObjets
/* Objet : Definition d'une feuille de styles. */
/***************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
NomFeuilleDeStyles : Caractere Virtuel Lecture Public Trace;
PinceauNul : Nul Ou Pinceau Virtuel Lecture Public;
PinceauNoir : Nul Ou Pinceau Virtuel Lecture Public;
PinceauBlanc : Nul Ou Pinceau Virtuel Lecture Public;
PinceauGrisClair : Nul Ou Pinceau Virtuel Lecture Public;
PinceauGrisFonce : Nul Ou Pinceau Virtuel Lecture Public;
PinceauTransparent : Nul Ou Pinceau Virtuel Lecture Public;
MotifNul : Nul Ou Motif Virtuel Lecture Public;
MotifNoir : Nul Ou Motif Virtuel Lecture Public;
MotifBlanc : Nul Ou Motif Virtuel Lecture Public;
MotifGrisClair : Nul Ou Motif Virtuel Lecture Public;
MotifGrisFonce : Nul Ou Motif Virtuel Lecture Public;
MotifTransparent : Nul Ou Motif Virtuel Lecture Public;
BrosseNulle : Nul Ou Brosse Virtuel Lecture Public;
BrosseNoire : Nul Ou Brosse Virtuel Lecture Public;
BrosseBlanche : Nul Ou Brosse Virtuel Lecture Public;
BrosseGriseClaire : Nul Ou Brosse Virtuel Lecture Public;
BrosseGriseFoncee : Nul Ou Brosse Virtuel Lecture Public;
BrosseTransparente : Nul Ou Brosse Virtuel Lecture Public;
CadreNul : Nul Ou StyleCadre Virtuel Lecture Public;
CadreSimple : Nul Ou StyleCadre Virtuel Lecture Public;
CadreDouble : Nul Ou StyleCadre Virtuel Lecture Public;
CadreOmbre : Nul Ou StyleCadre Virtuel Lecture Public;
TexteNul : Nul Ou StyleEcriture Virtuel Lecture Public;
TexteNormal : Nul Ou StyleEcriture Virtuel Lecture Public;
Public :
Unite : SousMetriquesSupportees Virtuel;
/*-------------------------------------------------------------*/
/* 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 :
Constructeur(NomDeLaFeuilleDeStyles : Caractere, Sorte : SortePalette=PaletteCouleursVraies, AjouterObjetsGraphiquesParDefaut : Booleen=Vrai);
Operateur Optimiser(Invariant, NulAbsorbant) ==(F : Nul Ou FeuilleDeStyles) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(F : Nul Ou FeuilleDeStyles) Retourner Nul Ou Booleen;
Procedure Habilitation Enregistrer(Format : FormatsRessourceSupportes=FormatRessourceAutomatique);
Procedure Habilitation Enregistrer(Flux : Nul Ou IFlux, Format : FormatsRessourceSupportes=FormatRessourceAutomatique);
Procedure Habilitation Enregistrer(NomFichier : Nul Ou Caractere, Format : FormatsRessourceSupportes=FormatRessourceAutomatique);
Procedure Habilitation Supprimer();
Procedure MarquerModifie();
Fonction Optimiser(NulAbsorbant) HabilitationContextuelle AjouterPalette(Nom : Nul Ou Caractere, S : SortePalette, PaletteParDefaut : Booleen=Vrai) Retourner Nul Ou Palette;
Fonction HabilitationContextuelle ListerPalettes(CritereFiltre : Nul Ou Caractere=Nul, CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou Palette;
Fonction Optimiser(NulAbsorbant) HabilitationContextuelle AjouterPinceau(Nom : Nul Ou Caractere, S : SortePinceau, Taille : Reel, AvantPlan : Nul Ou Couleur, ArrierePlan : Nul Ou Couleur=Nul) Retourner Nul Ou Pinceau;
Fonction HabilitationContextuelle ListerPinceaux(CritereFiltre : Nul Ou Caractere=Nul, CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou Pinceau;
Fonction Optimiser(NulAbsorbant) HabilitationContextuelle AjouterMotif(Nom : Nul Ou Caractere, S : SorteMotif, AvantPlan : Nul Ou Couleur, ArrierePlan : Nul Ou Couleur=Nul) Retourner Nul Ou Motif;
Fonction HabilitationContextuelle ListerMotifs(CritereFiltre : Nul Ou Caractere=Nul, CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou Motif;
Fonction Optimiser(NulAbsorbant) HabilitationContextuelle AjouterBrosse(Nom : Nul Ou Caractere, S : SorteBrosse, Taille : Reel, AvantPlan : Nul Ou Couleur, ArrierePlan : Nul Ou Couleur=Nul) Retourner Nul Ou Brosse;
Fonction HabilitationContextuelle ListerBrosses(CritereFiltre : Nul Ou Caractere=Nul, CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou Brosse;
Fonction Optimiser(NulAbsorbant) HabilitationContextuelle AjouterStyleCadre(Nom : Nul Ou Caractere, S : SorteStyleCadre, Crayon : Nul Ou Pinceau, Fond : Nul Ou Motif=Nul) Retourner Nul Ou StyleCadre;
Fonction HabilitationContextuelle ListerStylesCadre(CritereFiltre : Nul Ou Caractere=Nul, CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou StyleCadre;
Fonction Optimiser(NulAbsorbant) HabilitationContextuelle AjouterStyleTexte(Nom : Nul Ou Caractere, S : SorteStyleTexte, NomPolice : Nul Ou Caractere, Crayon : Nul Ou Pinceau, Fond : Nul Ou Motif,
Taille : Reel, Crenage : Reel=0.0, Orientation : Reel=0.0, Gras : Booleen=Faux, Italique : Booleen=Faux, Souligne : Nul Ou StyleCadre=Nul,
Barre : Nul Ou StyleCadre=Nul, Encadre : Nul Ou StyleCadre=Nul, Orthogonale : Booleen=Faux) Retourner Nul Ou StyleTexte;
Fonction HabilitationContextuelle ListerStylesTexte() Retourner Nul Ou IResultatRequeteDe Nul Ou StyleTexte;
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type FeuilleDeStyles modélise une feuille de styles. Celle-ci regroupe les objets graphiques permettant de dessiner, tels les palettes, les pinceaux, les motifs, les brosses, les styles de cadre et les styles de texte.
Les images sont gérées par le module Up ! Picture qui permet de les charger, les enregistrer, les transformer et aussi les dessiner.
Il existe une feuille de styles particulière par programme. Elle est identifiée par la variable FeuilleDeStylesLocale chargée à partir du paramètre UpsGng.FeuilleDeStyles.
Le type FeuilleDeStyles possède un constructeur explicite. Les paramètres NomDeLaFeuilleDeStyles et Sorte sont respectivement le nom donné à la feuille de styles, la sorte de la palette principale.
Le paramètre Sorte détermine les capacités colorimétriques des palettes de la feuille de styles. Toutes les palettes sont de la même sorte. Pour plus de précisions sur les sortes de palettes de couleurs, merci de se référer à la fiche SortePalette.
Si le paramètre AjouterObjetsGraphiquesParDefaut a pour valeur Vrai, alors les objets graphiques par défaut sont ajoutés - palette, couleurs, pinceaux, motifs, brosses, styles de cadres et styles de texte.
Le type FeuilleDeStyles ne possède pas de constructeur. Il est automatiquement construit par le support.
Principal
/*******/
Variable
/******/
C : Nul Ou ContexteGraphique;
F1 : Nul Ou FeuilleDeStyles;
F2 : Nul Ou FeuilleDeStyles;
Debut
...
C.PinceauCourant=F1.PinceauNoir;
/* Selection du pinceau noir et continu. */
C.MotifCourant=F1.MotifNul;
/* Pas de selection de motif. */
...
Si F1==F2 Alors
/* Egalité entre deux feuilles de styles. */
...
Fin Si
Si F1!=F2 Alors
/* Inégalité entre deux feuilles de styles. */
...
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |