Farben ändern

[Alex_ITA01]

hallo erstmal,
ich habe zur Laufzeit (im Form1.OnPaint-Ereignis) die Farbe der Form geändert.Aber nicht auf die Standardfarben sonder ein übergang von hellgrün nach dunkelgrün.Jetzt ist logisch passen sich die Labels nicht der Farbe mit an.Wie mach ich das, das die Labels und checkboxen,trackbar und panel die farbe mitübernehmen?
danke schonmal im voraus
alex

[mimi]

du musst alle komponenten durchgehen die es gibt und nach den eigenschaften color bzw. font.color suche, möchtes du die font farhbe ändern oder die hintergrund farbe???

du könntes das auf jeden fall so machen:

Code:

procedure setColorAll;
begin
for i:=0 to Form1.componentcount{weiß nicht ob ich es richtig schreibe} do begin
  with Form1.component{weiß nicht ob ich es richtig schreibe}[i] do begin
    Color:=color//hier die farbe eintragen.
  end;
end;
end;

[nailor]

Viele Kompos (manche unverständlicherweise leider nicht) wie z.b. die Labels haben die Eigenschaft Parent.Color. Die hilft schonmal weiter. Parent Font wäre auch einen Blick wert...

Ansonsten manuell umstellen. Geht allerdings auch nicht bei allen Kompos!

[mimi]

ich kenne keine komponente wo es nicht eine color eingenschaft gibt.
ansonsten muss du alle eingenschaften durchgehen mit:

Delphi-Quellcode:

var
  i: Integer;
  Component: TComponent;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    Component := Components[i];
    if (Component is TControl) then
    begin
      Assert(Assigned(Component));
      if IsPublishedProp(Component, 'Font') then
        TFont(GetObjectProp(Component, 'Font', TFont)).Color := ANewColor;
    end;
  end;

[nailor]

Zitat von mimi:

ich kenne keine komponente wo es nicht eine color eingenschaft gibt.

da gehts beim Button los... [dafür gibts aber Work-Arounds]. Ich hab ja auch nur gesagt, dass es umständlicher werden kann. An sonsten sind die Dinger Parent.BLA aber schon sehr praktisch.
Und falls das nicht reicht, dann kann man wie mini es unbedingt will, manuell alles umstellen.

[mimi]

hast recht, aber dann nimmt man einen speedbuttone oder buttons die so eine eigenschaft haben und fertig