Groupbox "Caption" Farbe ändern.

[formosa]

Hallo,

Ich hab ein Problem auf welches ich momentan keine Lösung gefunden habe. Und zwar Versuch ich mich gerade an einem kleinen Programm zum verwalten meiner Schlangen (Fütterungen / Häutungen und so weiter..).

Nun habe ich ein XP Manifest reingepackt. Jedoch finde ich die blaue Farbe der Groupbox Überschrift nicht gerade schön und würde die gerne in Schwarz ändern. Kann mir jemand sagen ob das möglich ist?

Chris

[Balu der Bär]

Zitat:

Nun habe ich ein XP Manifest reingepackt.

Genau. Das heißt du überlässt dem aktuell aktivierten Windows-Theme die Farbvergabe. Bei dir ist es blau, bei mir mit meinem Vista-Theme ist die Schrift braun.

Ich glaube es wurde absichtlich so gemacht, sodass egal welches Windows-Theme der User aktiviert hat die Farbe halbwegs passend aussieht. Das nur zur Info, einen Weg diese Farbe trotz Manifest manuell zu ändern kann ich dir auch nicht sagen, wäre aber an einer Lösung interessiert.

[Namenloser]

Hmm. Evtl ein Static text drüberlegen? Nicht sehr elegant, aber funzt.

[Nils_13]

Hm...du könntest probieren es zu deaktivieren, ich weiß aber wirklich nicht, ob das überhaupt möglich ist, probier damit mal rum (einfach abändern):

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TGroupBox then (Components[i] as TGroupBox). ... ;
end;

[Balu der Bär]

Öhm Nils, was genau soll denn dein Code bewirken? :gruebel:

[Muetze1]

@Nils_13: Und warum zweimal den den Klassentyp abfragen? AS fragt intern nochmal mit IS nach...

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TGroupBox then TGroupBox(Components[i]). ... ;
end;

[formosa]

Danke für die Antworten. Ich habs jetzt mal ganz "billig" gelöst indem ich ein Label über die blaue Schrift gelegt.

[Reinhard Kern]

Zitat:

Zitat von formosa

Danke für die Antworten. Ich habs jetzt mal ganz "billig" gelöst indem ich ein Label über die blaue Schrift gelegt.

Hallo,

irgendwie verstehe ich die ganze Frage nicht - bei TGroupBox ist doch die Farbe der Beschriftung beliebig wählbar?

Gruss Reinhard

[Balu der Bär]

Zitat:

Zitat von Reinhard Kern

irgendwie verstehe ich die ganze Frage nicht - bei TGroupBox ist doch die Farbe der Beschriftung beliebig wählbar?

Ja klar, sobald du aber das XP-Manifest einbindest ist dem nicht mehr so.

[Reinhard Kern]

Zitat:

Zitat von Balu der Bär

Zitat:

Zitat von Reinhard Kern

irgendwie verstehe ich die ganze Frage nicht - bei TGroupBox ist doch die Farbe der Beschriftung beliebig wählbar?

Ja klar, sobald du aber das XP-Manifest einbindest ist dem nicht mehr so.

Hallo,

das dachte ich mir schon, aber das heisst, ich binde extra ein Manifest ein, damit alles einheitlich aussieht, bloss eben der eine String nicht - kommt mir irgendwie inkonsequent vor. Aber über Geschmack darf man sich nicht streiten.

Gruss Reinhard

[Balu der Bär]

Wieso denn? Es sieht doch alles einheitlich aus, auch dem String wird durch das Manifest eine akzeptable Farbe zugewiesen. Nur weil dem Threadstarter die Farbe nicht gefällt... ;)

[formosa]

Ich finde das der blaue Text der Groupbox einfach nicht passt, da all der andere Text schwarz ist. Mit einem Label drauf sieht es wieder einheitlich aus.

[Khabarakh]

Einheitlich sieht es so aus, wie das aktivierte Windows-Theme es festlegt und nicht anders ;) .

[me2u]

zwar nicht mehr der aktuellste.. aber vlt kann mir trotzdem sagen wie ich das sauberer lösen kann?? habe das selbe problem, dass mich das ziemlich nervt dass mir hier die farben aufgedrückt werden.. aber auf XPManifest verzichten will ich auch nicht ganz..

mit diesem ansatz sollte es ja eig. gehn:

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TGroupBox then TGroupBox(Components[i]).ParentColor:= False;
end;

tut es aber leider nicht... kann sich jemand vorstellen warum??


wäre nett wenn mir jemand nach der langen zeit noch helfen würde..

thx