vcl-reports-localize/Delphi/ReportLocalizationDelphi.dxSettings.pas at 25.2.3+ · DevExpress-Examples/vcl-reports-localize · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
{**********************************************************************}
{                                                                      }
{                 This auxiliary unit was generated by                 }
{                 DevExpress Project Settings Manager.                 }
{                                                                      }
{  The dxSettings unit reflects the current project settings in        }
{  the source code of your project. Do not modify this file directly.  }
{                                                                      }
{  Use the DevExpress Project Settings dialog to configure all project }
{  settings related to DevExpress components. Select the following     }
{  item in the main menu of your RAD Studio IDE to invoke the dialog:  }
{                                                                      }
{            Project | DevExpress Settings for Your Project            }
{                                                                      }
{**********************************************************************}

unit ReportLocalizationDelphi.dxSettings;

{$I cxVer.inc}

interface

uses
  Winapi.Windows, System.Classes, Vcl.Themes, dxCore, cxLookAndFeels, dxSkinsCore, dxSkinsForm,
  dxSkinWXI, dxSkinTheBezier, dxSkinOffice2019Colorful, dxSkinOffice2019Black,
  dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinBasic;

implementation

procedure LoadAppearanceToRootLookAndFeel(ARoot: TcxRootLookAndFeel);
begin
  ARoot.Kind := lfUltraFlat;
  ARoot.NativeStyle := True;
  ARoot.ScrollbarMode := sbmDefault;
  ARoot.ScrollMode := scmDefault;
  ARoot.SkinName := 'WXICompact';
  ARoot.RenderMode := rmDefault;
  ARoot.TouchMode := False;
  ARoot.FormCorners := fcRectangular;
  ARoot.SkinPaletteName := 'Sharpness';
  ARoot.ShowFormShadow := bDefault;
  ARoot.UseSkins := True;
  ARoot.UseImageSet := imsDefault;
  ARoot.UseSkinsInPopupMenus := True;
  ARoot.UseGlobalSkin := True;
end;

procedure LoadAppearance;
var
  ARoot: TcxRootLookAndFeel;
begin
{$IFDEF DELPHI120}
  TStyleManager.ChangeChildFormSystemBorder := False;
{$ENDIF}
  cxProjectSettingsAreOverriding := True;
  cxCanUseSkinsWithoutSkinController := True;
  ARoot := TcxRootLookAndFeel.Instance;
  ARoot.BeginUpdate;
  try
    LoadAppearanceToRootLookAndFeel(ARoot);
  finally
    ARoot.EndUpdate;
  end;
  TdxVisualRefinements.LightStyleMode := lsmWithPaddings;
end;

initialization
  LoadAppearance;
end.