Discussion :

[krokmitaine]

Salut,
Je dispose d'un panel sans bordure et j'aimerai que lorsque l'on passe la souris dessus une sorte de cadre se forme autour du panel pour donner l'impresion que l'on est bien sur une région particulière. J'ai essayé de jouer avec les bvOuter (je voudrais une bordure extérieure) mais je n'obtiens qu'une bordure haut-gauche (bvOuter := bvLowered) ou bas-droite (bvOuter := bvRaised). Par ailleurs qu'elqu'un pourrait-il m'expliquer à quoi correspond bvSpace ?
Merci

[OutOfRange]

Je n'ai jamais très bien compris la différence entre bvraised et bvspace...
Si je fais ça

Code :

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

1
2
  panel1.BevelOuter:=bvlowered;
  panel1.BevelInner:=bvraised;

et en mettant bevelwidth à 1, ça me trace un rectangle autour du panel

[krokmitaine]

Oui je sais, mais le problème c'est que c'est pas parfaitement beau (en bas normalement il y a un mini espace entre ta bordure et le panel).
Moi il faut ke jai un résultat parfait.
je crois que je vais m'orienter vers l'utilisation d'un bevel dans un panel ou peut-être même dessiner directement un rectangle en guise de cadre.
ciao.

[Droïde Système7]

Bonjour,

Question bête : as-tu essayé le principe que tu recherches à l'aide de propriétés de certains boutons via un "BitmapUp" par exemple surgissant au survol du curseur ?

Tu pourrais même dessiner de la dentelle autour

[krokmitaine]

Après moult essais, j'obtiens toujourspas ce que je voudrais ...
c'est a pourtant psal'air bien compliqué! Je veux juste obtenir le même contour que la liste des onglets à gauche

[Thierry Laborde]

Oui je sais, mais le problème c'est que c'est pas parfaitement beau (en bas normalement il y a un mini espace entre ta bordure et le panel).
Moi il faut ke jai un résultat parfait.

Je comprends pas trop car si tu fais comme indiqué par OutOfRange :

Code :

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

1
2
  panel1.BevelOuter:=bvlowered;
  panel1.BevelInner:=bvraised;

et en mettant bevelwidth à 1, ça me trace un rectangle autour du panel

Et que ta propriété BorderWidth est bien égale à 0, ca te fait bien un rectange clair autour de ton panel. Comme ici :

[krokmitaine]

Si tu regardes bien, le cadre obtenu n'a pas des bordures niformes mais on voit sur ton image que les bord shaut et droit sont plus marqués que les bords gauche et bas qui n'ont pas de cadres du tout. Je sais pas si tu vois la différence. En out cas merci de m'aider.

[Jipété]

Panel, bevel, ce sont des objets 3D et c'est l'effet que tu observes. Je règle le problème avec un panel plat (BevelOuter := bvNone) et sans caption, contenant un shape, dont tu vas pouvoir choisir la couleur, la bordure, etc., et sans effet 3D.
J'ai testé comme ça, ça fonctionne impec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  shape1.Visible := False;
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  shape1.Visible := True;
end;

Mes 2 cts,
--
jp

[krokmitaine]

Merci Jipété, grâce à toi, j'ai obtenu l'effet escompté (en fait j'arrivais pas à changer la bordure des shapes mais comme tu m'a ditque c'était possible je me suis acharné et j'ai trouvé; en fait c'était trop bête ---> Pen.Color ).

J'ai encore une dernière question (après j'arrête, promis ) : quand tu parles de pas mettre les effets 3D, c'est bien en rapport avec Ctl3D ?

Encore merci.

++