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