Discussion :

[joreveur]

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



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

Merci de vos conseils

[danucc]

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

[Jipété]

Salut,

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...

[joreveur]

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



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

donc il n'y aurait pas de solution ?

Bien cordialement

[danucc]

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.

[Jipété]

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 :



Dans le code du bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  shape1.BringToFront;
end;

[joreveur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.


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

Bien cordialement

[Jipété]

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...

[ThWilliam]

Bonsoir,

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

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

[joreveur]

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.

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.