u_editpart.dfm

本源码为矩形体排样的程序,支持多原材料的排样.

object EditPartDlg: TEditPartDlg
  Left = 256
  Top = 112
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Edit required part'
  ClientHeight = 234
  ClientWidth = 423
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 55
    Top = 6
    Width = 306
    Height = 171
    Shape = bsFrame
    IsControl = True
  end
  object Label2: TLabel
    Left = 96
    Top = 51
    Width = 88
    Height = 13
    Caption = 'Width (vertical)'
  end
  object Label3: TLabel
    Left = 82
    Top = 79
    Width = 107
    Height = 13
    Caption = 'Length (horizontal)'
  end
  object NameLbl: TLabel
    Left = 128
    Top = 104
    Width = 58
    Height = 13
    Caption = 'Part name'
  end
  object OKBtn: TBitBtn
    Left = 106
    Top = 191
    Width = 77
    Height = 27
    TabOrder = 0
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 209
    Top = 190
    Width = 77
    Height = 27
    TabOrder = 1
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object Edit2: TEdit
    Left = 203
    Top = 47
    Width = 73
    Height = 21
    TabOrder = 2
    Text = '0.000'
    OnKeyPress = Edit2KeyPress
  end
  object Edit3: TEdit
    Left = 203
    Top = 77
    Width = 72
    Height = 21
    TabOrder = 3
    Text = '0.000'
  end
  object PartEdt: TEdit
    Left = 200
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 4
  end
  object CountPnl: TPanel
    Left = 80
    Top = 128
    Width = 209
    Height = 33
    Alignment = taLeftJustify
    TabOrder = 5
    Visible = False
    object CountLbl: TLabel
      Left = 6
      Top = 10
      Width = 106
      Height = 13
      Caption = 'How many to add?'
    end
    object Edit1: TEdit
      Left = 120
      Top = 6
      Width = 33
      Height = 21
      TabOrder = 0
      Text = '1'
    end
    object CountUD: TUpDown
      Left = 153
      Top = 6
      Width = 17
      Height = 21
      Associate = Edit1
      Min = 1
      Position = 1
      TabOrder = 1
      Wrap = False
    end
  end
end