Hallo,
ich beiß mir grade die Zähne aus am Problem, die Schriftgröße von Buttons (TJvSpeedbuttons) zu ändern.
Eigentlich habe ich den passenden Code (von Marabu (Danke!))
schon gefunden, aber der klappt eben nicht ganz:
Delphi-Quellcode:
procedure SetProperty(c: TComponent; cClass, cName: String; cValue: Variant);
var
i: Integer;
ppi: PPropInfo;
begin
if SameText(c.ClassName, cClass) then
begin
ppi := GetPropInfo(c, cName);
if Assigned(ppi) then
SetPropValue(c, cName, cValue);
end;
for i := 0 to Pred(c.ComponentCount) do
SetProperty(c.Components[i], cClass, cName, cValue);
end;
Mit dem Abruf:
SetProperty(Application, 'TJvSpeedbutton', 'Color', clRed);
kann ich die Farbe ändern, klappt also super.
Aber eben die 'Size' von 'Font' nicht, da die ja ein Untereintrag ist!
Geht das gar nicht so? Oder wie müsste der Befehl denn aussehen?
SetProperty(Application, 'TButton', 'Font', 10);
<- hier müsste ja noch 'size' stehen, also:
SetProperty(Application, 'TButton', 'Font', 'size', 10) o. ä.
Wie kann man das machen?
Für Hilfe bin ich sehr dankbar... nach 2 Tagen ist der Frust doch recht groß!
litotes