From 11eea17fa9a185efb388b62a59c1512c8c0f37c1 Mon Sep 17 00:00:00 2001
From: sgwp <63001967@qq.com>
Date: Tue, 12 Nov 2024 11:12:34 +0800
Subject: [PATCH] =?UTF-8?q?=E5=8A=A8=E6=80=81=E5=8A=A0=E8=BD=BD=E7=9A=AE?=
 =?UTF-8?q?=E8=82=A4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 public10/design/U_BaseDataLink.dfm |  5 ++--
 public10/design/U_BaseDataLink.pas | 38 ++++++++++--------------------
 2 files changed, 16 insertions(+), 27 deletions(-)

diff --git a/public10/design/U_BaseDataLink.dfm b/public10/design/U_BaseDataLink.dfm
index c3c8940..a5695d6 100644
--- a/public10/design/U_BaseDataLink.dfm
+++ b/public10/design/U_BaseDataLink.dfm
@@ -8,7 +8,8 @@ object BaseDataLink: TBaseDataLink
     NativeStyle = False
     ScrollbarMode = sbmClassic
     SkinName = 'WXI'
-    RenderMode = rmGDIPlus
+    RenderMode = rmGDI
+    ShowFormShadow = bFalse
     UseSkinsInPopupMenus = False
     Left = 288
     Top = 96
@@ -48,7 +49,7 @@ object BaseDataLink: TBaseDataLink
     NativeStyle = False
     ScrollbarMode = sbmClassic
     SkinName = 'WXI'
-    RenderMode = rmGDIPlus
+    RenderMode = rmGDI
     Left = 253
     Top = 12
   end
diff --git a/public10/design/U_BaseDataLink.pas b/public10/design/U_BaseDataLink.pas
index 1230c1a..d0a520a 100644
--- a/public10/design/U_BaseDataLink.pas
+++ b/public10/design/U_BaseDataLink.pas
@@ -3,28 +3,12 @@ unit U_BaseDataLink;
 interface
 
 uses
-  System.SysUtils,windows,forms, System.Classes, dxSkinsCore,
+  System.SysUtils,windows,forms, System.Classes,
    dxSkinsDefaultPainters, dxCore, cxClasses,
   cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
   System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
-  dxSkinBasic, dxSkinWXI,  dxLayoutLookAndFeels,
-  cxLocalization, dxSkinHighContrast, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
-  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;
+  dxSkinBasic,   dxLayoutLookAndFeels,
+  cxLocalization;
 
 type
   TBaseDataLink = class(TDataModule)
@@ -74,12 +58,7 @@ var
 begin
   RootLookAndFeel.NativeStyle := False;
    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)
      then
    begin
@@ -93,6 +72,15 @@ begin
    begin
      dxSkinController1.UseSkins:=false;
      dxSkinController1.SkinName:='';
+   end
+   else
+   begin
+      pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
+      if FileExists(pathStr) then
+      begin
+        dxSkinsUserSkinLoadFromFile(pathStr, 'WXI');
+        RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
+      end;
    end;
   // gGridNativeSet:=isGridNativeSet();
    //