浏览代码

因为打包版本添加文件麻烦,部分按钮添加回来

MaiXinRong 5 年之前
父节点
当前提交
988002f495
共有 2 个文件被更改,包括 2256 次插入45 次删除
  1. 2256 0
      Frames/ProjectFme.dfm
  2. 0 45
      Frames/ProjectFme.pas

文件差异内容过多而无法显示
+ 2256 - 0
Frames/ProjectFme.dfm


+ 0 - 45
Frames/ProjectFme.pas

@@ -895,45 +895,6 @@ begin
     btnNotPass.Left := btnPass.Left + btnPass.Width + 1;
   end;
 
-  if btnSubmit.Visible then
-  begin
-    if (btnSubmit.Enabled) then
-    begin
-      btnSubmit.PicNormal.LoadFromFile(GetAppFilePath + 'Data/img/report_normal.bmp');
-      btnSubmit.PicMouseOver.LoadFromFile(GetAppFilePath + 'Data/img/report_hover.bmp');
-      btnSubmit.PicMouseDown.LoadFromFile(GetAppFilePath + 'Data/img/report_active.bmp');
-    end
-    else
-      btnSubmit.PicDisable.LoadFromFile(GetAppFilePath + 'Data/img/report_disabled.bmp');
-    btnSubmit.Paint;
-  end;
-
-  if btnPass.Visible then
-  begin
-    if (btnPass.Enabled) then
-    begin
-      btnPass.PicNormal.LoadFromFile(GetAppFilePath + 'Data/img/pass_normal.bmp');
-      btnPass.PicMouseOver.LoadFromFile(GetAppFilePath + 'Data/img/pass_hover.bmp');
-      btnPass.PicMouseDown.LoadFromFile(GetAppFilePath + 'Data/img/pass_active.bmp');
-    end
-    else
-      btnPass.PicDisable.LoadFromFile(GetAppFilePath + 'Data/img/pass_disabled.bmp');
-    btnPass.Paint;
-  end;
-
-  if btnNotPass.Visible then
-  begin
-    if (btnNotPass.Enabled) then
-    begin
-      btnNotPass.PicNormal.LoadFromFile(GetAppFilePath + 'Data/img/unpass_normal.bmp');
-      btnNotPass.PicMouseOver.LoadFromFile(GetAppFilePath + 'Data/img/unpass_hover.bmp');
-      btnNotPass.PicMouseDown.LoadFromFile(GetAppFilePath + 'Data/img/pass_active.bmp');
-    end
-    else
-      btnNotPass.PicDisable.LoadFromFile(GetAppFilePath + 'Data/img/pass_disabled.bmp');
-    btnNotPass.Paint;
-  end;
-
   ShowPhaseHint;
 
   if Assigned(FCheckerFrame) then
@@ -1231,12 +1192,6 @@ begin
   b3 := (FProjectData.ProjProperties.PhaseCount = FProjectData.PhaseIndex);
 
   pnlNewPhase.Visible := b1 and b2 and b3;
-  if (pnlNewPhase.Visible) then
-  begin
-    btnNewPhase.PicNormal.LoadFromFile(GetAppFilePath + 'Data/img/new_normal.bmp');
-    btnNewPhase.PicMouseOver.LoadFromFile(GetAppFilePath + 'Data/img/new_hover.bmp');
-    btnNewPhase.PicMouseDown.LoadFromFile(GetAppFilePath + 'Data/img/new_active.bmp');
-  end;
 end;
 
 procedure TProjectFrame.actnCurPhaseExecute(Sender: TObject);