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
Left = 63
Top = 0
AutoSize = True
Caption = #20445#23384#35774#35745
ImageIndex = 16
Visible = False
OnClick = TsjClick
end
object TgridSet: TToolButton
Left = 158
Left = 150
Top = 0
AutoSize = True
Caption = #34920#26684#21015#35774#32622
ImageIndex = 16
end
object TBClose: TToolButton
Left = 257
Left = 249
Top = 0
AutoSize = True
Caption = #20851#38381

3
public10/design/U_BaseOneTableInput.pas
View File

@ -99,6 +99,9 @@ procedure TfrmBaseOneTableInput.FormShow(Sender: TObject);
begin
tGridSet.Visible:=gIsCanDesign;
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;
end;