u_cutlisthi.dfm

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

object HIForm: THIForm
  Left = 98
  Top = 98
  Width = 1007
  Height = 654
  Caption = 'Create cutting diagram using Human Intelligence '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 65
    Width = 185
    Height = 542
    Align = alLeft
    TabOrder = 0
    OnDragDrop = Panel1DragDrop
    OnDragOver = Panel1DragOver
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 999
    Height = 65
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 433
      Height = 49
      AutoSize = False
      Caption = 
        'Drag boards on left panel to Supply board images on right panel.' +
        '  Right click will rotate a board  by 90 degrees and, if in plac' +
        'e, move it back to top of left panel.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Memo1: TMemo
      Left = 32
      Top = 0
      Width = 425
      Height = 65
      Lines.Strings = (
        'Memo1')
      ScrollBars = ssVertical
      TabOrder = 5
    end
    object SnapBox: TCheckBox
      Left = 480
      Top = 40
      Width = 193
      Height = 17
      Caption = '"Snap" dropped boards up and left'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object PrintBtn: TButton
      Left = 464
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Print'
      TabOrder = 1
      OnClick = PrintBtnClick
    end
    object Closebtn: TButton
      Left = 912
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Close'
      TabOrder = 2
      OnClick = ClosebtnClick
    end
    object SaveBtn: TButton
      Left = 688
      Top = 8
      Width = 105
      Height = 25
      Caption = 'Save user solution'
      TabOrder = 3
      OnClick = SaveBtnClick
    end
    object LoadBtn: TButton
      Left = 800
      Top = 8
      Width = 105
      Height = 25
      Caption = 'Load user solution'
      TabOrder = 4
      OnClick = LoadBtnClick
    end
    object PasteBtn: TButton
      Left = 550
      Top = 8
      Width = 129
      Height = 25
      Caption = 'Paste program solution'
      TabOrder = 6
      OnClick = PasteBtnClick
    end
  end
  object ScrollBox2: TScrollBox
    Left = 185
    Top = 65
    Width = 814
    Height = 542
    Align = alClient
    TabOrder = 2
  end
  object StaticText1: TStaticText
    Left = 0
    Top = 607
    Width = 999
    Height = 20
    Cursor = crHandPoint
    Align = alBottom
    Alignment = taCenter
    Caption = 'Copyright