فهرست منبع

上传附件大小,由10M修改为50M。
云版下载附件可自动打开。

chenshilong 6 سال پیش
والد
کامیت
537f961afa
2فایلهای تغییر یافته به همراه2 افزوده شده و 3 حذف شده
  1. 0 1
      Forms/UpFileFrame.dfm
  2. 2 2
      Forms/UpFileManageFrame.pas

+ 0 - 1
Forms/UpFileFrame.dfm

@@ -63,7 +63,6 @@ object UpFileView: TUpFileView
       Width = 28
       Height = 30
       Hint = #22312#32447#39044#35272
-      Visible = False
       Layout = pbsImageLeft
       Spacing = 4
       ImageNormal.Data = {

+ 2 - 2
Forms/UpFileManageFrame.pas

@@ -456,9 +456,9 @@ begin
     begin
       sFile := vODlg.Files[i];
       iV := FileSizeByName(sFile);
-      if iV >= 10485760 then
+      if iV >= 52428800 then
       begin
-        Application.MessageBox(PChar('“' + sFile + '”过大,单个文件上传不能超过10M!'), '提示', MB_OK + MB_ICONINFORMATION);
+        Application.MessageBox(PChar('“' + sFile + '”过大,单个文件上传不能超过50M!'), '提示', MB_OK + MB_ICONINFORMATION);
         Continue;
       end;