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

更新设计按钮权限

Browse Source
This commit is contained in:
sgwp 2024-10-22 09:42:52 +08:00
parent 190cb4b08e
commit 3a9f2c980f
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
public10/design/U_DetailBaseList.dfm
View File

@ -119,7 +119,6 @@ object frmDetailBaseList: TfrmDetailBaseList
OptionsItem.SizableHorz = True
OptionsItem.SizableVert = True
OnDblClick = dxLayoutControl_queryDblClick
ExplicitTop = 73
object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
AlignHorz = ahParentManaged
AlignVert = avParentManaged
@ -146,7 +145,6 @@ object frmDetailBaseList: TfrmDetailBaseList
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
ExplicitTop = 118
DesignSize = (
1077
37)
@ -339,8 +337,8 @@ object frmDetailBaseList: TfrmDetailBaseList
Top = 11
ExplicitLeft = 859
ExplicitTop = 11
ExplicitWidth = 89
ExplicitHeight = 33
ExplicitWidth = 82
ExplicitHeight = 25
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
ItemIndex = 1

2
public10/design/U_DetailBaseList.pas
View File

@ -351,7 +351,7 @@ begin
if dxLayoutControl_query.Tag<>999 then
readLayOut(dxLayoutControl_query,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_query.Name+'.ini'));
fWindowDesign.fProcedureName:=fProcedureName;
TgridLiSet.Visible:=gIsCanDesign;
fdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) ;
CreateCxGridColumn(application, Tv1,ADOQueryBaseTemp,PWideChar(fdesignCode+'|cxgrid1'));
CreateCxGridColumn(application, Tv1,ADOQueryBaseTemp,PWideChar(fdesignCode+'|cxgrid2'));