Objet en arrière-plan

Bonjour

Dans un programme j'ai un memo avec un texte.
Est-il possible quand un autre objet (Shape) couvre partiellement ce mémo que ce texte soit partiellement masqué ?


je voudrais par exemple que le Disque Jaune masque la partie du texte correspondante

Pièce jointe 170066

Si besoin de plus d'explications, ne pas hésiter à me le demander.

Merci de vos conseils

Bonjour,

Si c'est à la création du programme, il faut sélectionner le parent, c'est à dire le fond du form, puis dans l'inspecteur d'objet, click droit et choisir le Z-order qui convient.

Si c'est dynamiquement, Shape1.BringToFront (en considérant que ton rond jaune s'appelle Shape1).

Bonne journée.
Danilo

Salut,

Citation:

---

Envoyé par danucc

Si c'est à la création du programme, il faut sélectionner le parent, c'est à dire le fond du form, puis dans l'inspecteur d'objet, click droit et choisir le Z-order qui convient.

Si c'est dynamiquement, Shape1.BringToFront (en considérant que ton rond jaune s'appelle Shape1).

---

As-tu testé tout ça ? Sous Linux/Debian/Lxde rien ne fonctionne...

Bonjour

Désolé mais j'avais oublié de préciser que je suis sous Linux (Ubuntu pour simplifier) et les Z-Order ne semblent pas fonctionner pour les memo.
Pour Labels ça fonctionne.... 1ère ligne

Pièce jointe 170148

pour l'exemple j'ai enlevé des couleurs et remis des ascenseurs

donc il n'y aurait pas de solution ?

Bien cordialement

Désolé, mais effectivement ça ne marche pas avec un Memo et ce n'est pas une question de Linux ou de Windows.

Je n'ai pas la solution dans ce cas.
Bonne chance.

Citation:

---

Envoyé par joreveur

donc il n'y aurait pas de solution ?

---

Ben si, tu l'as dit toi-même : avec un label et ses propriétés WordWrap à true et AutoSize à false, on peut arriver à ça :

Pièce jointe 170285

Dans le code du bouton :

Code:

---

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin shape1.BringToFront; end;

---

Bonjour,

merci de cette piste.
Je ne pensais pas qu'il y avait la propriété WordWrap sur l'objet Label ; cela va me faire avancer. Merci !

Par cette méthode appelée par Button1

Code:

---

Label1.caption:=memo1.Text;

---

. j'arrive à ce résultat - label en jaune - en mettant du texte dans memo1.Lines mais ce, de façon manuelle.
Pièce jointe 170312

je n'ai pas réussi à manipuler cette façon de faire en codant.

Bien cordialement

Citation:

---

Envoyé par joreveur

je n'ai pas réussi à manipuler cette façon de faire en codant.

---

Pas compris.

Qu'est-ce que tu veux faire au juste ? Aligner d'une façon non naturelle tes lignes de texte ? Ben oui, va falloir y aller à la mano en insérant espaces et judicieux retour-chariot, mais comme dans le mémo.
Et je ne vois pas/comprends pas comment il pourrait en être autrement.

Et ça, c'est un nouveau problème qui n'a rien à voir avec le shape par dessus. Enfin, il me semble...

Bonsoir,

Si je peux me permettre une petite précision...

Citation:

---

je suis sous Linux (Ubuntu pour simplifier) et les Z-Order ne semblent pas fonctionner pour les memo.

---

Le problème n'est pas là, que ce soit sous Windows ou sous Linux.

TMemo est un composant fenêtré (focalisable, comme TPanel, TForm...). Son parent est Form1.
TShape est un composant non fenêtré (descendant de TGraphicControl comme un TImage, un TLabel). Son parent est Form1.
Il est donc impossible de faire du Z-Order (ou du BringToFront) entre un TMemo et un TShape ! Le Memo sera toujours "au-dessus".
Par contre, un BringToFront entre un TMemo et un TPanel est possible, comme un BringToFront entre un TShape et un TLabel.
Si tu souhaites un TMemo en partie masqué, il faut placer un TShape sur un composant du genre TPanel.
Mais un TPanel pur n'est pas transparent ! Donc il faut rendre transparent toute la zone en dehors du cercle. Sous Windows, on y arrive avec les régions, mais Linux et ses problèmes de transparence...??? ;) à Jipété.


Cordialement
Thierry

Citation:

---

Envoyé par Jipété

Pas compris.

Qu'est-ce que tu veux faire au juste ? Aligner d'une façon non naturelle tes lignes de texte ? Ben oui, va falloir y aller à la mano en insérant espaces et judicieux retour-chariot, mais comme dans le mémo.
Et je ne vois pas/comprends pas comment il pourrait en être autrement.

Et ça, c'est un nouveau problème qui n'a rien à voir avec le shape par dessus. Enfin, il me semble...

---

Bonjour,
oui c'est un autre sujet... qui était lié au précédent mais je ferais éventuellement un autre billet.
Encore merci de tes conseils qui m'ont été utiles.

Citation:

---

Envoyé par ThWilliam

Bonsoir,

Si je peux me permettre une petite précision...



Le problème n'est pas là, que ce soit sous Windows ou sous Linux.

TMemo est un composant fenêtré (focalisable, comme TPanel, TForm...). Son parent est Form1.
TShape est un composant non fenêtré (descendant de TGraphicControl comme un TImage, un TLabel). Son parent est Form1.
Il est donc impossible de faire du Z-Order (ou du BringToFront) entre un TMemo et un TShape ! Le Memo sera toujours "au-dessus".
Par contre, un BringToFront entre un TMemo et un TPanel est possible, comme un BringToFront entre un TShape et un TLabel.
Si tu souhaites un TMemo en partie masqué, il faut placer un TShape sur un composant du genre TPanel.
Mais un TPanel pur n'est pas transparent ! Donc il faut rendre transparent toute la zone en dehors du cercle. Sous Windows, on y arrive avec les régions, mais Linux et ses problèmes de transparence...??? ;) à Jipété.


Cordialement
Thierry

---

Merci pour ces précisions qui me permettent de mieux comprendre. En réalité je suis très débutant avec Lazarus.

J'essaie de faire le défi (défi pour moi-même !) de l'écran de veille. alors je découvre un peu ce qu'il est possible de faire.

Merci à tous pour votre aide.