Discussion :

[jjnoui]

Bonjour à tous.
Le label1 n'affiche pas sa couleur mais celle de son parent Panel1, pourquoi ?

j'ai simplifié au maximum le programme ainsi que la fiche tout en conservant l'anomalie.

Je ne compte pas contourner le problème en créant un 2ème panel à la place du label1,
ni jongler avec les paint, invalidate et autres.

Je veux juste vérifier si ce problème est reproductible sur une autre machine, ou s'il y a une explication.
Merci

Le source du programme :

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
unit UDynObj;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
 
type
  TFDynObj = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  FDynObj: TFDynObj;
 
implementation
 
{$R *.dfm}
 
 
end.

Le fichier dfm :

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
 
object FDynObj: TFDynObj
  Left = 0
  Top = 0
  Caption = 'FDynObj'
  ClientHeight = 441
  ClientWidth = 624
  Color = clChartreuse
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  TextHeight = 15
  object Panel1: TPanel
    Left = 16
    Top = 32
    Width = 521
    Height = 41
    Caption = 'Panel1'
    Color = clFuchsia
    ParentBackground = False
    TabOrder = 0
    object Label1: TLabel
      Left = 112
      Top = 16
      Width = 34
      Height = 15
      Caption = 'Label1'
      Color = clWhite
      ParentColor = False
    end
  end
end

[ShaiLeTroll]

Transparent à True par Défaut ?

[jjnoui]

@ShaiLeTroll :

Non mais, quelle buse je fais!

J'ai passé mon temps en jouant avec les possibilités de propriétés commençant par Parent...

N'ayant jamais utilisé la transparence, voilà le résultat...

Merci et très bonne journée