rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

动态加载皮肤

Browse Source
This commit is contained in:
sgwp 2024-11-12 11:12:34 +08:00
parent fa72f24442
commit 11eea17fa9
2 changed files with 16 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
public10/design/U_BaseDataLink.dfm
View File

@ -8,7 +8,8 @@ object BaseDataLink: TBaseDataLink
NativeStyle = False NativeStyle = False
ScrollbarMode = sbmClassic ScrollbarMode = sbmClassic
SkinName = 'WXI' SkinName = 'WXI'
RenderMode = rmGDIPlus RenderMode = rmGDI
ShowFormShadow = bFalse
UseSkinsInPopupMenus = False UseSkinsInPopupMenus = False
Left = 288 Left = 288
Top = 96 Top = 96
@ -48,7 +49,7 @@ object BaseDataLink: TBaseDataLink
NativeStyle = False NativeStyle = False
ScrollbarMode = sbmClassic ScrollbarMode = sbmClassic
SkinName = 'WXI' SkinName = 'WXI'
RenderMode = rmGDIPlus RenderMode = rmGDI
Left = 253 Left = 253
Top = 12 Top = 12
end end

38
public10/design/U_BaseDataLink.pas
View File

@ -3,28 +3,12 @@ unit U_BaseDataLink;
interface interface
uses uses
System.SysUtils,windows,forms, System.Classes, dxSkinsCore, System.SysUtils,windows,forms, System.Classes,
dxSkinsDefaultPainters, dxCore, cxClasses, dxSkinsDefaultPainters, dxCore, cxClasses,
cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit, cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles, System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
dxSkinBasic, dxSkinWXI, dxLayoutLookAndFeels, dxSkinBasic, dxLayoutLookAndFeels,
cxLocalization, dxSkinHighContrast, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, cxLocalization;
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2013White,
dxSkinOffice2016Colorful, dxSkinOffice2016Dark, dxSkinOffice2019Black,
dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, dxSkinOffice2019White,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type type
TBaseDataLink = class(TDataModule) TBaseDataLink = class(TDataModule)
@ -74,12 +58,7 @@ var
begin begin
RootLookAndFeel.NativeStyle := False; RootLookAndFeel.NativeStyle := False;
gFontSize:=0; gFontSize:=0;
// pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
// if FileExists(pathStr) then
// begin
// dxSkinsUserSkinLoadFromFile(pathStr, 'WXI');
// RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
// end;
if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true) if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true)
then then
begin begin
@ -93,6 +72,15 @@ begin
begin begin
dxSkinController1.UseSkins:=false; dxSkinController1.UseSkins:=false;
dxSkinController1.SkinName:=''; dxSkinController1.SkinName:='';
end
else
begin
pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
if FileExists(pathStr) then
begin
dxSkinsUserSkinLoadFromFile(pathStr, 'WXI');
RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
end;
end; end;
// gGridNativeSet:=isGridNativeSet(); // gGridNativeSet:=isGridNativeSet();
// //