Warum wird In der App kein Stylelookup angezeigt

[ChristianG]

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);