Quellcode von VCLStyleViewer u. FMXStyleViewer

[Pfaffe]

Hier meine Lösungen:

vcl-Variante

Delphi-Quellcode:

procedure TFStyles.Set_Styles(const FileName: string);
var
  StyleInfo: TStyleInfo;
begin
  if sametext(FileName, 'DEFAULT') then // DEFAULT -> Betriebssystem
    TStyleManager.SetStyle('Windows') // Einstellung unter den Projektoptionen auf WINDOWS lassen
  else
    begin
      if TStyleManager.IsValidStyle(FileName, StyleInfo) then begin // Wenn FileName nicht valide ist, dann wir eine Exception geworfen
        try
          TStyleManager.SetStyle(StyleInfo.Name);
        except
          TStyleManager.SetStyle(TStyleManager.LoadFromFile(FileName)); // OnShow wird ausgelöst
        end;
      end;
    end;
end;

FMX-Varainte
Leider fehlt mir die Defaut Stylebezeichner für iOS und Android. Wenn die Jemand kennt, dann her damit.

Delphi-Quellcode:

procedure TForm1.Set_Styles(FileName: string);
begin
  if sametext(FileName, 'DEFAULT') then // DEFAULT -> Betriebssystem
    begin
      try
        if TOSVersion.Platform = pfWindows then
          begin
            FileName:= 'win' +TOSVersion.Name.Substring(TOSVersion.Name.Length-2).trimleft+ 'style'; // Windows 7,8,10
            if FindResource(HInstance, PChar(FileName), RT_RCDATA) <> 0 then
              TStyleManager.SetStyle(TStyleStreaming.LoadFromResource(HInstance, FileName, RT_RCDATA));
          end
        else // if TOSVersion.Platform = (pfWindows, pfMacOS, pfiOS, pfAndroid, pfWinRT, pfLinux); then
          raise Exception.Create(format('Betriebssystem "%s" wird derzeit nicht unterstützt.', [TOSVersion.ToString]));
      except
      end;
    end
  else
    begin
      TStyleManager.SetStyleFromFile(FileName);
    end;
end;

[Pfaffe]

Zitat:

Ich bin mir nicht ganz sicher was Du meinst.

Ich bin auf Emba ziemlich stinkig. Die Entwicklungsumgebung ist ja nicht gerade billig. Der Preis würde ein untergeordnete Rolle spielen, wenn man den Leistungen von Emba vertrauen könnte. Ich habe nicht die Zeit und auch nicht das Kapital um für Emba in meiner Freizeit den kostenlosen Betatester zu machen.
Unter http://www.embarcadero.com/de/produc...udio/whats-new steht "Embarcadero® RAD Studio™ 10 Seattle ist der schnellste Weg zur Erstellung und Aktualisierung datenintensiver, hochgradig vernetzter und optisch anspruchsvoller Anwendungen für Windows 10, Mac, mobile Geräte ..."
Tatsache ist:
a. Auch nach dem Update 1 läuft die IDE immer noch nicht stabil. Nicht benötigte Packages müssen in der Regiestrie ausgeschaltet werden. Wenn man nicht permanent an den Fenstergrößen rumziehen möchte, muss man sich Zusatztools aus China installieren (wie peinlich). IDEFixPacks werden benötigt.
b. In Hilfedateien stehen falche Dinge, die mich in die Irre führen und mich unproduktive Zeit kosten.
c. Auf der Willkommensseite werde ich mit Werbung bestrahlt, die ich nur mit Hilfe dritter, hier im Forum, abschalten konnte. Wenn es eine Freeware wäre, dann würde ich es akzeptieren, das es keine offizielle Möglichkeit gibt, Werbung auszuschalten.
d.

[Harry Stahl]

Zitat von Pfaffe:

Tatsache ist:
a. Auch nach dem Update 1 läuft die IDE immer noch nicht stabil. Nicht benötigte Packages müssen in der Regiestrie ausgeschaltet werden. Wenn man nicht permanent an den Fenstergrößen rumziehen möchte, muss man sich Zusatztools aus China installieren (wie peinlich). IDEFixPacks werden benötigt.
b. In Hilfedateien stehen falche Dinge, die mich in die Irre führen und mich unproduktive Zeit kosten.
c. Auf der Willkommensseite werde ich mit Werbung bestrahlt, die ich nur mit Hilfe dritter, hier im Forum, abschalten konnte. Wenn es eine Freeware wäre, dann würde ich es akzeptieren, das es keine offizielle Möglichkeit gibt, Werbung auszuschalten.
d.

Obwohl ich Delphi-Fan in Person bin, kann ich Dir bei den von Dir aufgeführten Punkten nur voll zustimmen, hier besteht immer noch deutlich Handlungsbedarf (gerade auch die Welcome Page ist eine so völlig unnötige Verschlechterung zu Versionen vor XE8).

Was die Qualität betrifft: Ich finde es auch sehr schade, habe direkt bei Erscheinen von Delphi Seattle gut ein Dutzend gravierender Fehler bei Emba gemeldet, davon wurden im Update 1 aber nur 3 behoben. Hier hätte ich doch etwas mehr erwartet.

Aber ansonsten ist die Aussage der Werbung vielleicht gar nicht so verkehrt, zumindest für mich als Delphi-Entwickler, der C++ nicht sonderlich liebt, mit Java nichts anzufangen weiß, ist Delphi mit den mobilen Erweiterungen tatsächlich die (relativ betrachtet) beste Lösung, um Programme auf den verschiedenen Plattformen zu entwickeln.

Wenn die Macken raus wären und die IDE (noch) stabiler wäre, wäre eigentlich fast alles in Butter...

[Pfaffe]

Zitat:

Obwohl ich Delphi-Fan in Person bin

Ich doch irgendwie auch! Würde ich sonst Sonntags mich mit dem Thema befassen.

Zitat:

Wenn die Macken raus wären und die IDE (noch) stabiler wäre, wäre eigentlich fast alles in Butter...

Da bin ich zu 100% Deiner Meinung. Ich bin gespannt, was der neue Eigentümer machen wird.
Auf der anderen Seite wird der Webbrowser immer mehr als Basis für Anwendungsprogramme dienen.

[Harry Stahl]

Zitat von Pfaffe:

FMX-Varainte
Leider fehlt mir die Defaut Stylebezeichner für iOS und Android. Wenn die Jemand kennt, dann her damit.

Ich habe mal bei verschiedenen "Untersuchungen" folgendes ermittelt:

'ipadstyle' // IOS
'androidstyle' // Android
'lionstyle' // MAC

Habe es selber aber nicht verwendet, da ich im konkreten Fall was anders gemacht habe. Sollte aber funktionierten, den Test muss ich nun Dir überlassen. Funktioniert natürlich nur, wenn das kompilierte Programm auf der jeweiligen Plattform ausgeführt wird.