Discussion :

[slimjoe]

Bonjour,

Dans un TForm vide ajoutez le composant TXPManifest, un TPageControl et un onglet. Sur l'onglet, ajouter un TPanel. Changez la propriété BorderWidth du TPanel à 8. À l'exécution, si le thème XP (ou Vista) est activé, on voit que le TPanel a pris la couleur de son parent (le TTabSheet), ce qui est parfait. Toutefois (et là est mon problème) on voit bien que la bordure, elle, reste grise.

Alors ma question est simple : comment est-ce que je peux appliquer une bordure "invisible" à un TPanel?

Merci!

[Pedro]

Salut
En mettant BorderStyle à bsNone?

[slimjoe]

Salut!

Le BorderStyle est à bsNone par défaut mais affiche quand même la bordure de 8px de la couleur de mon TPanel.

J'ai réglé mon problème en masquant Paint dans un nouveau composant héritant de TPanel (la seule modification que j'ai apportée apparaît en rouge dans le code) :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
procedure TMonPanel.Paint;
const
  Alignments: array[TAlignment] of Longint = (DT_LEFT, DT_RIGHT, DT_CENTER);
var
  Rect: TRect;
  TopColor, BottomColor: TColor;
  FontHeight: Integer;
  Flags: Longint;

  procedure AdjustColors(Bevel: TPanelBevel);
  begin
    TopColor := clBtnHighlight;
    if Bevel = bvLowered then TopColor := clBtnShadow;
    BottomColor := clBtnShadow;
    if Bevel = bvLowered then BottomColor := clBtnHighlight;
  end;

begin
  Rect := GetClientRect;
  if BevelOuter <> bvNone then
  begin
    AdjustColors(BevelOuter);
    Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
  end;
  if (BorderWidth <> 0) and 
    (not ThemeServices.ThemesEnabled or not ParentBackground) then //Si les thèmes sont activés, on ne dessine pas la bordure
    Frame3D(Canvas, Rect, Color, Color, BorderWidth);
  if BevelInner <> bvNone then
  begin
    AdjustColors(BevelInner);
    Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
  end;
  with Canvas do
  begin
    if not ThemeServices.ThemesEnabled or not ParentBackground then
    begin
      Brush.Color := Color;
      FillRect(Rect);
    end;
    Brush.Style := bsClear;
    Font := Self.Font;
    FontHeight := TextHeight('W');
    with Rect do
    begin
      Top := ((Bottom + Top) - FontHeight) div 2;
      Bottom := Top + FontHeight;
    end;
    Flags := DT_EXPANDTABS or DT_VCENTER or Alignments[Alignment];
    Flags := DrawTextBiDiModeFlags(Flags);
    DrawText(Handle, PChar(Caption), -1, Rect, Flags);
  end;
end;

Avec ce code, ça fonctionne parfaitement!

Merci!