Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.720 Beiträge
 
Delphi 12 Athens
 
#2

AW: FMX: Android-Default-Style

  Alt 6. Sep 2025, 16:19
Gefunden.

Und Android liegt liegen natürlich nicht "direkt" auf der Platte.


Code:
FMX.Controls.Win.rc
win7style RCDATA "styles\platform\win\Win7.fsf"
win8style RCDATA "styles\platform\win\Win8.fsf"
win10style RCDATA "styles\platform\win\Win10.fsf"
win11style RCDATA "styles\platform\win\Win11.fsf"

FMX.Controls.Mac.rc
osxstyle RCDATA "styles\platform\mac\Yosemite.fsf"
lionstyle RCDATA "styles\platform\mac\Lion.fsf"

FMX.Controls.iOS.res

FMX.Controls.Android.res


unit FMX.Controls.Win;
initialization
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win7style');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win8style');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win10style');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Windows, 'win11style');
  TStyleManager.RegisterPlatformStyleSelection(TOSPlatform.Windows, WindowsStyleSelection);

unit FMX.Controls.Mac;
initialization
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.OSX, 'osxstyle');
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.OSX, 'lionstyle');
  TStyleManager.RegisterPlatformStyleSelection(TOSPlatform.OSX, OSXStyleSelection);

unit FMX.Controls.iOS;
const
  iOSLightStyle = 'iosstyle';
  iOSDarkStyle = 'ios13darkstyle';
initialization
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.iOS, iOSLightStyle);
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.iOS, iOSDarkStyle);
  TStyleManager.RegisterPlatformStyleSelection(TOSPlatform.iOS, iOSStyleSelection);

unit FMX.Controls.Android;
initialization
  TStyleManager.RegisterPlatformStyleResource(TOSPlatform.Android, 'androidstyle');
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu ( 6. Sep 2025 um 16:27 Uhr)
  Mit Zitat antworten Zitat