部分弹出窗口显示控制

Forms/BGLSelectFrm.pas

@@ -104,6 +104,8 @@ end;
 procedure TBGLSelectForm.Init(AOrgBGL: TBGLSelectInfo;
   ProjectData: TObject; ABGNum: Double);
 begin
+  ClientHeight := 281;
+  ClientWidth := 475;
   FProjectData := ProjectData;
   with TProjectData(FProjectData).BillsMeasureData.BillsMeasureTree do
     FGclCode := Selected.Rec.ValueByName('B_Code').AsString;

Forms/BatchInsertBillsFrm.pas

@@ -147,6 +147,9 @@ end;
 procedure TBatchInsertBillsForm.Init(ABillsCompileData: TBillsCompileData;
   AInsertType: TInsertType);
 begin
+  ClientHeight := 382;
+  ClientWidth := 779;
+
   FBillsCompileData := ABillsCompileData;
   sgdDealBills.DataView := TProjectData(ABillsCompileData.ProjectData).DealBillsData.sdvDealBills;
   FInsertType := AInsertType;

Forms/BatchReplaceBillsFrm.dfm

@@ -1,7 +1,7 @@
 object BatchReplaceBillsForm: TBatchReplaceBillsForm
   Left = 494
   Top = 295
-  Width = 392
+  Width = 383
   Height = 249
   Caption = #25209#37327#26367#25442#28165#21333#25968#25454
   Color = clBtnFace
@@ -16,8 +16,8 @@ object BatchReplaceBillsForm: TBatchReplaceBillsForm
   object pnlBills: TPanel
     Left = 0
     Top = 92
-    Width = 384
-    Height = 93
+    Width = 375
+    Height = 96
     Align = alClient
     BevelOuter = bvNone
     TabOrder = 0
@@ -62,8 +62,8 @@ object BatchReplaceBillsForm: TBatchReplaceBillsForm
   end
   object pnlOther: TPanel
     Left = 0
-    Top = 185
-    Width = 384
+    Top = 188
+    Width = 375
     Height = 30
     Align = alBottom
     BevelOuter = bvNone
@@ -90,7 +90,7 @@ object BatchReplaceBillsForm: TBatchReplaceBillsForm
   object pnlOrgBills: TPanel
     Left = 0
     Top = 0
-    Width = 384
+    Width = 375
     Height = 92
     Align = alTop
     BevelOuter = bvNone

Forms/BatchReplaceBillsFrm.pas

@@ -95,6 +95,9 @@ end;
 
 procedure TBatchReplaceBillsForm.Init(ARec: TsdDataRecord);
 begin
+  ClientHeight := 218;
+  ClientWidth := 375;
+
   InitGrid(zgOrgBills, ARec);
   InitGrid(zgBills, ARec);
 end;

Forms/DealPayPlanFrm.dfm

@@ -13,7 +13,7 @@ object DealPayPlanForm: TDealPayPlanForm
   OldCreateOrder = False
   DesignSize = (
     403
-    256)
+    259)
   PixelsPerInch = 96
   TextHeight = 12
   object lblTitle: TLabel

Forms/DealPayPlanFrm.pas

@@ -100,6 +100,9 @@ end;
 
 procedure TDealPayPlanForm.InitForm;
 begin
+  ClientHeight := 259;
+  ClientWidth := 403;
+
   lblDealPayName.Caption := FDealPayRec.ValueByName('Name').AsString;
   lblTitle2.Left := lblDealPayName.Left + lblDealPayName.Width + 6;
   PlanType := FDealPayRec.ValueByName('PlanType').AsInteger;