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

功能升级

Browse Source
This commit is contained in:
sgwp 2025-02-12 10:28:55 +08:00
parent 3d868141ac
commit c9c4f58cf1
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas
View File

@ -73,7 +73,10 @@ begin
fModuleId:=StringReplace(Trim(jsonObject.GetValue('moduleId').ToString),'"','',[rfReplaceAll]);
fModuleSubId:=StringReplace(trim(jsonObject.GetValue('moduleSubId').ToString),'"','',[rfReplaceAll]);
gTeamWorker:=StringReplace(trim(jsonObject.GetValue('teamWorkerId').ToString),'"','',[rfReplaceAll]);
fParameters10:='';
if Parameters1='²éѯ' then
fParameters10:='²éѯ'
else
fParameters10:='';
finally
jsonValue.Free;
end;

5
Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
View File

@ -427,6 +427,7 @@ begin
toolBar.List := mToolBarList;
end;
//
if fFormRightButtons<>'' then
initUserFormButtons(toolBar);
//continue;
@ -710,7 +711,7 @@ begin
if (mCaption = '关闭') or (mCaption = '退出') or (mCaption = '放弃') then
exit;
/// ////////////////////////////////////////
if trim(mOperRight) = '²éѯ' then
if (trim(mOperRight) = '²éѯ') or (trim(mOperRight) = '²éѯģ¿é') then
begin
if pos(mCaption, '查询,刷新,过滤,高级过滤,高级查询') > 0 then // ,查看,详细
begin
@ -740,7 +741,7 @@ begin
exit;
end;
/// ////////////////////////////////////////////////
if trim(mOperRight) = '²éѯ' then
if (trim(mOperRight) = '²éѯ') or (trim(mOperRight) = '²éѯģ¿é') then
exit;
with mParent do
begin