关注人不显示附件按钮。

Dprs/CSL/Measure_Cloud.cfg

@@ -32,7 +32,7 @@
 -$M16384,1048576
 -K$00400000
 -E"C:\Program Files (x86)\李뷘흡숭\셕좆連마 (데샙경+暾경) 1"
--N"D:\Work\DelphiTemp"
+-N"C:\DelphiTemp"
 -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -D_mCloud;_mEncrypt1;_Test;_mLoginNoPW1

Dprs/CSL/Measure_Cloud.dof

@@ -91,7 +91,7 @@ ImageBase=4194304
 ExeDescription=
 [Directories]
 OutputDir=C:\Program Files (x86)\李뷘흡숭\셕좆連마 (데샙경+暾경) 1
-UnitOutputDir=D:\Work\DelphiTemp
+UnitOutputDir=C:\DelphiTemp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
 SearchPath=
@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=3
 MinorVer=1
 Release=3
-Build=1129
+Build=1130
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=936
 [Version Info Keys]
 CompanyName=瀧베李뷘눼劤흡숭唐掘무鱇
 FileDescription=李뷘써炬엄炬셕좆寧竟뺏暾경
-FileVersion=3.1.3.1129
+FileVersion=3.1.3.1130
 InternalName=
 LegalCopyright=
 LegalTrademarks=
@@ -144,8 +144,9 @@ Item4=_mCloud;_mEncrypt;_Test
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlUnitOutputDirectory]
-Count=1
-Item0=D:\Work\DelphiTemp
+Count=2
+Item0=C:\DelphiTemp
+Item1=D:\Work\DelphiTemp
 [HistoryLists\hlOutputDirectorry]
 Count=2
 Item0=C:\Program Files (x86)\李뷘흡숭\셕좆連마 (데샙경+暾경) 1

Forms/MainFrm.pas

@@ -421,8 +421,8 @@ function TMainForm.CreateProjectView(ARec: TsdDataRecord): TProjectFrame;
   var
     ProjectFrame: TProjectFrame;
   begin
-    ProjectFrame := TProjectFrame.Create(AProjectData);
     AProjectData.IsGuest := FProjectManagerFrame.IsGuest;
+    ProjectFrame := TProjectFrame.Create(AProjectData);
     FProjectFrames.Add(ProjectFrame);
     ProjectFrame.Parent := APage;
     ProjectFrame.Align := alClient;

Frames/ProjectFme.pas

@@ -1571,7 +1571,7 @@ begin
     if (APageIndex = xbiBillsCompile.Tag) or (APageIndex = xbiBillsMeasure.Tag) then
       CheckUpFile;
 
-    tobtnUpFile.Visible := APageIndex = xbiBillsMeasure.Tag;
+    tobtnUpFile.Visible := (APageIndex = xbiBillsMeasure.Tag) and (not ProjectData.IsGuest);
     if (tobtnUpFile.Visible = False) and (jpsAssistant.ActivePage = jpsAssistantUpFile) then
       jpsAssistant.ActivePage := jpsAssistantStandardBills;
   end;