Bug #1060 项目属性，默认显示基础属性

Forms/ProjectPropertiesFrm.dfm

@@ -1,7 +1,7 @@
 object ProjectPropertiesForm: TProjectPropertiesForm
   Left = 663
   Top = 261
-  ActiveControl = cbShowAlias
+  ActiveControl = leProjectName
   BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = #39033#30446#23646#24615
@@ -120,8 +120,8 @@ object ProjectPropertiesForm: TProjectPropertiesForm
     Top = 63
     Width = 530
     Height = 255
-    ActivePage = jpsPropertiesView
-    ActivePageIndex = 2
+    ActivePage = jpsPropertiesBase
+    ActivePageIndex = 0
     Align = alTop
     Caption = 'jpsProperties'
     object jpsPropertiesBase: TJimPage
@@ -215,7 +215,6 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           Width = 438
           Height = 247
           HorzScrollBar.Range = 401
-          VertScrollBar.Position = 758
           VertScrollBar.Range = 1005
           Align = alClient
           AutoScroll = False
@@ -233,7 +232,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           OnVScroll = msbBaseVScroll
           object lblDealInfo: TLabel
             Left = 7
-            Top = -754
+            Top = 4
             Width = 48
             Height = 12
             Caption = #21512#21516#20449#24687
@@ -246,28 +245,28 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object lblBuilder: TLabel
             Left = 34
-            Top = -650
+            Top = 108
             Width = 60
             Height = 12
             Caption = #24314#35774#21333#20301#65306
           end
           object lblConstructor: TLabel
             Left = 34
-            Top = -566
+            Top = 192
             Width = 60
             Height = 12
             Caption = #25215#21253#21333#20301#65306
           end
           object lblSupervisor: TLabel
             Left = 34
-            Top = -482
+            Top = 276
             Width = 60
             Height = 12
             Caption = #30417#29702#21333#20301#65306
           end
           object lblTechParameters: TLabel
             Left = 7
-            Top = -387
+            Top = 371
             Width = 48
             Height = 12
             Caption = #25216#26415#21442#25968
@@ -280,14 +279,14 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object lblLoadLevel: TLabel
             Left = 34
-            Top = -365
+            Top = 393
             Width = 60
             Height = 12
             Caption = #20844#36335#31561#32423#65306
           end
           object lblDealPayTitle: TLabel
             Left = 7
-            Top = -227
+            Top = 531
             Width = 48
             Height = 12
             Caption = #21512#21516#25903#20184
@@ -300,7 +299,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object lblSafeTitel: TLabel
             Left = 7
-            Top = -123
+            Top = 635
             Width = 48
             Height = 12
             Caption = #25991#20214#23433#20840
@@ -313,14 +312,14 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object lblUnlockPassword: TLabel
             Left = 36
-            Top = -99
+            Top = 659
             Width = 84
             Height = 12
             Caption = #35299#38145#33410#28857#23494#30721#65306
           end
           object lblPasswordHint: TLabel
             Left = 128
-            Top = -98
+            Top = 660
             Width = 90
             Height = 12
             Caption = 'lblPasswordHint'
@@ -334,7 +333,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object lblCalcParametersTitel: TLabel
             Left = 7
-            Top = 5
+            Top = 763
             Width = 48
             Height = 12
             Caption = #35745#31639#21442#25968
@@ -347,14 +346,14 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object Label1: TLabel
             Left = 36
-            Top = 29
+            Top = 787
             Width = 84
             Height = 12
             Caption = #20445#30041#23567#25968#20301#25968#65306
           end
           object pnlDealInfoBar: TPanel
             Left = 62
-            Top = -749
+            Top = 9
             Width = 339
             Height = 2
             BevelOuter = bvLowered
@@ -362,7 +361,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leProjectName: TLabeledEdit
             Left = 33
-            Top = -722
+            Top = 36
             Width = 330
             Height = 18
             Ctl3D = False
@@ -374,7 +373,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leDealName: TLabeledEdit
             Left = 33
-            Top = -682
+            Top = 76
             Width = 152
             Height = 18
             Ctl3D = False
@@ -386,7 +385,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leDealIndex: TLabeledEdit
             Left = 195
-            Top = -682
+            Top = 76
             Width = 80
             Height = 18
             Ctl3D = False
@@ -398,7 +397,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leBName: TLabeledEdit
             Left = 101
-            Top = -635
+            Top = 123
             Width = 261
             Height = 18
             Ctl3D = False
@@ -410,7 +409,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leBLegal: TLabeledEdit
             Left = 101
-            Top = -594
+            Top = 164
             Width = 137
             Height = 18
             Ctl3D = False
@@ -422,7 +421,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leBDate: TLabeledEdit
             Left = 245
-            Top = -594
+            Top = 164
             Width = 119
             Height = 18
             Ctl3D = False
@@ -434,7 +433,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leCName: TLabeledEdit
             Left = 101
-            Top = -551
+            Top = 207
             Width = 262
             Height = 18
             Ctl3D = False
@@ -446,7 +445,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leCLegal: TLabeledEdit
             Left = 101
-            Top = -510
+            Top = 248
             Width = 137
             Height = 18
             Ctl3D = False
@@ -458,7 +457,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leCDate: TLabeledEdit
             Left = 245
-            Top = -510
+            Top = 248
             Width = 119
             Height = 18
             Ctl3D = False
@@ -470,7 +469,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leSName: TLabeledEdit
             Left = 101
-            Top = -467
+            Top = 291
             Width = 262
             Height = 18
             Ctl3D = False
@@ -482,7 +481,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leSLegal: TLabeledEdit
             Left = 101
-            Top = -427
+            Top = 331
             Width = 137
             Height = 18
             Ctl3D = False
@@ -494,7 +493,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leSDate: TLabeledEdit
             Left = 245
-            Top = -427
+            Top = 331
             Width = 119
             Height = 18
             Ctl3D = False
@@ -506,7 +505,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object pnlTechParametersBar: TPanel
             Left = 62
-            Top = -382
+            Top = 376
             Width = 339
             Height = 2
             BevelOuter = bvLowered
@@ -514,7 +513,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leStartPeg: TLabeledEdit
             Left = 34
-            Top = -307
+            Top = 451
             Width = 132
             Height = 18
             Ctl3D = False
@@ -526,7 +525,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leEndPeg: TLabeledEdit
             Left = 176
-            Top = -307
+            Top = 451
             Width = 131
             Height = 18
             Ctl3D = False
@@ -538,7 +537,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leLength: TLabeledEdit
             Left = 34
-            Top = -267
+            Top = 491
             Width = 132
             Height = 18
             Ctl3D = False
@@ -550,7 +549,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leLaneCount: TLabeledEdit
             Left = 176
-            Top = -267
+            Top = 491
             Width = 132
             Height = 18
             Ctl3D = False
@@ -562,7 +561,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object cbLoadLevel: TComboBox
             Left = 34
-            Top = -348
+            Top = 410
             Width = 132
             Height = 20
             Ctl3D = False
@@ -579,7 +578,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object pnlDealPayBar: TPanel
             Left = 62
-            Top = -221
+            Top = 537
             Width = 339
             Height = 2
             BevelOuter = bvLowered
@@ -587,7 +586,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leContractPrice: TLabeledEdit
             Left = 133
-            Top = -206
+            Top = 552
             Width = 117
             Height = 18
             BiDiMode = bdLeftToRight
@@ -605,7 +604,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leStartedSubsist: TLabeledEdit
             Left = 133
-            Top = -179
+            Top = 579
             Width = 118
             Height = 18
             Ctl3D = False
@@ -619,7 +618,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leMaterialSubsist: TLabeledEdit
             Left = 133
-            Top = -153
+            Top = 605
             Width = 119
             Height = 18
             Ctl3D = False
@@ -633,7 +632,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object pnlSafeBar: TPanel
             Left = 62
-            Top = -117
+            Top = 641
             Width = 339
             Height = 2
             BevelOuter = bvLowered
@@ -641,7 +640,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object pnlUnlockPassword: TPanel
             Left = 40
-            Top = -85
+            Top = 673
             Width = 361
             Height = 85
             BevelOuter = bvNone
@@ -869,7 +868,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leDealType: TLabeledEdit
             Left = 283
-            Top = -682
+            Top = 76
             Width = 80
             Height = 18
             Ctl3D = False
@@ -881,7 +880,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object pnlCalcParametersBar: TPanel
             Left = 62
-            Top = 11
+            Top = 769
             Width = 339
             Height = 2
             BevelOuter = bvLowered
@@ -889,7 +888,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leQuantityDigit: TLabeledEdit
             Left = 100
-            Top = 46
+            Top = 804
             Width = 87
             Height = 18
             EditLabel.Width = 36
@@ -901,7 +900,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object leTotalPriceDigit: TLabeledEdit
             Left = 264
-            Top = 46
+            Top = 804
             Width = 87
             Height = 18
             EditLabel.Width = 36
@@ -913,7 +912,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object udQuantity: TUpDown
             Left = 187
-            Top = 46
+            Top = 804
             Width = 16
             Height = 18
             Associate = leQuantityDigit
@@ -923,7 +922,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object udTotalPrice: TUpDown
             Left = 351
-            Top = 46
+            Top = 804
             Width = 16
             Height = 18
             Associate = leTotalPriceDigit
@@ -932,7 +931,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
           end
           object gbPM_Digit: TGroupBox
             Left = 52
-            Top = 72
+            Top = 830
             Width = 349
             Height = 73
             Caption = #20215#24046