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

更新表格列设置问题

Browse Source
This commit is contained in:
sgwp 2025-04-27 17:37:20 +08:00
parent 9f38a6e3ac
commit 8e98d4b78b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
View File

@ -386,6 +386,7 @@ begin
view.optionsCustomize.columnfiltering := true; view.optionsCustomize.columnfiltering := true;
mdesignCode := fDllFileName +'|'+mForm.name+ '|' + intTostr(fFormId) + '|' + grid.name; mdesignCode := fDllFileName +'|'+mForm.name+ '|' + intTostr(fFormId) + '|' + grid.name;
grid.EndUpdate ; grid.EndUpdate ;
CreateCxGridColumn( view,ADOQueryTmp,PWideChar(mdesignCode)); CreateCxGridColumn( view,ADOQueryTmp,PWideChar(mdesignCode));
//continue; //continue;
@ -931,7 +932,8 @@ var
view:TcxGridDBTableView; view:TcxGridDBTableView;
begin begin
view:=nil; view:=nil;
with TToolButton( Sender ).Parent.Parent do
with GetParentForm(TToolButton( Sender )) do
begin begin
for i:=0 to ComponentCount-1 do for i:=0 to ComponentCount-1 do
begin begin