From 2dd7b2f8310c9cda1c6ac9f5dd1efdc57dc1392a Mon Sep 17 00:00:00 2001
From: sgwp <63001967@qq.com>
Date: Tue, 5 Nov 2024 10:59:14 +0800
Subject: [PATCH] =?UTF-8?q?=E6=96=B0=E5=A2=9E=E5=85=AC=E5=85=B1=E6=A8=A1?=
 =?UTF-8?q?=E6=9D=BF=EF=BC=8C=E8=AF=BB=E5=8F=96layout=E4=BF=A1=E6=81=AF?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 public10/design/U_BaseOneTableInput.dfm | 5 +++--
 public10/design/U_BaseOneTableInput.pas | 3 +++
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/public10/design/U_BaseOneTableInput.dfm b/public10/design/U_BaseOneTableInput.dfm
index 0ef7866..12af2d6 100644
--- a/public10/design/U_BaseOneTableInput.dfm
+++ b/public10/design/U_BaseOneTableInput.dfm
@@ -51,20 +51,21 @@ object frmBaseOneTableInput: TfrmBaseOneTableInput
     object Tsj: TToolButton
       Left = 63
       Top = 0
+      AutoSize = True
       Caption = #20445#23384#35774#35745
       ImageIndex = 16
       Visible = False
       OnClick = TsjClick
     end
     object TgridSet: TToolButton
-      Left = 158
+      Left = 150
       Top = 0
       AutoSize = True
       Caption = #34920#26684#21015#35774#32622
       ImageIndex = 16
     end
     object TBClose: TToolButton
-      Left = 257
+      Left = 249
       Top = 0
       AutoSize = True
       Caption = #20851#38381
diff --git a/public10/design/U_BaseOneTableInput.pas b/public10/design/U_BaseOneTableInput.pas
index c00752f..c459aa5 100644
--- a/public10/design/U_BaseOneTableInput.pas
+++ b/public10/design/U_BaseOneTableInput.pas
@@ -99,6 +99,9 @@ procedure TfrmBaseOneTableInput.FormShow(Sender: TObject);
 begin
    tGridSet.Visible:=gIsCanDesign;
    fWindowDesign.FormStyleInit10(self,0,ADOQueryBaseTemp,ADOQueryBaseCmd) ;
+   if dxLayoutControl_input.Tag<>999 then
+    readLayOut(dxLayoutControl_input,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_input.Name+'.ini'));
+
    Tsj.Visible:=gIsCanDesign;
 end;