Ich wollte alle Buttons auf einem Panel ansprechen.
Also habe ich es so versucht:
Delphi-Quellcode:
for i := 0 to xiBg.ComponentCount - 1 do begin
if xiBg.Components[i] is TXiButton then begin
with (xiBg.Components[i] as TXiButton) do begin
ColorBorder := StringToColor(Skin.ReadString('Buttons', 'Border', '$00B35900'));
ColorDark := StringToColor(Skin.ReadString('Buttons', 'Dark', '$00FFA851'));
ColorFace := StringToColor(Skin.ReadString('Buttons', 'Face', '$00FF953E'));
ColorFocusRect := StringToColor(Skin.ReadString('Buttons', 'FocusRect', '$00FFA953'));
ColorGrad := StringToColor(Skin.ReadString('Buttons', 'Grad', '$00FFB66C'));
ColorLight := StringToColor(Skin.ReadString('Buttons', 'Light', '$00FF953E'));
ColorText := StringToColor(Skin.ReadString('Buttons', 'Text', '$00000000'));
end;
end;
Leider funktioniert das so nicht, weil er nicht in die Schleife geht. Und ich bin mir sicher, dass das Panel Komponenten hat!