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

新增公共模板，读取layout信息

Browse Source
This commit is contained in:
sgwp 2024-11-05 10:59:14 +08:00
parent fbed66c989
commit 2dd7b2f831
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File 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;