u_cutlist341.dfm

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

object Form1: TForm1
  Left = 86
  Top = 52
  Width = 913
  Height = 675
  VertScrollBar.Smooth = True
  VertScrollBar.Tracking = True
  Caption = 'CutList  Version 3.4.1  '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  Visible = True
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 905
    Height = 609
    ActivePage = SetupSheet
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'Introduction'
      ImageIndex = 2
      object Memo2: TMemo
        Left = 56
        Top = 32
        Width = 705
        Height = 505
        Color = 14548991
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          
            'CutList shows how to cut a set of parts from a set of available ' +
            'stock material.'
          ''
          
            'Data may created, deleted, modified and saved to a file for late' +
            'r use.  Users can specify the width of material lost during '
          
            'cutting  (saw blade width), and the minimum dimension of waste m' +
            'aterial to report.'
          ''
          
            'Solution searches give priority to crosscuts (vertical on the sc' +
            'reen),  rip-cuts (horizontal), or a combination which '
          'maximizes the area of the largest leftover piece '
          '.'
          ''
          'Version 2.1 adds parts naming and  printing of solutions. '
          ''
          'Version 3.1 adds:'
          
            '   *  Extra supply boards are not reported in the output so extr' +
            'a or multiple size       choices for available supply may be '
          '      entered.'
          '   *  Supply boards used are labeled  in output displays.'
          
            '   *  Part dimensions are listed on output display if space perm' +
            'its.'
          
            '   *  An "Ignore grain" option will rotate parts by 90 degrees w' +
            'hile searching for       solutions if  "as specifed" fit fails.'
          
            '   *  Last project used is automatically re-opened at startup ti' +
            'me if the project file        exists.'
          
            '   *  Solution displays and printouts may be "zoomed" so that bo' +
            'ard with longest       horizontal dimension (length) is '
          
            '      display fulll usable width of the screen or page.       Th' +
            'is may result in a scrollbar or multiple print pages for solutio' +
            'n '
          '     display.'
          ''
          'Version 3.2:'
          '   *  Optional dimension displays in fractions.'
          
            '   *   Multiple page monitor and printed output diagrams for lar' +
            'ge projects.'
          ''
          'Version 3.3'
          
            '   *  Option allows users to manually layout pieces with drag/dr' +
            'op operations. ')
        ParentFont = False
        TabOrder = 0
      end
    end
    object SetupSheet: TTabSheet
      Caption = 'Setup'
      ImageIndex = 1
      OnEnter = SetupSheetEnter
      object Label1: TLabel
        Left = 7
        Top = 16
        Width = 114
        Height = 41
        AutoSize = False
        Caption = 'Parts             (Click to change)'
        WordWrap = True
      end
      object Label2: TLabel
        Left = 300
        Top = 8
        Width = 117
        Height = 49
        AutoSize = False
        Caption = 'Material pieces  (Click  to modify) (Uncheck to ignore)'
        WordWrap = True
      end
      object Label3: TLabel
        Left = 475
        Top = 40
        Width = 90
        Height = 16
        Caption = 'Leftover  pieces'
        Visible = False
      end
      object Label10: TLabel
        Left = 672
        Top = 152
        Width = 140
        Height = 13
        Caption = '(may generate multiple pages)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object CheckListBox2: TCheckListBox
        Left = 296
        Top = 62
        Width = 172
        Height = 265
        Hint = 'Left click = select item, right click =  act on item'
        OnClickCheck = CheckListBox2ClickCheck
        ItemHeight = 16
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnMouseUp = ListBoxMouseUp
      end
      object ListBox1: TListBox
        Left = 1
        Top = 62
        Width = 288
        Height = 267
        Hint = 'Left click = select item, right click =  act on item'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnMouseUp = ListBoxMouseUp
      end
      object ListBox3: TListBox
        Left = 472
        Top = 62
        Width = 161
        Height = 267
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 2
        Visible = False
      end
      object Panel2: TPanel
        Left = 0
        Top = 346
        Width = 604
        Height = 167
        Color = 14548991
        TabOrder = 3
        object Label6: TLabel
          Left = 16
          Top = 6
          Width = 121
          Height = 19
          Caption = 'File:                      '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          OnClick = Label6Click
        end
        object Label7: TLabel
          Left = 352
          Top = 55
          Width = 121
          Height = 16
          Caption = 'Solutions Found:  0  '
        end
        object Label8: TLabel
          Left = 355
          Top = 94
          Width = 116
          Height = 16
          Caption = 'Leftover Nbr Pieces:'
        end
        object Label9: TLabel
          Left = 353
          Top = 75
          Width = 153
          Height = 16
          Caption = 'Area of max leftover piece:'
        end
        object StaticText2: TStaticText
          Left = 16
          Top = 64
          Width = 184
          Height = 20
          BorderStyle = sbsSunken
          Caption = 'Cut width (Click to change) :    '
          Color = clBtnFace
          ParentColor = False
          TabOrder = 0
          OnClick = Label10Click
        end
        object StaticText3: TStaticText
          Left = 16
          Top = 104
          Width = 239
          Height = 20
          BorderStyle = sbsSunken
          Caption = 'Minimum Waste Size (Click to change): '
          Color = clBtnFace
          ParentColor = False
          TabOrder = 1
          OnClick = Minimumwastetoreport1Click
        end
      end
      object SolveGrp: TRadioGroup
        Left = 648
        Top = 24
        Width = 185
        Height = 81
        Caption = 'Solution search mode'
        Enabled = False
        ItemIndex = 2
        Items.Strings = (
          'Cross cuts (Vertical) first'
          'Rip cuts (Horizontal) first'
          'Combination')
        TabOrder = 4
      end
      object Ignoregrain: TCheckBox
        Left = 656
        Top = 112
        Width = 177
        Height = 17
        Caption = 'Ignore grain direction'
        TabOrder = 5
      end
      object Panel1: TPanel
        Left = 179
        Top = 84
        Width = 318
        Height = 186
        Color = clTeal
        TabOrder = 0
        Visible = False
        object Gauge1: TGauge
          Left = 27
          Top = 49
          Width = 100
          Height = 30
          BackColor = clAqua
          Progress = 0
        end
        object Label5: TLabel
          Left = 27
          Top = 94
          Width = 31
          Height = 16
          Caption = 'Rate:'
        end
        object Label4: TLabel
          Left = 27
          Top = 16
          Width = 70
          Height = 16
          Caption = 'Processed: '
        end
        object StopBtn: TButton
          Left = 27
          Top = 137
          Width = 89
          Height = 33
          Caption = 'Stop'
          TabOrder = 0
          OnClick = StopBtnClick
        end
      end
      object Zoombox: TCheckBox
        Left = 656
        Top = 136
        Width = 161
        Height = 17
        Caption = 'Zoom solution to page width'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = ZoomboxClick
      end
      object FormatGroup: TRadioGroup
        Left = 648
        Top = 216
        Width = 185
        Height = 121
        Caption = 'Preferred dimension format'
        ItemIndex = 1
        Items.Strings = (
          'Decimal'
          'Fractional  (64ths)'
          'Fractional (32nds)'
          'Fractional (16ths)')
        TabOrder = 8
        OnClick = FormatGroupClick
      end
      object HIBtn: TButton
        Left = 624
        Top = 344
        Width = 209
        Height = 33
        Caption = 'Arrange parts manually'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 9
        OnClick = HIBtnClick
      end
      object Memo1: TMemo
        Left = 624
        Top = 384
        Width = 209
        Height = 169
        Lines.Strings = (
          'The button above will open a form '
          'where you may drag and drop '
          'parts to the selected supply '
          'pieces.  A "Snap" checkbox will '
          'move pieces up and left as they '
          'are dropped..   When all parts '
          'have been placed, you can use '
          'the  "Print" button on that page to '
          'print your "human intelligence" '
          'solutiion.')
        TabOrder = 10
      end
      object SearchBtn: TButton
        Left = 656
        Top = 176
        Width = 169
        Height = 25
        Caption = 'Search for solution'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 11
        OnClick = SearchBtnClick
      end
    end
    object SolutionSheet: TTabSheet
      BorderWidth = 2
      Caption = 'View Solution'
      ImageIndex = 2
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 893
        Height = 574
        HorzScrollBar.Visible = False
        Align = alClient
        TabOrder = 0
        object image1: TImage
          Left = 0
          Top = 0
          Width = 889
          Height = 570
          Align = alTop
        end
      end
    end
  end
  object StaticText1: TStaticText
    Left = 0
    Top = 609
    Width = 905
    Height = 20
    Cursor = crHandPoint
    Align = alBottom
    Alignment = taCenter
    BorderStyle = sbsSunken
    Caption = 'Copyright