From 595e0ff6f5f3ae05f7201337f39f694854ee7d44 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 28 Jun 2025 14:43:58 +0800
Subject: [PATCH] =?UTF-8?q?=E6=A1=86=E6=9E=B6=E4=BF=9D=E5=AD=98=E6=A0=BC?=
 =?UTF-8?q?=E5=BC=8F=E5=BC=82=E5=B8=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../public10/design/U_WindowFormdesign.pas    | 35 ++++++++++---------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
index 2f6db6f..742e932 100644
--- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
@@ -386,7 +386,6 @@ begin
       view.optionsCustomize.columnfiltering := true;
       mdesignCode := fDllFileName +'|'+mForm.name+ '|' + intTostr(fFormId) + '|' + grid.name;
       grid.EndUpdate ;
-
       CreateCxGridColumn( view,ADOQueryTmp,PWideChar(mdesignCode));
 
       //continue;
@@ -925,38 +924,40 @@ begin
     result:=client1;
 end;
 
-/////////////////////////////////////////////
+
+/// //////////////////////////////////////////
 procedure TWindowFormDeSign.setGridClick(Sender: TObject);
 var
-  i:integer;
-  view:TcxGridDBTableView;
+  i: integer;
+  view: TcxGridDBTableView;
 begin
-  view:=nil;
+  view := nil;
 
-  with GetParentForm(TToolButton( Sender )) do
+  with GetParentForm(TToolButton(Sender)) do
   begin
-    for i:=0 to ComponentCount-1 do
+    for i := 0 to ComponentCount - 1 do
     begin
       if Components[i] is TcxGrid then
       begin
         if TcxGrid(Components[i]).IsFocused then
         begin
-           view:= TcxGridDBTableView(TcxGrid(Components[i]).Views[0]);
+          view := TcxGridDBTableView(TcxGrid(Components[i]).Views[0]);
         end;
-     end;
+      end;
     end;
   end;
   //
-   if view<>nil then
-   begin
-     OpenGridDesignWin(view);
-   end
-   else
-   begin
-     showMessage('����ѡ��Ҫ��Ƶı���!');
-   end;
+  if view <> nil then
+  begin
+    OpenGridDesignWin(view);
+  end
+  else
+  begin
+    showMessage('����ѡ��Ҫ��Ƶı���!');
+  end;
 end;
 
+
 //////////////////////////////////////////////////////////////////
 /// ���ô��ڰ�ť
 procedure TWindowFormDeSign.initUserFormButtons(toolBar1:TToolBar;toolBar2:TToolBar=nil);