Von anfang an waren die Buttons mit diesen Stylelookup Sichtbar. Der Fehler kam erst als ich die Styles nicht aus einem Stylebook, sondern aus den Ressourcen lade. Das muss ich aber, um die Stylen mithilfe einer Combobox dynamisch wechseln zu können
Delphi-Quellcode:
with cbStyle do begin
Items.Add('Default');
case TosVersion.Platform of
pfAndroid : begin //pfWindows pfAndroid
Items.Add('Rot');
Items.Add('Gruen');
Items.Add('Lila');
Items.Add('Neon');
Items.Add('Air');
Items.Add('Amakrits');
Items.Add('AquaGraphite');
Items.Add('Blend');
Items.Add('Dark');
Items.Add('GoldenGraphite');
Items.Add('MetropolisUIBlack');
Items.Add('MetropolisUIBlue');
Items.Add('MetropolisUIDark');
Items.Add('MetropolisUIGreen');
Items.Add('RubyGraphite');
Items.Add('Transparent');
ItemIndex := 9;
end;
end;
end;
Und
Delphi-Quellcode:
aStyle := Nil;
if cbStyle.ItemIndex > 0 then begin
aTos := ToStr[TosVersion.Platform]+cbStyle.Selected.Text;
aStyle:=TStyleManager.LoadFromResource(HInstance,aTos,RT_RCDATA);
if not Assigned(aStyle) then begin
ShowMessage(aTos+LineFeed+'not found');
cbStyle.ItemIndex := 0;
end;
end;
TStylemanager.Setstyle(aStyle);