Преглед на файлове

各Grid大小自适应窗口

MaiXinRong преди 7 години
родител
ревизия
1e7b982540
променени са 1 файла, в които са добавени 15 реда и са изтрити 0 реда
  1. 15 0
      Forms/BatchInsertBillsFrm.dfm

+ 15 - 0
Forms/BatchInsertBillsFrm.dfm

@@ -81,6 +81,9 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
         Align = alClient
         BevelOuter = bvNone
         TabOrder = 0
+        DesignSize = (
+          480
+          194)
         object lblPostion: TLabel
           Left = 8
           Top = 8
@@ -111,12 +114,14 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
           OnCellTextChanged = zgPositionCellTextChanged
           OnCustomPaste = zgPositionCustomPaste
           OnMouseDown = zgPositionMouseDown
+          Anchors = [akLeft, akTop, akRight, akBottom]
         end
         object pnlPositionSpr: TPanel
           Left = 99
           Top = 14
           Width = 378
           Height = 2
+          Anchors = [akLeft, akTop, akRight]
           BevelInner = bvLowered
           BevelOuter = bvNone
           TabOrder = 1
@@ -130,6 +135,9 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
         Align = alBottom
         BevelOuter = bvNone
         TabOrder = 1
+        DesignSize = (
+          480
+          135)
         object lblBills: TLabel
           Left = 8
           Top = 8
@@ -160,12 +168,14 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
           FrozenRow = 0
           OnCellTextChanged = zgBillsCellTextChanged
           OnMouseDown = zgBillsMouseDown
+          Anchors = [akLeft, akTop, akRight, akBottom]
         end
         object pnlBillsSpr: TPanel
           Left = 62
           Top = 14
           Width = 414
           Height = 2
+          Anchors = [akLeft, akTop, akRight]
           BevelInner = bvLowered
           BevelOuter = bvNone
           TabOrder = 1
@@ -237,6 +247,9 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
       Align = alRight
       BevelOuter = bvNone
       TabOrder = 1
+      DesignSize = (
+        299
+        354)
       object lblDealBills: TLabel
         Left = 5
         Top = 8
@@ -266,12 +279,14 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
         FrozenCol = 0
         FrozenRow = 0
         OnMouseDown = zgDealBillsMouseDown
+        Anchors = [akLeft, akTop, akRight, akBottom]
       end
       object pnlDealBillsSpr: TPanel
         Left = 58
         Top = 14
         Width = 236
         Height = 2
+        Anchors = [akLeft, akTop, akRight]
         BevelInner = bvLowered
         BevelOuter = bvNone
         TabOrder = 1