Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Farbänderung bei TPanel zur Laufzeit


mtm - Mo 26.09.11 17:49
Titel: Farbänderung bei TPanel zur Laufzeit
Hallo zusammen,
ich habe ein Problem. Ich möchte für ein Programm ein "Farbsetup" entwerfen, also für 4 verschiedene Programmteile die Farbe (Hintergrund und Text) einstellen. Für die Anzeige benutze ich Panels.

mit folgendem Code soll die Farbe nach drücken eines Buttons geändert werden :

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
 
procedure TfrmOption.onColorClick(Sender: TObject);
var
  nr:Integer;
  pnl:TPanel;
  f: TColor;
  txt: String;
begin
  f := clWhite;
  with ColorDialog1 do begin
    if Execute(Self.Handle) then
      f := Color;  // Farbe auswählen
  end;
  nr := TButton(Sender).Tag; // Tag ist richtig gesetzt (mehrfach überprüft)

  txt := 'pnlCol' + IntToStr(nr);  // 
  pnl := TPanel(Self.FindComponent(txt));
  if pnl<>nil then begin
    Self.Caption := pnl.Name + ' / Color : ' + IntToStr(f);  // zu Testzwecken
    pnl.ParentColor := false;  // bin nicht sicher ob benötigt, aber schaden kann's ja eigentlich nicht.
    pnl.Color := f;
  end;
end;


Es passiert aber rein gar nichts. Die Panels sind übrigens nicht per Code sondern manuell im Designfenster auf die Form gebracht worden.
Hat einer von Euch irgendeine Ahnung, woran das liegen kann.
Die Panels werden übrigens mit FindComponent gefunden, die Testzeile (Self.Caption...) wird nämlich ausgeführt.

Danke im Voraus
mtm

Editiert : Gott, bin ich ein Idiot. ParentBackground war noch auf True.


turboPASCAL - Mi 28.09.11 00:11
Setz mal ParentBackground noch auf false, dann müsste es klappen.


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
 
procedure TfrmOption.onColorClick(Sender: TObject);
var
  nr:Integer;
  pnl:TPanel;
  f: TColor;
  txt: String;
begin
  f := clWhite;
  with ColorDialog1 do begin
    if Execute(Self.Handle) then
      f := Color;  // Farbe auswählen
  end;
  nr := TButton(Sender).Tag; // Tag ist richtig gesetzt (mehrfach überprüft)

  txt := 'pnlCol' + IntToStr(nr);  // 
  pnl := TPanel(Self.FindComponent(txt));
  if pnl<>nil then begin
    Self.Caption := pnl.Name + ' / Color : ' + IntToStr(f);  // zu Testzwecken
    pnl.ParentColor := false;  // bin nicht sicher ob benötigt, aber schaden kann's ja eigentlich nicht. //Edit <--<<< doch muss so
    pnl.ParentBackground := false; //Edit// <--<<< 
    pnl.Color := f;
  end;
end;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!