Farbe eines Panels ändern

[ghost007]

Hallo,
warum funktioniert folgender code nicht?

Delphi-Quellcode:

 Panel1.Color:=$0065A99B;
 Panel2.Color:=clBlack;

MfG - Ghost007

[taaktaak]

Moin, Moin,
was funktioniert nicht? Fehlt vielleicht ein Refresh?

[STS301]

hast du es im OnCreate aufgerufen oder während der Laufzeit

[Bernhard Geyer]

Ich Tipp mal darauf das die Anwendung (und damit das Panel) gethemed unter XP läuft. Da geht das nicht! hierzu mußt du das Theming für das Panel deaktivieren.

[Sharky]

Oder benutzt eventuell ein XPManifest. Dann geht es nämlich nicht.

EDIT: Da schummelt sich doch der Bernhard einfach vor

[ghost007]

Die komplette code stelle sieht wie folgt aus:

Delphi-Quellcode:

procedure TForm10.Button1Click(Sender: TObject);
begin
 Panel1.Color:=$0065A99B;
 Panel2.Color:=clBlack;
end;

so gehts auch nicht:

Delphi-Quellcode:

procedure TForm10.Button1Click(Sender: TObject);
begin
 Panel1.Color:=$0065A99B;
 Panel2.Color:=clBlack;
 Panel1.Refresh;
 Panel2.Refresh;
end;

Ein XP Manifest hab ich nicht drauf.

MfG - Ghost007

//Edit: Wie deaktivier ich das theming

[STS301]

bei mir funktioniert der Code

Delphi-Quellcode:

//Button1.click
panel1.color:=clblack;

[Sharky]

Zitat von ghost007:

... Ein XP Manifest hab ich nicht drauf.

Hattest Du die Komponente mal "drauf"? Selbst wenn Du sie nämlich von der Form löschst bei die XPMan in der Uses Liste stehen.

[ghost007]

Also,
hab grade gemerkt das der XPMan auf einer anderen form ist und sich auch auf diese auswirkt.
Wie kann ich das theming für die panels deaktivieren?

MfG - Ghost007

[FAlter]

Hi,

panel xpmanifest farbe ergibt z. B.
http://www.delphipraxis.net/internal...manifest+farbe
http://www.delphipraxis.net/internal...manifest+farbe

[edit] Das einfachste sollte wohl sein, direkt im Objektinspektor ParentBackground auf false zu setzen 8) [/edit]

Mfg
FAlter