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

框架保存格式异常

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-28 14:43:58 +08:00
parent 4c77143d0b
commit 595e0ff6f5
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -386,7 +386,6 @@ 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;
@ -925,6 +924,7 @@ begin
result:=client1; result:=client1;
end; end;
/// ////////////////////////////////////////// /// //////////////////////////////////////////
procedure TWindowFormDeSign.setGridClick(Sender: TObject); procedure TWindowFormDeSign.setGridClick(Sender: TObject);
var var
@ -957,6 +957,7 @@ begin
end; end;
end; end;
////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////
/// ÉèÖô°¿Ú°´Å¥ /// ÉèÖô°¿Ú°´Å¥
procedure TWindowFormDeSign.initUserFormButtons(toolBar1:TToolBar;toolBar2:TToolBar=nil); procedure TWindowFormDeSign.initUserFormButtons(toolBar1:TToolBar;toolBar2:TToolBar=nil);