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:

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