Skip to content

Commit

Permalink
26 Apr 2024
Browse files Browse the repository at this point in the history 
- Added support for Delphi 12.1
- Added StyledComponents integration
- Added StyledComponents interposer in demo

20 Oct 2023
- Added support for Delphi 12
- Examples Built with Delphi 12 (beta)
  • Loading branch information
@carloBarazzetta
carloBarazzetta committed Apr 26, 2024
1 parent 195d124 commit 3f80611
Show file tree
Hide file tree
Showing 68 changed files with 3,373 additions and 6,237 deletions.
Binary file added Demo/Images/DemoPreviewStyledComponents.jpg
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added Demo/Images/Launcher..jpg
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified Demo/Images/SupportingDelphi.jpg
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
26 changes: 23 additions & 3 deletions Demo/Projects/D10_1/ModernAppDemo.dpr
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
{ A full example of an HighDPI - VCL Themed enabled application }
{ See how to select the application Theme using VCLThemeSelector Form }
{ }
{ Copyright (c) 2020, 2023 (Ethea S.r.l.) }
{ Copyright (c) 2020, 2024 (Ethea S.r.l.) }
{ Author: Carlo Barazzetta }
{ https://github.com/EtheaDev/VCLThemeSelector }
{ }
Expand All @@ -28,17 +28,37 @@ uses
Vcl.Themes,
Vcl.Styles,
MidasLib,
{$IFDEF STYLEDCOMPONENTS}
Vcl.StyledButton,
Vcl.ButtonStylesAttributes,
Vcl.StyledDbNavigator,
Vcl.StyledToolbar,
Vcl.StyledButtonGroup,
Vcl.StyledCategoryButtons,
{$ENDIF}
uSplitView in '..\..\Source\uSplitView.pas' {FormMain},
EditForm in '..\..\Source\EditForm.pas' {FmEdit},
FVCLThemeSelector in '..\..\..\Source\FVCLThemeSelector.pas' {VCLThemeSelectorForm},
DImageCollections in '..\..\Source\DImageCollections.pas' {ImageCollectionDataModule: TDataModule};
DImageCollections in '..\..\Source\DImageCollections.pas' {ImageCollectionDataModule: TDataModule},
DemoAbout in '..\..\Source\DemoAbout.pas' {FrmAbout};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := 'Modern App and ThemeSelector Demo with HighDPI support - Copyright (c) Ethea S.r.l.';
Application.Title := 'Modern App and ThemeSelector Demo with HighDPI support';
//Uses System Style for border / shadow of Forms
TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;

{$IFDEF STYLEDCOMPONENTS}
TStyledButton.RegisterDefaultRenderingStyle(btRounded);
TStyledDbNavigator.RegisterDefaultRenderingStyle(btRounded);
TStyledButtonGroup.RegisterDefaultRenderingStyle(btRounded);
TStyledCategoryButtons.RegisterDefaultRenderingStyle(btRounded);
TStyledToolbar.RegisterDefaultRenderingStyle(btRoundRect);
{$ENDIF}

Application.CreateForm(TImageCollectionDataModule, ImageCollectionDataModule);
Application.CreateForm(TFormMain, FormMain);
Application.Run;
Expand Down
827 changes: 43 additions & 784 deletions Demo/Projects/D10_1/ModernAppDemo.dproj
View file

Large diffs are not rendered by default.

Binary file modified Demo/Projects/D10_1/ModernAppDemo.res
View file
Binary file not shown.
26 changes: 23 additions & 3 deletions Demo/Projects/D10_2/ModernAppDemo.dpr
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
{ A full example of an HighDPI - VCL Themed enabled application }
{ See how to select the application Theme using VCLThemeSelector Form }
{ }
{ Copyright (c) 2020, 2023 (Ethea S.r.l.) }
{ Copyright (c) 2020, 2024 (Ethea S.r.l.) }
{ Author: Carlo Barazzetta }
{ https://github.com/EtheaDev/VCLThemeSelector }
{ }
Expand All @@ -28,17 +28,37 @@ uses
Vcl.Themes,
Vcl.Styles,
MidasLib,
{$IFDEF STYLEDCOMPONENTS}
Vcl.StyledButton,
Vcl.ButtonStylesAttributes,
Vcl.StyledDbNavigator,
Vcl.StyledToolbar,
Vcl.StyledButtonGroup,
Vcl.StyledCategoryButtons,
{$ENDIF}
uSplitView in '..\..\Source\uSplitView.pas' {FormMain},
EditForm in '..\..\Source\EditForm.pas' {FmEdit},
FVCLThemeSelector in '..\..\..\Source\FVCLThemeSelector.pas' {VCLThemeSelectorForm},
DImageCollections in '..\..\Source\DImageCollections.pas' {ImageCollectionDataModule: TDataModule};
DImageCollections in '..\..\Source\DImageCollections.pas' {ImageCollectionDataModule: TDataModule},
DemoAbout in '..\..\Source\DemoAbout.pas' {FrmAbout};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := 'Modern App and ThemeSelector Demo with HighDPI support - Copyright (c) Ethea S.r.l.';
Application.Title := 'Modern App and ThemeSelector Demo with HighDPI support';
//Uses System Style for border / shadow of Forms
TStyleManager.FormBorderStyle := TStyleManager.TFormBorderStyle.fbsSystemStyle;

{$IFDEF STYLEDCOMPONENTS}
TStyledButton.RegisterDefaultRenderingStyle(btRounded);
TStyledDbNavigator.RegisterDefaultRenderingStyle(btRounded);
TStyledButtonGroup.RegisterDefaultRenderingStyle(btRounded);
TStyledCategoryButtons.RegisterDefaultRenderingStyle(btRounded);
TStyledToolbar.RegisterDefaultRenderingStyle(btRoundRect);
{$ENDIF}

Application.CreateForm(TImageCollectionDataModule, ImageCollectionDataModule);
Application.CreateForm(TFormMain, FormMain);
Application.Run;
Expand Down
Loading

0 comments on commit 3f80611

Please sign in to comment.