QRFormUnit.lfm

inherited QrForm: TQrForm
  Left = 549
  Height = 358
  Top = 353
  Width = 550
  BorderStyle = bsDialog
  Caption = 'QR Code'
  ClientHeight = 358
  ClientWidth = 550
  Constraints.MinHeight = 320
  Constraints.MinWidth = 550
  Font.Height = -11
  Font.Name = 'Tahoma'
  KeyPreview = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  object pnlDetails: TPanel[0]
    Left = 0
    Height = 412
    Top = 0
    Width = 550
    Align = alClient
    BevelOuter = bvNone
    ClientHeight = 412
    ClientWidth = 550
    FullRepaint = False
    ParentBackground = False
    TabOrder = 0
    object lblEncoding: TLabel
      Left = 8
      Height = 13
      Top = 5
      Width = 43
      Caption = '&Encoding'
      FocusControl = cmbEncoding
    end
    object lblQuietZone: TLabel
      Left = 8
      Height = 13
      Top = 61
      Width = 52
      Caption = '&Quiet zone'
      FocusControl = edtQuietZone
    end
    object lblErrorCorrectionLevel: TLabel
      Left = 128
      Height = 13
      Top = 61
      Width = 100
      Caption = 'Error &correction level'
      FocusControl = cbbErrorCorrectionLevel
    end
    object lblCorner: TLabel
      Left = 8
      Height = 13
      Top = 176
      Width = 137
      Caption = 'Corner &line thickness (pixels)'
      FocusControl = edtCornerThickness
    end
    object lblDrawingMode: TLabel
      Left = 8
      Height = 13
      Top = 117
      Width = 68
      Caption = '&Drawing mode'
      FocusControl = cbbDrawingMode
    end
    object cmbEncoding: TComboBox
      Left = 8
      Height = 21
      Top = 24
      Width = 265
      ItemHeight = 13
      ItemIndex = 0
      Items.Strings = (
        'Auto'
        'Numeric'
        'Alphanumeric'
        'ISO-8859-1'
        'UTF-8 without BOM'
        'UTF-8 with BOM'
        'URL encoding'
        'Windows-1251'
      )
      Style = csDropDownList
      TabOrder = 1
      Text = 'Auto'
      OnChange = cmbEncodingChange
      OnDrawItem = cmbEncodingDrawItem
      OnMeasureItem = cmbEncodingMeasureItem
    end
    object edtQuietZone: TEdit
      Left = 8
      Height = 21
      Top = 80
      Width = 73
      TabOrder = 2
      Text = '4'
      OnChange = cmbEncodingChange
    end
    object cbbErrorCorrectionLevel: TComboBox
      Left = 128
      Height = 21
      Top = 80
      Width = 145
      ItemHeight = 13
      Items.Strings = (
        'L ~7% correction'
        'M ~15% correction'
        'Q ~25% correction'
        'H ~30% correction'
      )
      Style = csDropDownList
      TabOrder = 4
      OnChange = cmbEncodingChange
    end
    object edtCornerThickness: TEdit
      Left = 168
      Height = 21
      Top = 172
      Width = 49
      TabOrder = 6
      Text = '0'
      OnChange = clrbxBackgroundChange
    end
    object udCornerThickness: TUpDown
      Left = 217
      Height = 21
      Top = 172
      Width = 16
      Associate = edtCornerThickness
      Min = 0
      Position = 0
      TabOrder = 7
    end
    object udQuietZone: TUpDown
      Left = 81
      Height = 21
      Top = 80
      Width = 16
      Associate = edtQuietZone
      Min = 0
      Position = 4
      TabOrder = 3
    end
    object grpSaveToFile: TGroupBox
      Left = 8
      Height = 130
      Top = 208
      Width = 265
      Caption = '&Save / Copy'
      ClientHeight = 112
      ClientWidth = 261
      ParentBackground = False
      TabOrder = 8
      object lblScaleToSave: TLabel
        Left = 8
        Height = 13
        Top = 16
        Width = 76
        Caption = 'Dot size (pixels)'
        FocusControl = edtScaleToSave
      end
      object edtFileName: TEdit
        Left = 8
        Height = 21
        Top = 48
        Width = 193
        ReadOnly = True
        TabOrder = 2
      end
      object btnSaveToFile: TButton
        Left = 200
        Height = 21
        Top = 47
        Width = 51
        Caption = 'Save...'
        TabOrder = 3
        OnClick = btnSaveToFileClick
      end
      object edtScaleToSave: TEdit
        Left = 112
        Height = 21
        Top = 12
        Width = 49
        TabOrder = 0
        Text = '10'
      end
      object udScaleToSave: TUpDown
        Left = 161
        Height = 21
        Top = 12
        Width = 16
        Associate = edtScaleToSave
        Min = 1
        Position = 10
        TabOrder = 1
      end
      object btnCopy: TButton
        Left = 8
        Height = 25
        Top = 80
        Width = 249
        Caption = 'C&opy Bitmap to Clipboard'
        TabOrder = 4
        OnClick = btnCopyClick
      end
    end
    object cbbDrawingMode: TComboBox
      Left = 8
      Height = 21
      Top = 136
      Width = 265
      ItemHeight = 13
      Items.Strings = (
        'Bitmap proportional'
        'Bitmap non-proportional'
        'Vector: rectangles proportional'
        'Vector: rectangles non-proportional'
        'Vector: region proportional'
        'Vector: region non-proportional'
      )
      Style = csDropDownList
      TabOrder = 5
      OnChange = cbbDrawingModeChange
    end
    object pgcQRDetails: TPageControl
      Left = 296
      Height = 289
      Top = 5
      Width = 233
      ActivePage = tsPreview
      TabIndex = 0
      TabOrder = 0
      OnChange = pgcQRDetailsChange
      object tsPreview: TTabSheet
        Caption = '&Preview'
        ClientHeight = 263
        ClientWidth = 225
        object pbPreview: TPaintBox
          Left = 0
          Height = 189
          Top = 0
          Width = 225
          Align = alClient
          OnClick = pbPreviewClick
          OnMouseEnter = pbPreviewMouseEnter
          OnMouseLeave = pbPreviewMouseLeave
          OnPaint = pbPreviewPaint
        end
        object lblQRMetrics: TLabel
          Left = 0
          Height = 13
          Top = 189
          Width = 225
          Align = alBottom
          Alignment = taCenter
          Caption = 'lblQRMetrics'
        end
        object pnlColors: TPanel
          Left = 0
          Height = 61
          Top = 202
          Width = 225
          Align = alBottom
          BevelOuter = bvNone
          ClientHeight = 61
          ClientWidth = 225
          ParentBackground = False
          TabOrder = 0
          object bvlColors: TBevel
            Left = 0
            Height = 9
            Top = 0
            Width = 225
            Align = alTop
            Shape = bsBottomLine
          end
          object lblBackground: TLabel
            Left = 8
            Height = 13
            Top = 16
            Width = 56
            Caption = '&Background'
            FocusControl = clrbxBackground
          end
          object lblForeground: TLabel
            Left = 8
            Height = 13
            Top = 40
            Width = 56
            Caption = '&Foreground'
            FocusControl = clrbxForeground
          end
          object clrbxBackground: TColorBox
            Left = 80
            Height = 28
            Top = 11
            Width = 137
            DefaultColorColor = clWhite
            Selected = clWhite
            Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
            ItemHeight = 20
            OnChange = clrbxBackgroundChange
            TabOrder = 0
          end
          object clrbxForeground: TColorBox
            Left = 80
            Height = 28
            Top = 35
            Width = 137
            Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
            ItemHeight = 20
            OnChange = clrbxBackgroundChange
            TabOrder = 1
          end
        end
      end
      object tsEncodedData: TTabSheet
        Caption = 'E&ncoded Data'
        ClientHeight = 263
        ClientWidth = 225
        ImageIndex = 1
        object mmoEncodedData: TMemo
          Left = 0
          Height = 263
          Top = 0
          Width = 225
          Align = alClient
          BorderStyle = bsNone
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
  end
  object dlgSaveToFile: TSaveDialog[1]
    Filter = 'Bitmap (*.bmp)|*.bmp|Metfile (*.emf)|*.emf|JPEG (*.jpeg; *.jpg)|*.jpeg;*.jpg'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing, ofDontAddToRecent]
    Left = 328
    Top = 288
  end
end