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

2
public10/design/U_DetailBaseList.pas
View File

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