Discussion :

[zohra051]

Bonjour à tous,

Je souhaiterais changer la couelur de la bordure de mon panel ainsi que supprimer la bordure. Pouvez vous m'aider ?
De plus, la propriété BorderWidth = 0 et BorderStyle= bsNone.

Merci à vous,

[franckcl]

Bonjour,
je ne suis pas sur de bien comprendre..
Tu veux changer la couleur de la bordure ou supprimer la bordure ?

En tous les cas, si tu veux modifier l'apparence d'un TPanel, il faut désactiver les champs de la propriété de StyleElements.

[zohra051]

Bonjour,
je ne suis pas sur de bien comprendre..
Tu veux changer la couleur de la bordure ou supprimer la bordure ?

En tous les cas, si tu veux modifier l'apparence d'un TPanel, il faut désactiver les champs de la propriété de StyleElements.

Bonjour,

Enfaite j'ai englobé le changement de couleur et la suppression dans le même sujet.

Je souhaiterais changer la couleur de la bordure de mon TPanel, ainsi que supprimer la bordure d'un autre TPanel.

Je viens de désactiver la propriété, mais pas de changement.

Merci,

[blonde]

Pour supprimer la bordure, essaie de mettre la propriété de BevelOuter à BvNone

[blonde]

Pour modifier la couleur de la bordure de ton Panel, je ne crois pas qu'il y ait de propriété directement accessible. Il faudrait que tu crées composant et que tu redessines toi-même la bordure.

J'ai trouvé cette discussion : https://www.developpez.net/forums/d1...uleur-bordure/


Sinon, tu peux essayer un TShape. Est-ce que cela correspondrait à ton besoin ?

[zohra051]

Pour supprimer la bordure, essaie de mettre la propriété de BevelOuter à BvNone

Super ça marche merci

Tu as une idée pour le changement de couleur d'un panel ? Et si possible la couleur de bordure d'un GroupeBox ?

Merci encore,

[SergioMaster]

Bonjour,

Grillé le temps que je fasse des essais mais : à cette question il y a plusieurs réponses possibles dépendant, en quelque sorte, de la version de Delphi et de la mouture du programme (VCL ou FMX).

Une solution simple dessiner un TRectangle autour du TPanel.
Mais comment envisager la chose :
par simple code ou en surchargeant la classe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 // Shema de surcharge
 TMyPanel = class(TPanel)
    FColor : TColor;
  protected
    procedure WM_NCPaint(var Msg: TWMNCPaint); message WM_NCPaint;
  end;
 
procedure TMyPanel.WM_NCPaint(var Msg: TWMNCPaint);
var
  DC: HDC;
  OldBrush: HBRUSH;
  OldPen: HPEN;
begin
  DC := 0;
  OldBrush := 0;
  OldPen := 0;
  try
    DC := GetWindowDC(Handle);
    OldBrush := SelectObject(DC, GetStockObject(NULL_BRUSH));
    Canvas.Pen.Color := FColor;
    OldPen := SelectObject(DC, Canvas.Pen.Handle);
    Rectangle(DC, 0, 0, Width, Height);
    Msg.Result := 0;
  finally
    if DC <> 0 then
    begin
      if OldPen <> 0 then
        SelectObject(DC, OldPen);
      if OldBrush <> 0 then
        SelectObject(DC, OldBrush);
      ReleaseDC(Handle, DC);
    end;
  end;
end;

Peut-être aussi envisager d'utiliser un équivalent Tpanel d'une autre bibliothèque (jvPanel de la JVCL, advPanel de TMS Software)

avec TMS

[blonde]

Bonjour,

Grillé le temps que je fasse des essais mais [...]

Oui mais ce que j'aime chez toi, c'est que tu prends toujours le temps d'ajouter un exemple codé ou d'aller plus loin dans les explications.

[Paul TOTH]

on pourra aussi mettre TShape ou un TPanel dans un Panel parent

avec un alClient et AlignWithMargins sur le composant enfant, ou en fixant le Padding du parent selon le besoin

[zohra051]

on pourra aussi mettre TShape ou un TPanel dans un Panel parent

avec un alClient et AlignWithMargins sur le composant enfant, ou en fixant le Padding du parent selon le besoin

Merci pour tes fabuleuses explications, j'ai réussi à changer la couleur

Et merci à tous pour votre aide.