瀏覽代碼

含有密码的项目,修改项目属性,不修改密码,保存时,不应报错提示。

MaiXinRong 10 年之前
父節點
當前提交
74df5cef5c
共有 2 個文件被更改,包括 5 次插入1 次删除
  1. 3 0
      Forms/ProjectPropertiesFrm.dfm
  2. 2 1
      Forms/ProjectPropertiesFrm.pas

+ 3 - 0
Forms/ProjectPropertiesFrm.dfm

@@ -107,6 +107,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
       ButtonWidth = 17
       DropDownBox.Width = 145
       DropDownBox.Height = 150
+      DropDownBox.ShowToolBar = False
       Style = cbsOfficeXP
       ItemIndex = -1
       ItemHeight = 14
@@ -950,6 +951,8 @@ object ProjectPropertiesForm: TProjectPropertiesForm
         DefaultColWidth = 73
         Selection.AlphaBlend = False
         Selection.TransparentColor = False
+        FrozenCol = 0
+        FrozenRow = 0
         OnCellGetColor = zgStaffCellGetColor
         OnCellGetFont = zgStaffCellGetFont
         Font.Charset = ANSI_CHARSET

+ 2 - 1
Forms/ProjectPropertiesFrm.pas

@@ -455,7 +455,8 @@ begin
     if leNewUnLockPassword.Text = leNewUnlockPasswordAgain.Text then
       FProjProperties.UnlockInfoPassword := leNewUnLockPassword.Text
     else ShowErrorMessage('两次密码输入不一致,密码修改不成功!')
-  else ShowErrorMessage('原密码输入错误,密码修改不成功!');
+  else if leUnlockPassword.Text <> '' then
+    ShowErrorMessage('原密码输入错误,密码修改不成功!');
 end;
 
 procedure TProjectPropertiesForm.leUnlockPasswordKeyPress(Sender: TObject;