panels färben

OcculsuInfernuM · Hält's aus hier Beiträge: 11

also ich habe einen panel von dem ich gern die farbe ändern würde...

gedacht habe ich mir das per popupmenü

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.red1Click(Sender: TObject);
begin
panel1.Brush.canvas.clred
end;

aber canvas erkennt er nicht an (rot unterstrichen)

was kann man da machen

oder gibs ne andere möglichkeit das panel zu färben?

Moderiert von Christian S.: Delphi-Tags hinzugefügt
Moderiert von Christian S.: Topic aus Sonstiges (Delphi) verschoben am Sa 06.01.2007 um 18:20

GTA-Place · Verfasst: Sa 06.01.07 19:22

Ja, mit Panel1.Color := clRed; geht es auch ;-)

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Gausi · Verfasst: Sa 06.01.07 19:33

Wobei das nicht mehr funktioniert, wenn man die Anwendung durch ein XP-Manifest im XP-Stil haben will.

Da hilft dann wohl nur selberzeichnen, und weil das Panel weder die Eigenschaft Canvas noch ein OnPaint-Event besitzt (zumindest bei Delphi7), muss man sich da ne eigene Klasse ableiten.

_________________
We are, we were and will not be.

GTA-Place · Verfasst: Sa 06.01.07 19:47

Oder aber man ist klug und zieht einfach ein Shape drüber ;-)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  Shape: TShape;
begin
  Shape := TShape.Create(Panel1);
  Shape.Parent := Panel1;
  Shape.Name   := 'Shape';
  Shape.Brush.Color := clRed;
  Shape.Pen.Color   := clRed;
  Shape.Align := alClient;
end;

Freigeben nicht vergessen, oder eben schon zur Designzeit aufs Panel legen.

EDIT: Um es deutlich zu sagen: Besser ist natürlich der Vorschlag von Gausi, aber vllt. für Anfänger nicht ganz einfach. Solltest du, OcculsuInfernuM, mehre Panels färben wollen und XPManifest verwenden, dann solltest du dich an den Vorschlag von Gausi halten.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

Gausi hat folgendes geschrieben:

Wobei das nicht mehr funktioniert, wenn man die Anwendung durch ein XP-Manifest im XP-Stil haben will.

Doch.
Einfach ParentBackground auf false.

MfG

jaenicke · Verfasst: Sa 06.01.07 20:37

Geht aber AFAIK erst ab Delphi 2005 oder 2006...

// EDIT: Genau:
Delphi 7: ParentBackground nutzt nix
Delphi 2005: Da gehts mit ParentBackground
Delphi 2006: Da gehts auch

Ich hab das übrigens nur per Zufall bei Delphi 2005 PE herausgefunden, als ich das circa 4 Wochen hatte. Sonst wäre ich nie drauf gekommen, dass es da plötzlich geht... ;-)

OcculsuInfernuM · Hält's aus hier Beiträge: 11

ok danke euch habs hinbekomen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme