闪缩更新

public10/design/U_BaseDataLink.dfm

@@ -4,7 +4,7 @@ object BaseDataLink: TBaseDataLink
   Height = 322
   Width = 484
   object dxSkinController1: TdxSkinController
-    Kind = lfStandard
+    Kind = lfFlat
     NativeStyle = False
     ScrollbarMode = sbmClassic
     SkinName = 'WXI'
@@ -45,7 +45,7 @@ object BaseDataLink: TBaseDataLink
     PixelsPerInch = 96
   end
   object ThreeLookAndFeelCol: TcxLookAndFeelController
-    Kind = lfStandard
+    Kind = lfFlat
     NativeStyle = False
     ScrollbarMode = sbmClassic
     SkinName = 'WXI'

public10/design/U_BaseDataLink.pas

@@ -3,10 +3,11 @@ unit U_BaseDataLink;
 interface
 
 uses
-  System.SysUtils, windows, forms, System.Classes, dxCore, cxClasses,
-  cxLookAndFeels, cxContainer, cxEdit, System.ImageList, Vcl.ImgList,
-  Vcl.Controls, cxImageList, cxGraphics, cxStyles, dxLayoutLookAndFeels,
-  cxLocalization, dxSkinsForm, dxSkinsDefaultPainters;
+  System.SysUtils,windows,forms, System.Classes,
+   dxSkinsDefaultPainters, dxCore, cxClasses,
+  cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
+  System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
+    dxLayoutLookAndFeels,cxLocalization;
 
 type
   TBaseDataLink = class(TDataModule)
@@ -35,52 +36,66 @@ type
   private
     { Private declarations }
   public
+
   end;
 
 var
   BaseDataLink: TBaseDataLink;
 
 implementation
-
 uses
-  U_globalVar, U_FormLayOutDesign;
+  U_globalVar,U_FormLayOutDesign;
 {%CLASSGROUP 'Vcl.Controls.TControl'}
 
 {$R *.dfm}
 
 procedure TBaseDataLink.DataModuleCreate(Sender: TObject);
 var
-  str: string;
-  pathStr: string;
+  str :String;
+  pathStr:String;
   I: Integer;
+  thread:Tthread;
 begin
-  RootLookAndFeel.NativeStyle := False;
-  gFontSize := 0;
-
-  if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true) then
+    thread:=TThread.CreateAnonymousThread(
+    procedure
     begin
-    cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) + 'devchs.ini';
+      TThread.Synchronize(nil,
+        procedure
+        begin
+
+          RootLookAndFeel.NativeStyle := false;
+           gFontSize:=0;
+
+           if (fileexists(ExtractFilePath(Application.ExeName) + 'devchs.ini') = true)
+             then
+           begin
+             cxLocalizer1.FileName := ExtractFilePath(Application.ExeName) +
+               'devchs.ini';
              cxLocalizer1.Active := true;
              cxLocalizer1.LanguageIndex := 1;
            end;
            //
            if not isUseSkin() then
            begin
-    dxSkinController1.UseSkins := false;
-    dxSkinController1.SkinName := '';
+             dxSkinController1.UseSkins:=false;
+             dxSkinController1.SkinName:='';
            end
            else
            begin
-    pathStr := ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
+              pathStr:=ExtractFilePath(Application.ExeName) + '\AllSkins.skinres';
               if FileExists(pathStr) then
               begin
                 dxSkinsUserSkinLoadFromFile(pathStr, 'WXI');
                 RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
               end;
            end;
-  // gGridNativeSet:=isGridNativeSet();
-   //
-end;
+        end)
+    end);
+
+   thread.FreeOnTerminate := True;
+   thread.Start;
+
+  end;
+
 
 end.
-

public10/design/U_BaseInput.pas

@@ -37,6 +37,7 @@ var
   mFontSize:integer;
 begin
    getSystemIni();
+    self.DoubleBuffered:=gIsUseSkin;
     if gFontSize<9 then
     begin
       mFontSize := 12;

public10/design/U_BaseList.pas

@@ -48,6 +48,7 @@ uses
 constructor TfrmBaseList.Create(AOwner: TComponent; ACaption: string=''; Parameters1: string=''; Parameters2: string=''; Parameters3: string=''; Parameters4: string=''; Parameters5: string=''; Parameters10: string='';FormID:Integer=0);
 begin
    inherited Create(AOwner);
+
    if ACaption <> '' then
      Caption := ACaption;
 
@@ -58,11 +59,14 @@ begin
    fParameters5 := Parameters5;
    fParameters10 := Parameters10;
    fFormId:=   FormID ;
+
+
+
 end;
 
 procedure TfrmBaseList.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  if WriteCloseWin(ADOQueryBaseCmd, self.Caption, fFormId, gDllFileName) then
+  if (fFormId>0) and (WriteCloseWin(ADOQueryBaseCmd, self.Caption, fFormId, gDllFileName)) then
   begin
     Sendmessage(application.MainForm.Handle, WM_CloseForm, 4, 0);
   end;
@@ -74,6 +78,7 @@ var
   mFontSize:integer;
 begin
    getSystemIni();
+   self.DoubleBuffered:=gIsUseSkin;
     if gFontSize<9 then
     begin
       mFontSize := 12;