Ubuntu-fr

netsabes

lazarus 1.0.6 gérer dynamiquement le z-order

Bonjour,

je souhaite qu'un TShape (barres[1]) soit affiché au dessus d'un TStringGrid (SG1).
J'ai mis ce code :

barres[1]:=TShape.Create(form1);
    barres[1].parent:=form1;
    SG1.SendToBack;
    barres[1].BringToFront;
    barres[1].Color:=clred;
    barres[1].visible:=true;
    barres[1].width:=5;
    barres[1].height:=24*(length(edit1.caption)-1)-12;
    barres[1].top:=30;
    barres[1].left:=40;   

Or je vois bien le Tshape, mais il est en dessous du TStringGrid.

Comment se fait-ce ? (de rat ;-)

Merci pour vos réponses.

Sébastien.

---

Cet Univers ne serait pas grand-chose s’il n’abritait pas les gens qu’on aime. (Stephen Hawking)
Linux Ubuntu 22.04 Gnome (64 bits)

delphives

Re : lazarus 1.0.6 gérer dynamiquement le z-order

bonjour,

si vous essayez en mettant

barres[1].BringToFront;

tout à la fin ou après le visible := true;

---

LINUX A UN NOYAU, APPLE A UN PEPIN...
*******************************************************
INTEL I7 860 @ 3.6 GHz - 4 x 3GB DDR3-1333 - Asus P7P55D - SSD OCZ Vertex II 120 Go - 2X WD Green Caviar 1 To - NVIDIA GTX 480 - UBUNTU 12.10 (64 bits)

netsabes

Re : lazarus 1.0.6 gérer dynamiquement le z-order

Merci,

je viens d'essayer. J'ai du coup essayé de changer l'ordre entre BringToFront et SendToBack, mais rien n'y fait, ma barre reste désespérément à l'arrière plan.

---

Cet Univers ne serait pas grand-chose s’il n’abritait pas les gens qu’on aime. (Stephen Hawking)
Linux Ubuntu 22.04 Gnome (64 bits)