Warum wird In der App kein Stylelookup angezeigt

[ChristianG]

Ich habe eine App, auf der Buttons mit Stylelookups drauf sind. Auf Windows wird dann im Button ein Arrowleft Lookup angezeigt, aber auf den Handy sehe ich gar kein Stylelookup. ich lade Styles von Ressourcen, was auch gut funktioniert und auch keine Probleme mit sich brachte bis jetzt :( . Ich suche schon seit Stunden aber finde keinen Anhaltspunkt :(
Vielen Dank für eure Hilfe im Vorraus
Mit freundlichen Grüßen

[himitsu]

Ohne einen eigenen Style funktioniert es?

Vielleicht gibt es ja auf Handys diese Art von Buttons nicht? (bzw. keiner dachte daß es sowas geben sollte)

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

[ChristianG]

*Push*