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

Compare commits

base: rtgit:d376da5819cc4864091c3dfafd5dea7d1a697336
Branches Tags
rtgit:main
...
compare: rtgit:0f56332ecd30e6206616810786f85df7aa93d394
Branches Tags
rtgit:main

2 Commits
d376da5819 ... 0f56332ecd

Author SHA1 Message Date
sgwp
0f56332ecd Merge branch 'main' of http://47.100.72.85:3000/rtgit/RTFormwork 2024-11-05 10:59:42 +08:00
sgwp
2dd7b2f831 新增公共模板，读取layout信息 2024-11-05 10:59:14 +08:00
2 changed files with 6 additions and 2 deletions
Show Stats Expand all files Collapse all files

5
public10/design/U_BaseOneTableInput.dfm
View File

@ -51,20 +51,21 @@ object frmBaseOneTableInput: TfrmBaseOneTableInput
object Tsj: TToolButton object Tsj: TToolButton
Left = 63 Left = 63
Top = 0 Top = 0
AutoSize = True
Caption = #20445#23384#35774#35745 Caption = #20445#23384#35774#35745
ImageIndex = 16 ImageIndex = 16
Visible = False Visible = False
OnClick = TsjClick OnClick = TsjClick
end end
object TgridSet: TToolButton object TgridSet: TToolButton
Left = 158 Left = 150
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #34920#26684#21015#35774#32622 Caption = #34920#26684#21015#35774#32622
ImageIndex = 16 ImageIndex = 16
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 257 Left = 249
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

3
public10/design/U_BaseOneTableInput.pas
View File

@ -99,6 +99,9 @@ procedure TfrmBaseOneTableInput.FormShow(Sender: TObject);
begin begin
tGridSet.Visible:=gIsCanDesign; tGridSet.Visible:=gIsCanDesign;
fWindowDesign.FormStyleInit10(self,0,ADOQueryBaseTemp,ADOQueryBaseCmd) ; fWindowDesign.FormStyleInit10(self,0,ADOQueryBaseTemp,ADOQueryBaseCmd) ;
if dxLayoutControl_input.Tag<>999 then
readLayOut(dxLayoutControl_input,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_input.Name+'.ini'));
Tsj.Visible:=gIsCanDesign; Tsj.Visible:=gIsCanDesign;
end; end;