lazarus-ccr/components/lazbarcodes/demo/main.lfm

object MainForm: TMainForm
  Left = 338
  Height = 484
  Top = 127
  Width = 811
  Caption = 'LazBarcode Demo'
  ClientHeight = 484
  ClientWidth = 811
  OnCreate = FormCreate
  object BarcodesTree: TTreeView
    Left = 6
    Height = 472
    Top = 6
    Width = 194
    Align = alLeft
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    BorderSpacing.Right = 3
    BorderSpacing.Bottom = 6
    ReadOnly = True
    TabOrder = 0
    OnChange = BarcodesTreeChange
    OnCustomDrawItem = BarcodesTreeCustomDrawItem
    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
  object Panel1: TPanel
    Left = 211
    Height = 472
    Top = 6
    Width = 594
    Align = alClient
    BorderSpacing.Left = 3
    BorderSpacing.Top = 6
    BorderSpacing.Right = 6
    BorderSpacing.Bottom = 6
    BevelOuter = bvNone
    ClientHeight = 472
    ClientWidth = 594
    TabOrder = 1
    object Panel2: TPanel
      Left = 0
      Height = 336
      Top = 0
      Width = 594
      Align = alTop
      BevelOuter = bvNone
      ClientHeight = 336
      ClientWidth = 594
      TabOrder = 0
      object lblText: TLabel
        AnchorSideLeft.Control = Panel2
        AnchorSideTop.Control = edText
        AnchorSideTop.Side = asrCenter
        Left = 0
        Height = 15
        Top = 4
        Width = 21
        Caption = 'Text'
      end
      object edText: TEdit
        AnchorSideLeft.Control = lblText
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = Panel2
        AnchorSideRight.Control = btnSampleText
        Left = 33
        Height = 23
        Top = 0
        Width = 485
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Left = 12
        BorderSpacing.Right = 4
        OnChange = edTextChange
        TabOrder = 0
        Text = '012345678'
      end
      object gbGeometry: TGroupBox
        AnchorSideLeft.Control = Panel2
        AnchorSideTop.Control = edText
        AnchorSideTop.Side = asrBottom
        Left = 0
        Height = 173
        Top = 35
        Width = 191
        AutoSize = True
        BorderSpacing.Top = 12
        Caption = 'Geometry'
        ClientHeight = 153
        ClientWidth = 187
        TabOrder = 1
        object lblScale: TLabel
          AnchorSideLeft.Control = gbGeometry
          AnchorSideTop.Control = seScale
          AnchorSideTop.Side = asrCenter
          Left = 16
          Height = 15
          Top = 50
          Width = 27
          BorderSpacing.Left = 16
          Caption = 'Scale'
          Enabled = False
        end
        object seScale: TSpinEdit
          AnchorSideLeft.Control = seWhiteSpaceWidth
          AnchorSideTop.Control = cbRecommendedSymbolSize
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbRecommendedSymbolSize
          AnchorSideRight.Side = asrBottom
          Left = 105
          Height = 23
          Top = 46
          Width = 76
          Alignment = taRightJustify
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 8
          Enabled = False
          MaxValue = 20
          OnChange = BarcodeChange
          TabOrder = 0
        end
        object seMargin: TSpinEdit
          AnchorSideLeft.Control = seWhiteSpaceWidth
          AnchorSideTop.Control = seScale
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbRecommendedSymbolSize
          AnchorSideRight.Side = asrBottom
          Left = 105
          Height = 23
          Top = 72
          Width = 76
          Alignment = taRightJustify
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 3
          Enabled = False
          MaxValue = 20
          OnChange = BarcodeChange
          TabOrder = 1
          Value = 4
        end
        object lblMargin: TLabel
          AnchorSideLeft.Control = gbGeometry
          AnchorSideTop.Control = seMargin
          AnchorSideTop.Side = asrCenter
          Left = 16
          Height = 15
          Top = 76
          Width = 38
          BorderSpacing.Left = 16
          Caption = 'Margin'
          Enabled = False
        end
        object lblWhiteSpaceWidth: TLabel
          AnchorSideLeft.Control = gbGeometry
          AnchorSideTop.Control = seWhiteSpaceWidth
          AnchorSideTop.Side = asrCenter
          Left = 16
          Height = 15
          Top = 102
          Width = 64
          BorderSpacing.Left = 16
          Caption = 'White space'
          Enabled = False
        end
        object seWhiteSpaceWidth: TSpinEdit
          AnchorSideLeft.Control = seSymbolHeight
          AnchorSideTop.Control = seMargin
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbRecommendedSymbolSize
          AnchorSideRight.Side = asrBottom
          Left = 105
          Height = 23
          Top = 98
          Width = 76
          Alignment = taRightJustify
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 3
          Enabled = False
          MaxValue = 20
          OnChange = BarcodeChange
          TabOrder = 2
          Value = 8
        end
        object lblSymbolHeight: TLabel
          AnchorSideLeft.Control = gbGeometry
          AnchorSideTop.Control = seSymbolHeight
          AnchorSideTop.Side = asrCenter
          Left = 16
          Height = 15
          Top = 128
          Width = 77
          BorderSpacing.Left = 16
          Caption = 'Symbol height'
          Enabled = False
        end
        object seSymbolHeight: TSpinEdit
          AnchorSideLeft.Control = lblSymbolHeight
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = seWhiteSpaceWidth
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = cbRecommendedSymbolSize
          AnchorSideRight.Side = asrBottom
          Left = 105
          Height = 23
          Top = 124
          Width = 76
          Alignment = taRightJustify
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 12
          BorderSpacing.Top = 3
          BorderSpacing.Bottom = 6
          Enabled = False
          MaxValue = 9999
          OnChange = BarcodeChange
          TabOrder = 3
        end
        object cbRecommendedSymbolSize: TCheckBox
          AnchorSideLeft.Control = gbGeometry
          AnchorSideTop.Control = cbAutoSize
          AnchorSideTop.Side = asrBottom
          Left = 16
          Height = 19
          Top = 19
          Width = 165
          BorderSpacing.Left = 16
          BorderSpacing.Right = 6
          Caption = 'Recommended symbol size'
          Checked = True
          OnChange = cbRecommendedSymbolSizeChange
          State = cbChecked
          TabOrder = 4
        end
        object cbAutoSize: TCheckBox
          AnchorSideLeft.Control = gbGeometry
          AnchorSideTop.Control = gbGeometry
          Left = 16
          Height = 19
          Top = 0
          Width = 68
          BorderSpacing.Left = 16
          Caption = 'Auto size'
          OnChange = cbAutoSizeChange
          TabOrder = 5
        end
      end
      object gbShow: TGroupBox
        AnchorSideLeft.Control = gbGeometry
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = gbGeometry
        Left = 207
        Height = 74
        Top = 35
        Width = 215
        AutoSize = True
        BorderSpacing.Left = 16
        Caption = 'Show...'
        ClientHeight = 54
        ClientWidth = 211
        TabOrder = 2
        object cbHumanReadableText: TCheckBox
          AnchorSideLeft.Control = gbShow
          AnchorSideTop.Control = gbShow
          Left = 16
          Height = 19
          Top = 0
          Width = 133
          BorderSpacing.Left = 16
          Caption = 'Human-readable text'
          Checked = True
          OnChange = BarcodeChange
          State = cbChecked
          TabOrder = 0
        end
        object cmbBearerBarsBox: TComboBox
          AnchorSideLeft.Control = gbShow
          AnchorSideTop.Control = cbHumanReadableText
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = btnFont
          AnchorSideRight.Side = asrBottom
          Left = 16
          Height = 23
          Top = 25
          Width = 189
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Left = 16
          BorderSpacing.Top = 6
          BorderSpacing.Bottom = 6
          Enabled = False
          ItemHeight = 15
          ItemIndex = 0
          Items.Strings = (
            'none'
            'Bearer bars'
            'Box'
          )
          OnChange = BarcodeChange
          Style = csDropDownList
          TabOrder = 2
          Text = 'none'
        end
        object btnFont: TButton
          AnchorSideLeft.Control = cbHumanReadableText
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = cbHumanReadableText
          AnchorSideTop.Side = asrCenter
          Left = 155
          Height = 25
          Top = -3
          Width = 50
          AutoSize = True
          BorderSpacing.Left = 6
          BorderSpacing.Right = 6
          Caption = 'Font'
          OnClick = btnFontClick
          TabOrder = 1
        end
      end
      object gbChecksum: TGroupBox
        AnchorSideLeft.Control = gbShow
        AnchorSideTop.Control = gbShow
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = gbShow
        AnchorSideRight.Side = asrBottom
        Left = 207
        Height = 68
        Top = 121
        Width = 215
        Anchors = [akTop, akLeft, akRight]
        AutoSize = True
        BorderSpacing.Top = 12
        Caption = 'Checksum'
        ClientHeight = 48
        ClientWidth = 211
        TabOrder = 6
        object cbAddChecksum: TCheckBox
          AnchorSideLeft.Control = gbChecksum
          AnchorSideTop.Control = gbChecksum
          Left = 16
          Height = 19
          Top = 0
          Width = 99
          BorderSpacing.Left = 16
          Caption = 'Add checksum'
          Checked = True
          OnChange = BarcodeChange
          State = cbChecked
          TabOrder = 0
        end
        object cbDisplayChecksum: TCheckBox
          AnchorSideLeft.Control = cbAddChecksum
          AnchorSideTop.Control = cbAddChecksum
          AnchorSideTop.Side = asrBottom
          Left = 16
          Height = 19
          Top = 23
          Width = 115
          BorderSpacing.Top = 4
          BorderSpacing.Bottom = 6
          Caption = 'Display checksum'
          OnChange = BarcodeChange
          TabOrder = 1
        end
      end
      object gbColors: TGroupBox
        AnchorSideLeft.Control = gbGeometry
        AnchorSideTop.Control = gbGeometry
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = gbGeometry
        AnchorSideRight.Side = asrBottom
        Left = 0
        Height = 109
        Top = 224
        Width = 191
        Anchors = [akTop, akLeft, akRight]
        AutoSize = True
        BorderSpacing.Top = 16
        Caption = 'Colors'
        ClientHeight = 89
        ClientWidth = 187
        TabOrder = 3
        object clbBackground: TColorButton
          AnchorSideLeft.Control = gbColors
          AnchorSideTop.Control = clbColor
          AnchorSideTop.Side = asrBottom
          Left = 8
          Height = 25
          Top = 29
          Width = 144
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          BorderWidth = 2
          ButtonColorAutoSize = False
          ButtonColorSize = 16
          ButtonColor = clWhite
          Caption = 'Background color'
          OnColorChanged = BarcodeChange
        end
        object clbForeground: TColorButton
          AnchorSideLeft.Control = clbBackground
          AnchorSideTop.Control = clbBackground
          AnchorSideTop.Side = asrBottom
          Left = 8
          Height = 25
          Top = 58
          Width = 144
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          BorderSpacing.Bottom = 6
          BorderWidth = 2
          ButtonColorAutoSize = False
          ButtonColorSize = 16
          ButtonColor = clBackground
          Caption = 'Foreground color'
          OnColorChanged = BarcodeChange
        end
        object clbColor: TColorButton
          AnchorSideLeft.Control = gbColors
          AnchorSideTop.Control = gbColors
          Left = 8
          Height = 25
          Top = 0
          Width = 144
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          BorderWidth = 2
          ButtonColorAutoSize = False
          ButtonColorSize = 16
          ButtonColor = clWindow
          Caption = 'Control color        '
          OnColorChanged = BarcodeChange
        end
      end
      object btnSaveToFile: TBitBtn
        AnchorSideLeft.Control = btnCopyToClipboard
        AnchorSideTop.Control = gbColors
        AnchorSideRight.Control = btnCopyToClipboard
        AnchorSideRight.Side = asrBottom
        Left = 205
        Height = 25
        Top = 233
        Width = 128
        Anchors = [akTop, akLeft, akRight]
        AutoSize = True
        BorderSpacing.Top = 9
        Caption = 'Save to file...'
        OnClick = btnSaveToFileClick
        TabOrder = 4
      end
      object btnCopyToClipboard: TBitBtn
        AnchorSideLeft.Control = gbChecksum
        AnchorSideTop.Control = btnSaveToFile
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Side = asrBottom
        Left = 205
        Height = 25
        Top = 264
        Width = 128
        AutoSize = True
        BorderSpacing.Top = 6
        Caption = 'Copy to clipboard'
        OnClick = btnCopyToClipboardClick
        TabOrder = 5
      end
      object btnSampleText: TSpeedButton
        AnchorSideTop.Control = edText
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = Panel2
        AnchorSideRight.Side = asrBottom
        Left = 522
        Height = 19
        Top = 2
        Width = 72
        Anchors = [akTop, akRight]
        AutoSize = True
        Caption = ' Sample text '
        OnClick = btnSampleTextClick
      end
      object nbOptions: TNotebook
        AnchorSideLeft.Control = gbShow
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = gbGeometry
        Left = 438
        Height = 293
        Top = 35
        Width = 152
        PageIndex = 0
        BorderSpacing.Left = 16
        TabOrder = 7
        object pgOptions_QR: TPage
          object rgQR_ECCLevel: TRadioGroup
            Left = 0
            Height = 137
            Top = 0
            Width = 152
            Align = alTop
            AutoFill = True
            Caption = 'ECC level'
            ChildSizing.LeftRightSpacing = 6
            ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
            ChildSizing.EnlargeVertical = crsHomogenousChildResize
            ChildSizing.ShrinkHorizontal = crsScaleChilds
            ChildSizing.ShrinkVertical = crsScaleChilds
            ChildSizing.Layout = cclLeftToRightThenTopToBottom
            ChildSizing.ControlsPerLine = 1
            ClientHeight = 117
            ClientWidth = 148
            ItemIndex = 0
            Items.Strings = (
              'automatic'
              'L'
              'M'
              'Q'
              'H'
            )
            OnClick = rgQR_ECCLevelClick
            TabOrder = 0
          end
        end
        object pgOptions_Plessey: TPage
          object rgPlessey_Checkchar: TRadioGroup
            Left = 0
            Height = 104
            Top = 0
            Width = 152
            Align = alTop
            AutoFill = True
            Caption = 'Checksum options'
            ChildSizing.LeftRightSpacing = 6
            ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
            ChildSizing.EnlargeVertical = crsHomogenousChildResize
            ChildSizing.ShrinkHorizontal = crsScaleChilds
            ChildSizing.ShrinkVertical = crsScaleChilds
            ChildSizing.Layout = cclLeftToRightThenTopToBottom
            ChildSizing.ControlsPerLine = 1
            ClientHeight = 104
            ClientWidth = 152
            ItemIndex = 0
            Items.Strings = (
              'mod-10'
              'mod-10 & mod-10'
              'mod-11'
              'mod-10 & mod-11'
            )
            OnClick = rgPlessey_CheckcharClick
            TabOrder = 0
          end
        end
      end
    end
    object BarcodePanel: TPanel
      Left = 0
      Height = 136
      Top = 336
      Width = 594
      Align = alClient
      BorderSpacing.InnerBorder = 6
      BevelInner = bvRaised
      BevelOuter = bvLowered
      ClientHeight = 136
      ClientWidth = 594
      TabOrder = 1
      object lblError: TLabel
        AnchorSideLeft.Control = BarcodePanel
        AnchorSideTop.Control = BarcodePanel
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = BarcodePanel
        AnchorSideRight.Side = asrBottom
        Left = 2
        Height = 15
        Top = 61
        Width = 590
        Alignment = taCenter
        Anchors = [akTop, akLeft, akRight]
        Caption = 'lblError'
        Font.Color = clRed
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
        WordWrap = True
      end
    end
  end
  object Splitter1: TSplitter
    Left = 203
    Height = 484
    Top = 0
    Width = 5
  end
  object FontDialog: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    Left = 568
    Top = 8
  end
  object SaveDialog1: TSaveDialog
    OnTypeChange = SaveDialogTypeChange
    Left = 681
    Top = 210
  end
end