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

no message

Browse Source
This commit is contained in:
sgwp 2025-05-06 10:02:32 +08:00
parent 8e98d4b78b
commit 0cc3a60d4c
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Delphi10/开发档案/Dp10RepoV1/public10/design/U_FormLayOutDesign.pas
View File

@ -516,6 +516,7 @@ begin
gfontSize := programIni.ReadInteger('窗口设置', '字体大小', 12); gfontSize := programIni.ReadInteger('窗口设置', '字体大小', 12);
gfontName := programIni.ReadString('窗口设置', '字体名称', ''); gfontName := programIni.ReadString('窗口设置', '字体名称', '');
gIsYsUse := programIni.ReadBool('窗口设置', 'stand', false); gIsYsUse := programIni.ReadBool('窗口设置', 'stand', false);
gQueryTime:= programIni.ReadInteger('窗口设置', '查询日期范围', 0);
finally finally
programIni.Free; programIni.Free;
end; end;

1
Delphi10/开发档案/Dp10RepoV1/public10/design/U_globalVar.pas
View File

@ -19,6 +19,7 @@ var
gSystemId:string; gSystemId:string;
gIsYsUse:boolean; gIsYsUse:boolean;
gTeamWorker:string; gTeamWorker:string;
gQueryTime:integer; //0按日；1：按月；
const const
WM_CloseForm = WM_USER + 100 ; WM_CloseForm = WM_USER + 100 ;