Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works

Random project

DelphiWindowStyle

Window stylization for FMX and VCL

View on GitHub

Anyone may press Interesting, signed in or not. It helps others find this project.

Member rating

No ratings yet.

Sign in to rate this project.

README

FMXWindowStyle

Window stylization for FMX and VCL

The ability to stylize the window and background with modern WinAPI (WinUI 3). Mica, Acrylic, MicaAlt

You can control both the background of the application and the frame. Change the rounding of the window, add and change the color of the window stroke, change the color and text of the window header. You can also apply a dark mode without changing the window of the window of the window (only a dark frame)

pascal
 TFormHelper = class helper for TForm
   function SetSystemBackdropType(const Value: TSystemBackdropType): Boolean;
   function SetExtendFrameIntoClientArea(const Value: TRect): Boolean;
   function SetWindowCaptionColor(const Value: TColor): Boolean;
   function SetWindowTextColor(const Value: TColor): Boolean;
   function SetWindowBorderColor(const Value: TColor): Boolean;
   function SetWindowCorner(const Value: TWindowCornerPreference): Boolean;
   function SetWindowColorModeAsSystem: Boolean;
   function SetWindowColorMode(const IsDark: Boolean): Boolean;
   //
   procedure RefreshTitleBarThemeColor;
   function IsHighContrast: Boolean;
   function SystemIsDarkMode: Boolean;
   function IsDarkModeAllowedForWindow: Boolean;
   function GetIsImmersiveColorUsingHighContrast(Mode: TImmersiveHCCacheMode): Boolean;
   function ShouldAppsUseDarkMode: Boolean;
 end;

Light

Auto

.png?raw=true)

Mica

.png?raw=true)

Acrilyc

.png?raw=true)

Tabbed

.png?raw=true)

Dark

Auto

.png?raw=true)

Mica

.png?raw=true)

Acrilyc

.png?raw=true)

Tabbed

.png?raw=true)