PC World 2000 March/PCWorld_2000-03_cd.bin/Software/Servis/Grapap/GraphPap.exe/0/RCDATA/TWINMAIN/TWINMAIN.txt

Text File | 2000-01-03 | 73.1 KB | 2,990 lines

object WinMain: TWinMain
  Left = 16
  Top = 58
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Graph paper printer 4.00'
  ClientHeight = 543
  ClientWidth = 754
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PanelDiagram: TPanel
    Left = 425
    Top = 0
    Width = 329
    Height = 334
    TabOrder = 1
    object LblKind: TLabel
      Left = 38
      Top = 35
      Width = 66
      Height = 13
      Caption = '&Type of paper'
    end
    object Shape5: TShape
      Left = 1
      Top = 1
      Width = 327
      Height = 20
      Align = alTop
      Brush.Color = clNavy
    end
    object Label26: TLabel
      Left = 144
      Top = 3
      Width = 40
      Height = 13
      Caption = 'Design'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object BtKeepPerso: TButton
      Left = 96
      Top = 296
      Width = 138
      Height = 25
      Caption = 'Keep as personal paper'
      TabOrder = 0
      TabStop = False
      OnClick = BtKeepPersoClick
    end
    object BtYesEditPerso: TButton
      Left = 16
      Top = 296
      Width = 145
      Height = 25
      Caption = '&Yes, keep new parameters'
      TabOrder = 1
      TabStop = False
      Visible = False
      OnClick = BtOKCancelEditPersoClick
    end
    object BtNoEditPerso: TButton
      Tag = 1
      Left = 168
      Top = 296
      Width = 145
      Height = 25
      Caption = '&No, reset old parameters'
      TabOrder = 2
      TabStop = False
      Visible = False
      OnClick = BtOKCancelEditPersoClick
    end
  end
  object PanelPol: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 3
    Visible = False
    object GBAngles: TGroupBox
      Left = 169
      Top = 12
      Width = 148
      Height = 60
      Caption = ' Polar scale'
      TabOrder = 1
      object Label18: TLabel
        Left = 7
        Top = 25
        Width = 42
        Height = 13
        Caption = 'Divisions'
      end
      object CBAngle: TComboBox
        Left = 56
        Top = 22
        Width = 83
        Height = 21
        Style = csDropDownList
        DropDownCount = 12
        ItemHeight = 13
        Items.Strings = (
          '5 degrees'
          '6 degrees'
          '9 degrees'
          '10 degrees'
          '15 degrees'
          '30 degrees'
          '45 degrees'
          '60 degrees'
          '90 degrees'
          '120 degrees'
          '180 degrees'
          'Absent')
        TabOrder = 0
        OnChange = RefreshPreview
      end
    end
    object GBIncreasingGrad: TGroupBox
      Left = 170
      Top = 78
      Width = 147
      Height = 59
      Caption = ' Increasing graduations '
      TabOrder = 2
      object RBCenterToOut: TRadioButton
        Left = 20
        Top = 16
        Width = 113
        Height = 17
        Caption = 'Center to outside'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RefreshPreview
      end
      object RBOutToCenter: TRadioButton
        Tag = 1
        Left = 20
        Top = 36
        Width = 113
        Height = 17
        Caption = 'Outside to center'
        TabOrder = 1
        OnClick = RefreshPreview
      end
    end
    object GroupBox3: TGroupBox
      Left = 8
      Top = 12
      Width = 153
      Height = 125
      Caption = ' Radial scale '
      TabOrder = 0
      object Label16: TLabel
        Left = 4
        Top = 30
        Width = 27
        Height = 13
        Caption = 'Scale'
      end
      object Label17: TLabel
        Left = 4
        Top = 66
        Width = 42
        Height = 13
        Caption = 'Divisions'
      end
      object CBRScale: TComboBox
        Tag = 2
        Left = 50
        Top = 25
        Width = 95
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        ItemHeight = 13
        TabOrder = 0
        OnChange = CBRadScaleChange
      end
      object CBRDiv: TComboBox
        Tag = 2
        Left = 50
        Top = 63
        Width = 95
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        OnChange = RefreshPreview
      end
      object CBSubdivPol: TCheckBox
        Tag = 1
        Left = 35
        Top = 97
        Width = 83
        Height = 17
        Caption = 'Sub-divisions'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = CBSubdivClick
      end
      object EditRDiv: TEdit
        Tag = 2
        Left = 50
        Top = 63
        Width = 44
        Height = 21
        MaxLength = 3
        TabOrder = 2
        Text = '10'
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyRDiv: TButton
        Tag = 2
        Left = 102
        Top = 64
        Width = 41
        Height = 21
        Caption = 'Apply'
        TabOrder = 3
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
  end
  object PanelCustom: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 4
    Visible = False
    object Label8: TLabel
      Left = 18
      Top = 38
      Width = 121
      Height = 13
      Caption = 'Space between light lines'
    end
    object Label11: TLabel
      Left = 18
      Top = 64
      Width = 113
      Height = 13
      Caption = 'One medium line  every '
    end
    object Label12: TLabel
      Left = 18
      Top = 90
      Width = 103
      Height = 13
      Caption = 'One heavy line every '
    end
    object Label13: TLabel
      Left = 253
      Top = 66
      Width = 38
      Height = 13
      Caption = 'light line'
    end
    object Label14: TLabel
      Left = 253
      Top = 91
      Width = 55
      Height = 13
      Caption = 'medium line'
    end
    object Label9: TLabel
      Left = 145
      Top = 15
      Width = 35
      Height = 13
      Caption = 'Vertical'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LblUMeasureSpaceCust: TLabel
      Left = 253
      Top = 38
      Width = 19
      Height = 13
      Caption = 'Unit'
    end
    object Label15: TLabel
      Left = 197
      Top = 15
      Width = 47
      Height = 13
      Caption = 'Horizontal'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 7
      Top = 6
      Width = 312
      Height = 143
      Shape = bsFrame
    end
    object EditXSpace: TEdit
      Tag = 8
      Left = 144
      Top = 34
      Width = 48
      Height = 21
      MaxLength = 8
      TabOrder = 0
      Text = '0.2'
      OnKeyPress = EditDiagramKeyPress
    end
    object EditYSpace: TEdit
      Tag = 9
      Left = 199
      Top = 34
      Width = 48
      Height = 21
      MaxLength = 8
      TabOrder = 3
      Text = '0.3'
      OnKeyPress = EditDiagramKeyPress
    end
    object EditFMedX: TEdit
      Tag = 18
      Left = 144
      Top = 61
      Width = 48
      Height = 21
      MaxLength = 3
      TabOrder = 1
      Text = '2'
      OnKeyPress = EditDiagramKeyPress
    end
    object EditFThickX: TEdit
      Tag = 19
      Left = 144
      Top = 87
      Width = 48
      Height = 21
      MaxLength = 3
      TabOrder = 2
      Text = '2'
      OnKeyPress = EditDiagramKeyPress
    end
    object EditFMedY: TEdit
      Tag = 20
      Left = 199
      Top = 61
      Width = 48
      Height = 21
      MaxLength = 3
      TabOrder = 4
      Text = '4'
      OnKeyPress = EditDiagramKeyPress
    end
    object EditFThickY: TEdit
      Tag = 21
      Left = 199
      Top = 87
      Width = 48
      Height = 21
      MaxLength = 3
      TabOrder = 5
      Text = '2'
      OnKeyPress = EditDiagramKeyPress
    end
    object BtApplyCustom: TButton
      Tag = 8
      Left = 145
      Top = 115
      Width = 103
      Height = 21
      Caption = 'Apply'
      TabOrder = 6
      TabStop = False
      OnClick = BtApplyDiagramClick
    end
  end
  object PanelclGrid: TPanel
    Left = 426
    Top = 212
    Width = 326
    Height = 72
    BevelOuter = bvNone
    TabOrder = 20
    Visible = False
    object GroupBox4: TGroupBox
      Left = 7
      Top = 2
      Width = 312
      Height = 68
      Caption = ' Lines '
      TabOrder = 0
      object LblEpaisseurTrait: TLabel
        Left = 11
        Top = 29
        Width = 28
        Height = 13
        Caption = 'Width'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 11
        Top = 46
        Width = 24
        Height = 13
        Caption = 'Color'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 63
        Top = 11
        Width = 31
        Height = 13
        Caption = 'Heavy'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
      end
      object LblEpBig: TLabel
        Left = 61
        Top = 29
        Width = 30
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '3'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Shape1: TShape
        Left = 67
        Top = 48
        Width = 20
        Height = 10
        Shape = stEllipse
      end
      object Label10: TLabel
        Left = 108
        Top = 11
        Width = 37
        Height = 13
        Caption = 'Medium'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
      end
      object LblEpMiddle: TLabel
        Left = 108
        Top = 29
        Width = 30
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '2'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Shape2: TShape
        Left = 115
        Top = 48
        Width = 20
        Height = 10
        Shape = stEllipse
      end
      object Label21: TLabel
        Left = 156
        Top = 11
        Width = 23
        Height = 13
        Caption = 'Light'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
      end
      object LblEpSmall: TLabel
        Left = 152
        Top = 29
        Width = 30
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Shape3: TShape
        Left = 158
        Top = 48
        Width = 20
        Height = 10
        Shape = stEllipse
      end
      object PanelclSubdiv: TPanel
        Left = 184
        Top = 9
        Width = 66
        Height = 50
        BevelOuter = bvNone
        TabOrder = 0
        Visible = False
        object Label25: TLabel
          Left = 3
          Top = 1
          Width = 59
          Height = 13
          Caption = 'Subdivisions'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
        end
        object Shape4: TShape
          Left = 23
          Top = 38
          Width = 20
          Height = 10
          Shape = stEllipse
        end
        object PBoxSubdiv: TPaintBox
          Left = 3
          Top = 26
          Width = 59
          Height = 2
          Color = clWhite
          ParentColor = False
          OnPaint = PBoxSubdivPaint
        end
      end
      object BtChangeColorGrid: TButton
        Left = 255
        Top = 23
        Width = 48
        Height = 24
        Hint = 'color and width of lines'
        Caption = 'Ch&ange'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BtChangeColorClick
      end
    end
  end
  object PanelPerso: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 271
    BevelOuter = bvNone
    TabOrder = 18
    Visible = False
    object LbPerso: TListBox
      Left = 0
      Top = 0
      Width = 224
      Height = 271
      Align = alLeft
      ItemHeight = 13
      TabOrder = 0
      OnClick = LbPersoClick
      OnDblClick = BtEditPersoClick
      OnKeyDown = LbPersoKeyDown
    end
    object BtDeletePerso: TButton
      Left = 244
      Top = 145
      Width = 66
      Height = 25
      Caption = '&Delete'
      TabOrder = 1
      TabStop = False
      OnClick = BtDeletePersoClick
    end
    object BtEditPerso: TButton
      Left = 244
      Top = 57
      Width = 66
      Height = 25
      Caption = '&Edit'
      TabOrder = 2
      TabStop = False
      OnClick = BtEditPersoClick
    end
    object BtRenamePerso: TButton
      Left = 244
      Top = 101
      Width = 66
      Height = 25
      Caption = '&Rename'
      TabOrder = 3
      TabStop = False
      OnClick = BtRenamePersoClick
    end
    object BtSortPerso: TButton
      Left = 244
      Top = 189
      Width = 66
      Height = 25
      Caption = 'S&ort'
      TabOrder = 4
      TabStop = False
      OnClick = BtSortPersoClick
    end
  end
  object PanelPreview: TPanel
    Left = 0
    Top = 0
    Width = 425
    Height = 409
    BorderWidth = 1
    Caption = 'PanelPreview'
    TabOrder = 25
    object Shape6: TShape
      Left = 2
      Top = 2
      Width = 421
      Height = 20
      Align = alTop
      Brush.Color = clNavy
    end
    object LblPreview: TLabel
      Left = 90
      Top = 4
      Width = 246
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object ScrollBox: TScrollBox
      Left = 78
      Top = 65
      Width = 208
      Height = 271
      HorzScrollBar.Tracking = True
      VertScrollBar.Tracking = True
      BorderStyle = bsNone
      Color = clWhite
      ParentColor = False
      TabOrder = 0
      object Feuille: TPanel
        Left = 0
        Top = 0
        Width = 208
        Height = 271
        BevelOuter = bvNone
        Color = clWhite
        TabOrder = 0
        object PBox: TPaintBox
          Left = 0
          Top = 0
          Width = 208
          Height = 271
          Align = alClient
          Color = clSilver
          ParentColor = False
          OnMouseDown = PBoxMouseDown
          OnMouseMove = PBoxMouseMove
          OnMouseUp = PBoxMouseUp
          OnPaint = PBoxPaint
        end
      end
    end
  end
  object PanelSizePosition: TPanel
    Left = 0
    Top = 409
    Width = 425
    Height = 134
    TabOrder = 0
    object Shape7: TShape
      Left = 1
      Top = 1
      Width = 423
      Height = 20
      Align = alTop
      Brush.Color = clNavy
    end
    object Label27: TLabel
      Left = 192
      Top = 3
      Width = 41
      Height = 13
      Caption = 'Outline'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object BtCenterV: TButton
      Left = 307
      Top = 31
      Width = 96
      Height = 19
      Hint = 'diagram in the center of the page'
      Caption = 'Center vertically'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      TabStop = False
      OnClick = BtCenterVClick
    end
    object BtCenterH: TButton
      Left = 307
      Top = 55
      Width = 96
      Height = 19
      Hint = 'diagram in the center of the page'
      Caption = 'Center horizontally'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      TabStop = False
      OnClick = BtCenterHClick
    end
    object BtFullPaper: TButton
      Left = 307
      Top = 80
      Width = 96
      Height = 19
      Hint = 'no margins'
      Caption = 'Full paper'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      TabStop = False
      OnClick = BtFullPaperClick
    end
    object GBMargins: TGroupBox
      Left = 19
      Top = 25
      Width = 125
      Height = 100
      Caption = ' Margins '
      TabOrder = 0
      object Label28: TLabel
        Left = 16
        Top = 46
        Width = 33
        Height = 13
        Caption = 'Bottom'
        FocusControl = EditBMargin
      end
      object Label29: TLabel
        Left = 16
        Top = 21
        Width = 21
        Height = 13
        Caption = 'Left '
        FocusControl = EditLMargin
      end
      object EditBMargin: TEdit
        Left = 64
        Top = 45
        Width = 49
        Height = 21
        TabOrder = 1
        OnKeyPress = EditFormatKeyPress
      end
      object EditLMargin: TEdit
        Left = 64
        Top = 18
        Width = 49
        Height = 21
        TabOrder = 0
        OnKeyPress = EditFormatKeyPress
      end
      object BtApplyMargins: TBitBtn
        Left = 37
        Top = 73
        Width = 50
        Height = 19
        Caption = 'Apply'
        TabOrder = 2
        TabStop = False
        OnClick = BtApplyMarginsClick
      end
    end
    object BtStdSize: TButton
      Left = 307
      Top = 104
      Width = 96
      Height = 19
      Hint = 'default margins'
      Caption = 'Standard margins'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      TabStop = False
      OnClick = BtStdSizeClick
    end
    object GBDiametre: TGroupBox
      Tag = 1
      Left = 162
      Top = 25
      Width = 125
      Height = 100
      Caption = '  Size '
      TabOrder = 2
      Visible = False
      object LblDiam: TLabel
        Left = 10
        Top = 35
        Width = 42
        Height = 13
        Caption = 'Diameter'
        FocusControl = EditDiam
      end
      object EditDiam: TEdit
        Tag = 1
        Left = 60
        Top = 32
        Width = 49
        Height = 21
        TabOrder = 0
        OnKeyPress = EditFormatKeyPress
      end
      object BtApplyDiametre: TBitBtn
        Tag = 1
        Left = 37
        Top = 68
        Width = 50
        Height = 19
        Caption = 'Apply'
        TabOrder = 1
        TabStop = False
        OnClick = BtApplyLargHautClick
      end
    end
    object GBCote: TGroupBox
      Tag = 3
      Left = 162
      Top = 25
      Width = 125
      Height = 100
      Caption = '  Size '
      TabOrder = 3
      Visible = False
      object Label33: TLabel
        Left = 5
        Top = 33
        Width = 53
        Height = 13
        Caption = 'Side length'
        FocusControl = EditCote
      end
      object EditCote: TEdit
        Tag = 1
        Left = 64
        Top = 30
        Width = 49
        Height = 21
        TabOrder = 0
        OnKeyPress = EditFormatKeyPress
      end
      object BtApplyCote: TBitBtn
        Tag = 3
        Left = 37
        Top = 65
        Width = 50
        Height = 19
        Caption = 'Apply'
        TabOrder = 1
        TabStop = False
        OnClick = BtApplyLargHautClick
      end
    end
    object GBLargHaut: TGroupBox
      Left = 162
      Top = 25
      Width = 125
      Height = 100
      Caption = ' Size '
      DragKind = dkDock
      TabOrder = 1
      Visible = False
      object LblWidth: TLabel
        Left = 11
        Top = 20
        Width = 28
        Height = 13
        Caption = 'Width'
        FocusControl = EditWidth
      end
      object LblHeight: TLabel
        Left = 11
        Top = 47
        Width = 31
        Height = 13
        Caption = 'Height'
        FocusControl = EditHeight
      end
      object EditWidth: TEdit
        Tag = 1
        Left = 56
        Top = 17
        Width = 49
        Height = 21
        TabOrder = 0
        OnKeyPress = EditFormatKeyPress
      end
      object EditHeight: TEdit
        Tag = 1
        Left = 56
        Top = 44
        Width = 49
        Height = 21
        TabOrder = 1
        OnKeyPress = EditFormatKeyPress
      end
      object BtApplyLargHaut: TBitBtn
        Left = 37
        Top = 73
        Width = 50
        Height = 19
        Caption = 'Apply'
        TabOrder = 2
        TabStop = False
        OnClick = BtApplyLargHautClick
      end
    end
  end
  object PanelGeneral: TPanel
    Left = 425
    Top = 431
    Width = 329
    Height = 112
    TabOrder = 24
    object Shape12: TShape
      Left = 1
      Top = 1
      Width = 327
      Height = 20
      Align = alTop
      Brush.Color = clNavy
    end
    object Label30: TLabel
      Left = 141
      Top = 4
      Width = 45
      Height = 13
      Caption = 'General'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object BtLoupe: TSpeedButton
      Left = 13
      Top = 34
      Width = 43
      Height = 62
      AllowAllUp = True
      GroupIndex = 2
      Caption = 'Zoom'
      Glyph.Data = {
        76090000424D7609000000000000760000002800000080000000240000000100
        0400000000000009000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FF8800FFFFFFFFFFFFFFFFFFFFFFFFFFFF8800FFFFFFFFFFFFFFFFFFFFFFFFFF
        FF8800FFFFFFFFFFFFFFFFFFFFFFFFFFFF8800FFFFFFFFFFFFFFFFFFFFFFFFFF
        F888000FFFFFFFFFFFFFFFFFFFFFFFFFF888000FFFFFFFFFFFFFFFFFFFFFFFFF
        F888000FFFFFFFFFFFFFFFFFFFFFFFFFF888000FFFFFFFFFFFFFFFFFFFFFFFFF
        F880000FFFFFFFFFFFFFFFFFFFFFFFFFF880000FFFFFFFFFFFFFFFFFFFFFFFFF
        F880000FFFFFFFFFFFFFFFFFFFFFFFFFF880000FFFFFFFFFFFFFFFFFFFFFFFFF
        F808800FFFFFFFFFFFFFFFFFFFFFFFFFF808800FFFFFFFFFFFFFFFFFFFFFFFFF
        F808800FFFFFFFFFFFFFFFFFFFFFFFFFF808800FFFFFFFFFFFFFFFFFFFFFFFFF
        88808000FFFFFFFFFFFFFFFFFFFFFFFF88808000FFFFFFFFFFFFFFFFFFFFFFFF
        88808000FFFFFFFFFFFFFFFFFFFFFFFF88808000FFFFFFFFFFFFFFFFFFFFFFFF
        88080000FFFFFFFFFFFFFFFFFFFFFFFF88080000FFFFFFFFFFFFFFFFFFFFFFFF
        88080000FFFFFFFFFFFFFFFFFFFFFFFF88080000FFFFFFFFFFFFFFFFFFFFFFFF
        88808000FFFFFFFFFFFFFFFFFFFFFFFF88808000FFFFFFFFFFFFFFFFFFFFFFFF
        88808000FFFFFFFFFFFFFFFFFFFFFFFF88808000FFFFFFFFFFFFFFFFFFFFFFFF
        88800000FFFFFFFFFFFFFFFFFFFFFFFF88800000FFFFFFFFFFFFFFFFFFFFFFFF
        88800000FFFFFFFFFFFFFFFFFFFFFFFF88800000FFFFFFFFFFFFFFFFFFFFFFFF
        88080000FFFFFFFFFFFFFFFFFFFFFFFF88080000FFFFFFFFFFFFFFFFFFFFFFFF
        88080000FFFFFFFFFFFFFFFFFFFFFFFF88080000FFFFFFFFFFFFFFFFFFFFFFFF
        88880800FFFFFFFFFFFFFFFFFFFFFFFF88880800FFFFFFFFFFFFFFFFFFFFFFFF
        88880800FFFFFFFFFFFFFFFFFFFFFFFF88880800FFFFFFFFFFFFFFFFFFFFFFFF
        F880000FFFFFFFFFFFFFFFFFFFFFFFFFF880000FFFFFFFFFFFFFFFFFFFFFFFFF
        F880000FFFFFFFFFFFFFFFFFFFFFFFFFF880000FFFFFFFFFFFFFFFFFFFFFFFFF
        F808000FFFFFFFFFFFFFFFFFFFFFFFFFF808000FFFFFFFFFFFFFFFFFFFFFFFFF
        F808000FFFFFFFFFFFFFFFFFFFFFFFFFF808000FFFFFFFFFFFFFFFFFFFFFFFFF
        F880800FFFFFFFFFFFFFFFFFFFFFFFFFF880800FFFFFFFFFFFFFFFFFFFFFFFFF
        F880800FFFFFFFFFFFFFFFFFFFFFFFFFF880800FFFFFFFFFFFFFFFFFFFFFFFFF
        F808000FFFFFFFFFFFFFFFFFFFFFFFFFF808000FFFFFFFFFFFFFFFFFFFFFFFFF
        F808000FFFFFFFFFFFFFFFFFFFFFFFFFF808000FFFFFFFFFFFFFFFFFFFFFFFFF
        FF8800FFFFFFFFFFFFFFFFFFFFFFFFFFFF8800FFFFFFFFFFFFFFFFFFFFFFFFFF
        FF8800FFFFFFFFFFFFFFFFFFFFFFFFFFFF8800FFFFFFFFFFFFFFFFFFFFFFFFFF
        FF8080FFFFFFFFFFFFFFFFFFFFFFFFFFFF8080FFFFFFFFFFFFFFFFFFFFFFFFFF
        FF8080FFFFFFFFFFFFFFFFFFFFFFFFFFFF8080FFFFFFFFFFFFFFFFFFFFFFFFFF
        FF8800FFFFFFFFFFFFFFFFFFFFFFFFFFFF8800FFFFFFFFFFFFFFFFFFFFFFFFFF
        FF8800FFFFFFFFFFFFFFFFFFFFFFFFFFFF8800FFFFFFFFFFFFFFFFFFFFFFFFFF
        F888000FFFFFFFFFFFFFFFFFFFFFFFFFF888000FFFFFFFFFFFFFFFFFFFFFFFFF
        F888000FFFFFFFFFFFFFFFFFFFFFFFFFF888000FFFFFFFFFFFFFFFFFFFFFFFFF
        08000000FFFFFFFFFFFFFFFFFFFFFFFF08000000FFFFFFFFFFFFFFFFFFFFFFFF
        08000000FFFFFFFFFFFFFFFFFFFFFFFF08000000FFFFFFFFFFFFFFFFFFFFF880
        00000000000FFFFFFFFFFFFFFFFFF88000000000000FFFFFFFFFFFFFFFFFF880
        00000000000FFFFFFFFFFFFFFFFFF88000000000000FFFFFFFFFFFFFFFF80000
        EEEEEEEE88800FFFFFFFFFFFFFF800009999999988800FFFFFFFFFFFFFF80000
        9999999988800FFFFFFFFFFFFFF800009999999988800FFFFFFFFFFFFF000EEE
        EEEEEEEEEEE800FFFFFFFFFFFF00099999999999999800FFFFFFFFFFFF000999
        99999999999800FFFFFFFFFFFF00099999999999999800FFFFFFFFFFF000EEEE
        EEEEEEEEEEEE800FFFFFFFFFF0009999999999999999800FFFFFFFFFF0009999
        999999999999800FFFFFFFFFF0009999999999999999800FFFFFFFFFF00EEEEE
        EEEEEEEEEEEEE80FFFFFFFFFF0099999999999999999980FFFFFFFFFF0099999
        999999999999980FFFFFFFFFF0099999999999999999980FFFFFFFFF80EEEEEE
        EEEEEEEEEEEEEE00FFFFFFFF809999999999999999999900FFFFFFFF80999999
        9999999999999900FFFFFFFF809999999999999999999900FFFFFFFF80EEEEEE
        EEEEEEEEEEEEEE80FFFFFFFF809999999999999999999980FFFFFFFF80999999
        9999999999999980FFFFFFFF809999999999999999999980FFFFFFFF80EEEEEE
        EEEEEEEEEEEEEE80FFFFFFFF809999999999999999999980FFFFFFFF80999999
        9999999999999980FFFFFFFF809999999999999999999980FFFFFFFF80EEEEEE
        EEEEEEEEEEEEEE80FFFFFFFF809999999999999999999980FFFFFFFF80999999
        9999999999999980FFFFFFFF809999999999999999999980FFFFFFFF80EEEEEE
        EEEEEEEEEEEEEE80FFFFFFFF809999999999999999999980FFFFFFFF80999999
        9999999999999980FFFFFFFF809999999999999999999980FFFFFFFFF00EEEEE
        EEEEEEEEEEEEE80FFFFFFFFFF0099999999999999999980FFFFFFFFFF0099999
        999999999999980FFFFFFFFFF0099999999999999999980FFFFFFFFFF800EEEE
        EEEEEEEEEEEE800FFFFFFFFFF8009999999999999999800FFFFFFFFFF8009999
        999999999999800FFFFFFFFFF8009999999999999999800FFFFFFFFFFF800EEE
        EEEEEEEEEEE800FFFFFFFFFFFF80099999999999999800FFFFFFFFFFFF800999
        99999999999800FFFFFFFFFFFF80099999999999999800FFFFFFFFFFFFF800EE
        EEEEEEEEEE800FFFFFFFFFFFFFF800999999999999800FFFFFFFFFFFFFF80099
        9999999999800FFFFFFFFFFFFFF800999999999999800FFFFFFFFFFFFFFF8880
        0EEEEEE08000FFFFFFFFFFFFFFFF8880099999908000FFFFFFFFFFFFFFFF8880
        099999908000FFFFFFFFFFFFFFFF8880099999908000FFFFFFFFFFFFFFFFFF80
        0080000000FFFFFFFFFFFFFFFFFFFF800080000000FFFFFFFFFFFFFFFFFFFF80
        0080000000FFFFFFFFFFFFFFFFFFFF800080000000FFFFFFFFFFFFFFFFFFFFFF
        F800000FFFFFFFFFFFFFFFFFFFFFFFFFF800000FFFFFFFFFFFFFFFFFFFFFFFFF
        F800000FFFFFFFFFFFFFFFFFFFFFFFFFF800000FFFFFFFFFFFFF}
      Layout = blGlyphTop
      NumGlyphs = 4
      OnClick = BtLoupeClick
    end
    object BtAbout: TButton
      Left = 157
      Top = 71
      Width = 72
      Height = 28
      Caption = 'A&bout'
      TabOrder = 0
      TabStop = False
      OnClick = BtAboutClick
    end
    object BtHelp: TBitBtn
      Left = 242
      Top = 31
      Width = 72
      Height = 28
      TabOrder = 1
      TabStop = False
      OnClick = BtHelpClick
      Kind = bkHelp
    end
    object BtSetup: TButton
      Left = 157
      Top = 31
      Width = 72
      Height = 28
      Hint = 'on the desktop or in the start menu'
      Caption = 'Shortcuts'
      TabOrder = 2
      TabStop = False
      OnClick = BtSetupClick
    end
    object BtExit: TBitBtn
      Left = 242
      Top = 71
      Width = 72
      Height = 28
      Caption = 'E&xit'
      TabOrder = 3
      TabStop = False
      OnClick = BtExitClick
      Glyph.Data = {
        BE060000424DBE06000000000000360400002800000024000000120000000100
        0800000000008802000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A600000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003F8F8F8F8F8
        F8F8F8F80707FF07FF07F807FFF8F8F8F8F8F8F8F8F8F8030303030303FF0404
        0404040000F8F8F8FFFFFF0404040404F8F8F8F8F8F8F8F8F8F8FF030303FFFF
        F8FF0303030304FD05000007FFFFFF0403030303F8F8F8F8F8F8F8F8F8F80303
        03F8F8F8F8FF030303030405FD0500FFFFFFFF040303030303030303F8FFF8F8
        F8FF030303F8FF0303FF0303030304FD05FD00FFFFFFFF040303030303030303
        F8F807F8F8FF030303F8FF0303FF030303030405FD0500FFFEFFFE0403030303
        03030303F8FFF807F8FF030303F8FF0303FF0303030304FD05FD00FFFFFFFF04
        0303030303030303F8F807F8F8FF030303F8FF0303FF030303030405FD0500FF
        FEFFFE040303030303030303F8FFF807F8FF030303F8FF0303FF0303030304FD
        05FD00FFFFFFFF040303030303030303F8F807F8F8FF030303F8FF0303FF0303
        03030405FD0500FFFEFFFE040303030303030303F8FFF807F8FF030303F8FF03
        03FF0303030304FD05FD00FEFFFEFF040303030303030303F8F807F8F8FF0303
        03F8FF0303FF030303030405FD0500FFFEFFFE040303030303030303F8FFF807
        F8FF030303F8FF0303FF0303030304FD05FD00FEFFFEFF040303030303030303
        F8F807F8F8FF030303F8FF0303FF030303030404040404040404040403030303
        03030303F8FFF8FFF8FFFFFFFFF8FF0303FF0303030303030303030303030303
        0303030303030303F8F8F8F8F8F8F8F8F8F8030303FF03030303030300000000
        000003030303030303030303030303FFFFFFFFFFFF03030303FF030303030303
        00FAFAFAFA00030303030303030303030303F8F8F8F8F8F8FF03030303FF0303
        03030303000000000000030303030303030303030303F8FFFFFFFFF8FF030303
        03FF}
      NumGlyphs = 2
    end
    object BtConfig: TButton
      Left = 72
      Top = 31
      Width = 72
      Height = 28
      Hint = 'correction +/- 1% for exact divisions'
      Caption = 'Configuration'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      TabStop = False
      OnClick = BtConfigClick
    end
    object BtSetupPrn: TButton
      Left = 72
      Top = 71
      Width = 72
      Height = 28
      Hint = 'paper size and orientation, printer properties'
      Caption = 'Printer setup'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      TabStop = False
      OnClick = BtSetupPrnClick
    end
  end
  object PanelPrintingPage: TPanel
    Left = 425
    Top = 334
    Width = 164
    Height = 97
    TabOrder = 22
    object Shape10: TShape
      Left = 1
      Top = 1
      Width = 162
      Height = 20
      Align = alTop
      Brush.Color = clNavy
    end
    object Label31: TLabel
      Left = 44
      Top = 4
      Width = 76
      Height = 13
      Caption = 'Printing page'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Shape8: TShape
      Left = 28
      Top = 31
      Width = 108
      Height = 36
      Brush.Color = clInfoBk
    end
    object LblWPaper: TLabel
      Left = 34
      Top = 34
      Width = 53
      Height = 13
      Caption = 'LblWPaper'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object LblHPaper: TLabel
      Left = 35
      Top = 50
      Width = 50
      Height = 13
      Caption = 'LblHPaper'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object RBPortrait: TRadioButton
      Left = 14
      Top = 73
      Width = 55
      Height = 17
      Caption = 'Portrait'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = RBOrientClick
    end
    object RBLandscape: TRadioButton
      Tag = 1
      Left = 78
      Top = 73
      Width = 75
      Height = 17
      Caption = 'Landscape'
      TabOrder = 1
      OnClick = RBOrientClick
    end
  end
  object PanelOutPut: TPanel
    Left = 589
    Top = 334
    Width = 165
    Height = 97
    TabOrder = 23
    object Shape11: TShape
      Left = 1
      Top = 1
      Width = 163
      Height = 20
      Align = alTop
      Brush.Color = clNavy
    end
    object Label32: TLabel
      Left = 63
      Top = 4
      Width = 39
      Height = 13
      Caption = 'Output'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object BtImprimer: TSpeedButton
      Left = 88
      Top = 42
      Width = 67
      Height = 34
      Caption = '&Print'
      Glyph.Data = {
        96090000424D9609000000000000360000002800000028000000140000000100
        1800000000006009000000000000000000000000000000000000007F7F007F7F
        007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
        7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
        007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
        7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFF
        007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FFFFF
        FFFFFFFFFFFFFF007F7F007F7F007F7F000000000000000000007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000000000000000
        007F7F007F7F007F7F007F7F7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFF
        FFFF007F7F000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000000000000000000000007F7F007F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFF007F7F000000
        FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000007F7F007F7F7F7F7FFFFFFF00
        7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
        007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F000000FFFFFFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF000000007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F
        007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
        7F007F7F7F7F7FFFFFFF007F7F000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FFBFBFBFBFBFBF
        000000007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F
        7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFF
        FFFF007F7F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F007F
        7F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7FFFFFFF007F7F7F7F7F
        0000000000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F0000000000007F7F7F007F7F007F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F007F7F007F7F007F7F007F7F0000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
        7FFFFFFF007F7F007F7F007F7F007F7F007F7F000000000000FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000007F7F
        007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7FFFFFFF007F7FFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F000000FFFFFF000000000000000000000000
        000000000000000000000000FFFFFF000000007F7F007F7F007F7F007F7F007F
        7F007F7F007F7F007F7F7F7F7FFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F
        007F7F007F7F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F7F7F7FFFFFFF007F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFF7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F0000
        00FFFFFF000000000000000000000000000000000000000000000000FFFFFF00
        0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F007F7F7F7F7FFFFF
        FF007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F007F7F
        007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7FFFFFFFFFFF
        FF007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F000000FFFFFF000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F007F7F007F7F007F7F007F
        7F007F7F007F7F007F7F7F7F7FFFFFFF7F7F7F7F7F7F007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F
        007F7F007F7F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFF7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F0000
        0000000000000000000000000000000000000000000000000000000000000000
        0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F007F
        7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
        007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
        7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
        007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
        7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      OnClick = BtImprimerClick
    end
    object BtCopy: TButton
      Left = 10
      Top = 27
      Width = 67
      Height = 29
      Hint = 'diagram without margins to the clipboard'
      Caption = '&Copy'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnClick = BtCopyClick
    end
    object BtSaveToFile: TButton
      Left = 9
      Top = 61
      Width = 67
      Height = 29
      Caption = '&Save'
      TabOrder = 1
      TabStop = False
      OnClick = BtSaveToFileClick
    end
  end
  object PanelEditing: TPanel
    Left = 436
    Top = 24
    Width = 307
    Height = 34
    BevelOuter = bvNone
    BorderWidth = 1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 26
    Visible = False
    object Shape13: TShape
      Left = 9
      Top = 6
      Width = 289
      Height = 20
      Brush.Color = clInfoBk
    end
    object LblEditing: TLabel
      Left = 15
      Top = 9
      Width = 278
      Height = 15
      Alignment = taCenter
      AutoSize = False
      Caption = 'LblEditing'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object PanelCart: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 2
    Visible = False
    object GroupBox1: TGroupBox
      Left = 7
      Top = 13
      Width = 153
      Height = 108
      Caption = ' Abscissa '
      TabOrder = 0
      object Label2: TLabel
        Left = 4
        Top = 32
        Width = 27
        Height = 13
        Caption = 'Scale'
      end
      object Label3: TLabel
        Left = 4
        Top = 71
        Width = 42
        Height = 13
        Caption = 'Divisions'
      end
      object CBXScale: TComboBox
        Left = 50
        Top = 27
        Width = 95
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        ItemHeight = 13
        TabOrder = 0
        OnChange = CBCartScaleChange
      end
      object CBXDiv: TComboBox
        Left = 50
        Top = 68
        Width = 95
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        OnChange = RefreshPreview
      end
      object EditXDiv: TEdit
        Left = 50
        Top = 68
        Width = 44
        Height = 21
        MaxLength = 3
        TabOrder = 2
        Text = '31'
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyXDiv: TButton
        Left = 102
        Top = 69
        Width = 41
        Height = 21
        Caption = 'Apply'
        TabOrder = 3
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 166
      Top = 13
      Width = 153
      Height = 108
      Caption = ' Ordinate '
      TabOrder = 1
      object Label6: TLabel
        Left = 4
        Top = 32
        Width = 27
        Height = 13
        Caption = 'Scale'
      end
      object Label19: TLabel
        Left = 4
        Top = 71
        Width = 42
        Height = 13
        Caption = 'Divisions'
      end
      object CBYScale: TComboBox
        Tag = 1
        Left = 50
        Top = 27
        Width = 95
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        ItemHeight = 13
        TabOrder = 0
        OnChange = CBCartScaleChange
      end
      object CBYDiv: TComboBox
        Tag = 1
        Left = 50
        Top = 68
        Width = 95
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        OnChange = RefreshPreview
      end
      object EditYDiv: TEdit
        Tag = 1
        Left = 50
        Top = 68
        Width = 44
        Height = 21
        MaxLength = 3
        TabOrder = 2
        Text = '31'
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyYDiv: TButton
        Tag = 1
        Left = 102
        Top = 69
        Width = 41
        Height = 21
        Caption = 'Apply'
        TabOrder = 3
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
    object CBSubDivCart: TCheckBox
      Left = 120
      Top = 130
      Width = 87
      Height = 17
      Caption = 'Sub-divisions'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = CBSubdivClick
    end
  end
  object PanelBee: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 5
    Visible = False
    object GroupBox9: TGroupBox
      Left = 56
      Top = 25
      Width = 213
      Height = 99
      Caption = ' Pattern '
      TabOrder = 0
      object LblUnitBee: TLabel
        Left = 155
        Top = 26
        Width = 23
        Height = 13
        Caption = 'unite'
      end
      object Label35: TLabel
        Left = 12
        Top = 26
        Width = 42
        Height = 13
        Caption = 'Diameter'
      end
      object EditDiamBee: TEdit
        Tag = 7
        Left = 67
        Top = 23
        Width = 78
        Height = 21
        TabOrder = 0
        Text = 'EditDiamBee'
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyDiamBee: TButton
        Tag = 7
        Left = 67
        Top = 59
        Width = 78
        Height = 25
        Caption = 'Apply'
        TabOrder = 1
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
  end
  object PanelTri: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 6
    Visible = False
    object GroupBox11: TGroupBox
      Left = 50
      Top = 38
      Width = 225
      Height = 74
      Caption = ' Side scale '
      TabOrder = 0
      object LblScales: TLabel
        Left = 24
        Top = 33
        Width = 42
        Height = 13
        Caption = 'Divisions'
        FocusControl = CBDivTri
      end
      object CBDivTri: TComboBox
        Left = 80
        Top = 27
        Width = 120
        Height = 21
        Style = csDropDownList
        Color = clWhite
        DropDownCount = 11
        ItemHeight = 13
        TabOrder = 0
        OnChange = RefreshPreview
      end
    end
  end
  object PanelMerc: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 7
    Visible = False
    object GroupBox18: TGroupBox
      Left = 26
      Top = 23
      Width = 273
      Height = 105
      Caption = ' Geometry '
      TabOrder = 0
      object Label50: TLabel
        Left = 17
        Top = 32
        Width = 79
        Height = 13
        Caption = 'P&arallels spacing'
        FocusControl = CBYDivMerc
      end
      object Label49: TLabel
        Left = 16
        Top = 63
        Width = 84
        Height = 13
        Caption = 'Lat&itude (0 to 80�)'
        FocusControl = EditLatitude
      end
      object CBYDivMerc: TComboBox
        Left = 121
        Top = 24
        Width = 134
        Height = 21
        Style = csDropDownList
        Color = clWhite
        DropDownCount = 11
        ItemHeight = 13
        TabOrder = 0
        OnChange = RefreshPreview
      end
      object EditLatitude: TEdit
        Tag = 6
        Left = 122
        Top = 57
        Width = 73
        Height = 21
        TabOrder = 1
        Text = 'EditLatitude'
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyLatitude: TButton
        Tag = 6
        Left = 207
        Top = 57
        Width = 49
        Height = 23
        Caption = 'Apply'
        TabOrder = 2
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
  end
  object PanelMusic: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 8
    Visible = False
    object Label38: TLabel
      Left = 24
      Top = 91
      Width = 64
      Height = 13
      Caption = 'Staves/score'
    end
    object Label39: TLabel
      Left = 27
      Top = 117
      Width = 46
      Height = 13
      Caption = 'Bars/staff'
    end
    object Bevel1: TBevel
      Left = 5
      Top = 77
      Width = 150
      Height = 67
      Shape = bsFrame
    end
    object SEStavesOnScore: TSpinEdit
      Left = 95
      Top = 85
      Width = 41
      Height = 22
      EditorEnabled = False
      MaxValue = 20
      MinValue = 1
      TabOrder = 1
      Value = 4
      OnChange = SEStavesOnScoreChange
    end
    object SEBars: TSpinEdit
      Left = 95
      Top = 114
      Width = 41
      Height = 22
      EditorEnabled = False
      MaxValue = 20
      MinValue = 0
      TabOrder = 2
      Value = 4
      OnChange = RefreshPreview
    end
    object GroupBox7: TGroupBox
      Left = 163
      Top = 2
      Width = 152
      Height = 143
      Caption = ' Distances '
      TabOrder = 3
      object Label41: TLabel
        Left = 12
        Top = 25
        Width = 76
        Height = 13
        Caption = 'Between scores'
      end
      object Label42: TLabel
        Left = 12
        Top = 57
        Width = 68
        Height = 13
        Caption = 'Staff 1- Staff 2'
      end
      object LblOtherStaves: TLabel
        Left = 12
        Top = 88
        Width = 78
        Height = 13
        Caption = 'Following staves'
      end
      object Label4: TLabel
        Left = 29
        Top = 112
        Width = 93
        Height = 13
        Caption = 'Unit = 1 lines space'
      end
      object SEDistScores: TSpinEdit
        Left = 98
        Top = 20
        Width = 41
        Height = 22
        EditorEnabled = False
        MaxValue = 50
        MinValue = 2
        TabOrder = 0
        Value = 4
        OnChange = RefreshPreview
      end
      object SEStave12: TSpinEdit
        Left = 98
        Top = 51
        Width = 41
        Height = 22
        EditorEnabled = False
        MaxValue = 40
        MinValue = 2
        TabOrder = 1
        Value = 7
        OnChange = RefreshPreview
      end
      object SEStave23: TSpinEdit
        Left = 98
        Top = 82
        Width = 41
        Height = 22
        EditorEnabled = False
        MaxValue = 20
        MinValue = 2
        TabOrder = 2
        Value = 3
        OnChange = RefreshPreview
      end
    end
    object GroupBox8: TGroupBox
      Left = 5
      Top = 2
      Width = 150
      Height = 69
      Caption = ' Lines space '
      TabOrder = 0
      object LblUnitMusic: TLabel
        Left = 72
        Top = 49
        Width = 14
        Height = 13
        Caption = 'cm'
      end
      object Label7: TLabel
        Left = 39
        Top = 50
        Width = 31
        Height = 13
        Caption = 'Unit = '
      end
      object EditEcLiMus: TEdit
        Tag = 10
        Left = 12
        Top = 20
        Width = 70
        Height = 21
        TabOrder = 0
        Text = 'EditEcLiMus'
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyMusic: TButton
        Left = 93
        Top = 21
        Width = 44
        Height = 22
        Caption = 'Apply'
        TabOrder = 1
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
  end
  object PanelWei: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 13
    TabStop = True
    Visible = False
    object Label22: TLabel
      Left = 12
      Top = 63
      Width = 104
      Height = 13
      Caption = 'Number of data p&oints'
      FocusControl = EditNbPtWeib
    end
    object Label37: TLabel
      Left = 12
      Top = 23
      Width = 113
      Height = 13
      Caption = 'Abscissa range (li&fetime)'
      FocusControl = CBXDivWeib
    end
    object EditNbPtWeib: TEdit
      Tag = 3
      Left = 136
      Top = 60
      Width = 46
      Height = 21
      TabOrder = 1
      Text = '100'
      OnKeyPress = EditDiagramKeyPress
    end
    object BtApplyNbWeibull: TButton
      Tag = 3
      Left = 193
      Top = 59
      Width = 57
      Height = 25
      Caption = '&Apply'
      TabOrder = 0
      TabStop = False
      OnClick = BtApplyDiagramClick
    end
    object CBXDivWeib: TComboBox
      Left = 136
      Top = 20
      Width = 105
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = 'CBXDivWeib'
      OnChange = RefreshPreview
    end
    object CBSubDivWeib: TCheckBox
      Left = 120
      Top = 109
      Width = 87
      Height = 17
      Caption = 'Sub-divisions'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnClick = CBSubdivClick
    end
  end
  object PanelAxo: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 10
    Visible = False
    object Label44: TLabel
      Left = 65
      Top = 15
      Width = 90
      Height = 13
      Caption = 'Horizontal divisions'
    end
    object CBXDivAxo: TComboBox
      Left = 167
      Top = 11
      Width = 93
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = RefreshPreview
    end
    object GroupBox14: TGroupBox
      Left = 7
      Top = 42
      Width = 159
      Height = 105
      Caption = ' Perspective angles '
      TabOrder = 1
      object Label46: TLabel
        Left = 12
        Top = 27
        Width = 18
        Height = 13
        Caption = 'Left'
      end
      object Label47: TLabel
        Left = 11
        Top = 59
        Width = 25
        Height = 13
        Caption = 'Right'
      end
      object Label45: TLabel
        Left = 36
        Top = 80
        Width = 86
        Height = 13
        Caption = '(15 to 60 degrees)'
      end
      object EditLeftAngle: TEdit
        Tag = 4
        Left = 44
        Top = 24
        Width = 41
        Height = 21
        TabOrder = 0
        Text = 'EditLeftAngle'
        OnKeyPress = EditDiagramKeyPress
      end
      object EditRightAngle: TEdit
        Tag = 4
        Left = 45
        Top = 52
        Width = 41
        Height = 21
        TabOrder = 1
        Text = 'EditRightAngle'
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyAxo: TButton
        Tag = 4
        Left = 97
        Top = 36
        Width = 52
        Height = 25
        Caption = 'Apply'
        TabOrder = 2
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
    object GroupBox15: TGroupBox
      Left = 175
      Top = 56
      Width = 141
      Height = 71
      Caption = ' Vertical lines '
      TabOrder = 2
      object Label48: TLabel
        Left = 7
        Top = 48
        Width = 128
        Height = 13
        Caption = '(not shown on the preview)'
      end
      object RBWithAxoV: TRadioButton
        Left = 13
        Top = 24
        Width = 43
        Height = 17
        Caption = 'With'
        TabOrder = 0
        OnClick = RBAxoVClick
      end
      object RBWithoutAxoV: TRadioButton
        Left = 69
        Top = 24
        Width = 61
        Height = 17
        Caption = 'Without'
        TabOrder = 1
        OnClick = RBAxoVClick
      end
    end
  end
  object PanelLogit: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 11
    TabStop = True
    Visible = False
    object Label52: TLabel
      Left = 40
      Top = 46
      Width = 72
      Height = 13
      Caption = 'Abscissa range'
      FocusControl = CBXDivLogit
    end
    object CBXDivLogit: TComboBox
      Left = 134
      Top = 43
      Width = 105
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = RefreshPreview
    end
    object CBSubDivLogit: TCheckBox
      Left = 119
      Top = 90
      Width = 87
      Height = 17
      Caption = 'Sub-divisions'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = CBSubdivClick
    end
  end
  object PanelBrick: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 16
    Visible = False
    object GroupBox13: TGroupBox
      Left = 33
      Top = 16
      Width = 259
      Height = 118
      Caption = ' Bricks'
      TabOrder = 0
      object LblUnitHBrick: TLabel
        Left = 142
        Top = 29
        Width = 23
        Height = 13
        Caption = 'unite'
      end
      object Label56: TLabel
        Left = 14
        Top = 61
        Width = 28
        Height = 13
        Caption = 'Width'
      end
      object LblUnitWBrick: TLabel
        Left = 142
        Top = 61
        Width = 25
        Height = 13
        Caption = 'Unite'
      end
      object Label43: TLabel
        Left = 13
        Top = 28
        Width = 31
        Height = 13
        Caption = 'Height'
      end
      object EditHBrick: TEdit
        Tag = 11
        Left = 52
        Top = 24
        Width = 80
        Height = 21
        TabOrder = 0
        OnKeyPress = EditDiagramKeyPress
      end
      object EditWBrick: TEdit
        Tag = 12
        Left = 53
        Top = 55
        Width = 80
        Height = 21
        TabOrder = 1
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyBrick: TButton
        Tag = 11
        Left = 182
        Top = 40
        Width = 61
        Height = 21
        Caption = 'Apply'
        TabOrder = 2
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
      object RBBrickAligned: TRadioButton
        Left = 60
        Top = 89
        Width = 57
        Height = 17
        Caption = 'Aligned'
        TabOrder = 3
        OnClick = RefreshPreview
      end
      object RBBrickStaggered: TRadioButton
        Left = 148
        Top = 89
        Width = 73
        Height = 17
        Caption = 'Staggered'
        TabOrder = 4
        OnClick = RefreshPreview
      end
    end
  end
  object PanelLosange: TPanel
    Tag = 13
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 12
    Visible = False
    object GroupBox10: TGroupBox
      Left = 56
      Top = 11
      Width = 213
      Height = 128
      Caption = ' Losange '
      TabOrder = 0
      object Label57: TLabel
        Left = 12
        Top = 28
        Width = 31
        Height = 13
        Caption = 'Height'
      end
      object LblUnitHLosange: TLabel
        Left = 146
        Top = 29
        Width = 23
        Height = 13
        Caption = 'unite'
      end
      object Label63: TLabel
        Left = 12
        Top = 60
        Width = 28
        Height = 13
        Caption = 'Width'
      end
      object LblUnitWLosange: TLabel
        Left = 147
        Top = 61
        Width = 25
        Height = 13
        Caption = 'Unite'
      end
      object EditHLosange: TEdit
        Tag = 16
        Left = 66
        Top = 24
        Width = 70
        Height = 21
        TabOrder = 0
        OnKeyPress = EditDiagramKeyPress
      end
      object EditWLosange: TEdit
        Tag = 17
        Left = 66
        Top = 56
        Width = 70
        Height = 21
        TabOrder = 1
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyLosange: TButton
        Tag = 16
        Left = 67
        Top = 90
        Width = 70
        Height = 21
        Caption = 'Apply'
        TabOrder = 2
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
  end
  object PanelLines: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 14
    Visible = False
    object GroupBox12: TGroupBox
      Left = 41
      Top = 27
      Width = 245
      Height = 96
      Caption = ' Pattern '
      TabOrder = 0
      object Label20: TLabel
        Left = 9
        Top = 28
        Width = 99
        Height = 13
        Caption = 'Space between lines'
      end
      object LblUnitLinePattern: TLabel
        Left = 200
        Top = 28
        Width = 19
        Height = 13
        Caption = 'Unit'
      end
      object EditLines: TEdit
        Tag = 15
        Left = 118
        Top = 23
        Width = 75
        Height = 21
        MaxLength = 8
        TabOrder = 0
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyLines: TButton
        Tag = 15
        Left = 119
        Top = 59
        Width = 75
        Height = 21
        Caption = 'Apply'
        TabOrder = 1
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
    end
  end
  object PanelclPat: TPanel
    Left = 426
    Top = 212
    Width = 326
    Height = 72
    BevelOuter = bvNone
    TabOrder = 19
    Visible = False
    object GroupBox6: TGroupBox
      Left = 7
      Top = 2
      Width = 312
      Height = 68
      Caption = ' Line '
      TabOrder = 0
      object ShapeColorPat: TShape
        Left = 278
        Top = 16
        Width = 20
        Height = 10
        Shape = stEllipse
      end
      object Label64: TLabel
        Left = 246
        Top = 13
        Width = 24
        Height = 13
        Caption = 'Color'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LblWPat3: TLabel
        Left = 202
        Top = 45
        Width = 18
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '100'
      end
      object LblWPat2: TLabel
        Left = 141
        Top = 45
        Width = 17
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '50'
      end
      object LblWPat1: TLabel
        Left = 74
        Top = 45
        Width = 19
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '1'
      end
      object LblUnitPat: TLabel
        Left = 11
        Top = 42
        Width = 46
        Height = 13
        AutoSize = False
        Caption = 'Unit'
      end
      object Label66: TLabel
        Left = 14
        Top = 22
        Width = 28
        Height = 13
        Caption = 'Width'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BtChangeColorPat: TButton
        Left = 249
        Top = 34
        Width = 48
        Height = 24
        Hint = 'color and width of lines'
        Caption = 'Ch&ange'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        TabStop = False
        OnClick = BtChangeColorPatClick
      end
      object TBPat: TTrackBar
        Left = 72
        Top = 17
        Width = 150
        Height = 29
        LineSize = 10
        Max = 100
        Min = 1
        Orientation = trHorizontal
        PageSize = 10
        Frequency = 10
        Position = 50
        SelEnd = 0
        SelStart = 0
        TabOrder = 1
        ThumbLength = 20
        TickMarks = tmBottomRight
        TickStyle = tsAuto
        OnChange = TBPatChange
      end
    end
  end
  object PanelTable: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 17
    Visible = False
    object GroupBox16: TGroupBox
      Left = 7
      Top = 1
      Width = 312
      Height = 41
      Caption = ' Rows '
      TabOrder = 0
      object Label24: TLabel
        Left = 7
        Top = 16
        Width = 37
        Height = 13
        Caption = 'Number'
      end
      object LblHRows: TLabel
        Left = 143
        Top = 15
        Width = 49
        Height = 13
        Caption = 'LblHRows'
      end
      object Label36: TLabel
        Left = 103
        Top = 15
        Width = 40
        Height = 13
        Caption = 'Height : '
      end
      object SERows: TSpinEdit
        Left = 53
        Top = 11
        Width = 42
        Height = 22
        EditorEnabled = False
        MaxValue = 50
        MinValue = 2
        TabOrder = 0
        Value = 2
        OnChange = SERowsChange
      end
    end
    object GroupBox17: TGroupBox
      Left = 7
      Top = 44
      Width = 312
      Height = 105
      Caption = ' Columns '
      TabOrder = 1
      object Label51: TLabel
        Left = 5
        Top = 18
        Width = 37
        Height = 13
        Caption = 'Number'
      end
      object Label34: TLabel
        Left = 5
        Top = 67
        Width = 279
        Height = 13
        Caption = 'To widen or narrow a column, left-click on one of its border '
      end
      object Label40: TLabel
        Left = 17
        Top = 82
        Width = 172
        Height = 13
        Caption = 'and move the line gliding the mouse.'
      end
      object Label53: TLabel
        Left = 6
        Top = 45
        Width = 288
        Height = 13
        Caption = 'To select/unselect a column, rigth-click on it (yellow flagged).'
      end
      object SECols: TSpinEdit
        Left = 49
        Top = 14
        Width = 44
        Height = 22
        EditorEnabled = False
        MaxValue = 0
        MinValue = 2
        TabOrder = 0
        Value = 0
        OnChange = SEColsChange
      end
      object BtEqualizeCols: TButton
        Left = 100
        Top = 14
        Width = 134
        Height = 22
        Caption = 'Equalize selected columns'
        TabOrder = 1
        TabStop = False
        OnClick = BtEqualColumnsClick
      end
      object BtUnselectCols: TButton
        Left = 242
        Top = 14
        Width = 65
        Height = 22
        Caption = 'Unselect all'
        TabOrder = 2
        TabStop = False
        OnClick = BtUnselectColsClick
      end
    end
  end
  object PanelEllipse: TPanel
    Tag = 13
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    Caption = 'PanelEllipse'
    TabOrder = 15
    Visible = False
    object GroupBox19: TGroupBox
      Left = 7
      Top = 11
      Width = 312
      Height = 128
      Caption = ' Ellipses '
      TabOrder = 0
      object Label54: TLabel
        Left = 23
        Top = 28
        Width = 31
        Height = 13
        Caption = 'Height'
      end
      object LblUnitHEllipse: TLabel
        Left = 157
        Top = 29
        Width = 23
        Height = 13
        Caption = 'unite'
      end
      object Label59: TLabel
        Left = 23
        Top = 60
        Width = 28
        Height = 13
        Caption = 'Width'
      end
      object LblUnitWEllipse: TLabel
        Left = 158
        Top = 61
        Width = 25
        Height = 13
        Caption = 'Unite'
      end
      object EditHEllipse: TEdit
        Tag = 13
        Left = 77
        Top = 24
        Width = 70
        Height = 21
        TabOrder = 0
        OnKeyPress = EditDiagramKeyPress
      end
      object EditWEllipse: TEdit
        Tag = 14
        Left = 77
        Top = 56
        Width = 70
        Height = 21
        TabOrder = 1
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyEllipse: TButton
        Tag = 13
        Left = 209
        Top = 42
        Width = 70
        Height = 21
        Caption = 'Apply'
        TabOrder = 2
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
      object RBEllipseCrossed: TRadioButton
        Left = 75
        Top = 96
        Width = 65
        Height = 17
        Caption = 'Crossed'
        TabOrder = 3
        OnClick = RefreshPreview
      end
      object RBEllipseTangent: TRadioButton
        Left = 171
        Top = 96
        Width = 65
        Height = 17
        Caption = 'Tangent'
        TabOrder = 4
        OnClick = RefreshPreview
      end
    end
  end
  object PanelclDot: TPanel
    Left = 426
    Top = 212
    Width = 326
    Height = 72
    BevelOuter = bvNone
    Caption = 'PanelclDot'
    TabOrder = 21
    Visible = False
    object GroupBox5: TGroupBox
      Left = 7
      Top = 2
      Width = 312
      Height = 68
      Caption = ' Dots '
      TabOrder = 0
      object Label58: TLabel
        Left = 12
        Top = 21
        Width = 42
        Height = 13
        Caption = 'Diameter'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LblDiamDot1: TLabel
        Left = 76
        Top = 45
        Width = 17
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '50'
      end
      object LblDiamDot2: TLabel
        Left = 137
        Top = 45
        Width = 21
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '100'
      end
      object LblDiamDot3: TLabel
        Left = 201
        Top = 45
        Width = 21
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '150'
      end
      object LblUnitDot: TLabel
        Left = 13
        Top = 42
        Width = 19
        Height = 13
        Caption = 'Unit'
      end
      object Label67: TLabel
        Left = 246
        Top = 13
        Width = 24
        Height = 13
        Caption = 'Color'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ShapeColorDot: TShape
        Left = 278
        Top = 16
        Width = 20
        Height = 10
        Shape = stEllipse
      end
      object TBDot: TTrackBar
        Left = 72
        Top = 17
        Width = 150
        Height = 28
        LineSize = 5
        Max = 100
        Min = 50
        Orientation = trHorizontal
        PageSize = 5
        Frequency = 5
        Position = 50
        SelEnd = 0
        SelStart = 0
        TabOrder = 0
        ThumbLength = 20
        TickMarks = tmBottomRight
        TickStyle = tsAuto
        OnChange = TBDotChange
      end
      object BtChangeColorDot: TButton
        Left = 249
        Top = 34
        Width = 48
        Height = 20
        Hint = 'color and width of lines'
        Caption = 'Ch&ange'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BtChangeColorDotClick
      end
    end
  end
  object PanelGuitar: TPanel
    Left = 426
    Top = 62
    Width = 326
    Height = 150
    BevelOuter = bvNone
    TabOrder = 9
    Visible = False
    object GBGuitar: TGroupBox
      Left = 7
      Top = 11
      Width = 312
      Height = 127
      Caption = ' Chords '
      TabOrder = 0
      object LblUnitGuitar: TLabel
        Left = 86
        Top = 67
        Width = 14
        Height = 13
        Caption = 'cm'
      end
      object Label69: TLabel
        Left = 46
        Top = 67
        Width = 37
        Height = 13
        Caption = 'Unit = 1'
      end
      object Label5: TLabel
        Left = 104
        Top = 21
        Width = 37
        Height = 13
        Caption = 'Number'
      end
      object Label55: TLabel
        Left = 26
        Top = 54
        Width = 121
        Height = 13
        Caption = 'Distance between chords'
      end
      object Label62: TLabel
        Left = 46
        Top = 106
        Width = 99
        Height = 13
        Caption = 'Unit = 1 chord space'
      end
      object Label60: TLabel
        Left = 26
        Top = 93
        Width = 120
        Height = 13
        Caption = 'Distance between staves'
      end
      object EditEcCords: TEdit
        Tag = 22
        Left = 155
        Top = 56
        Width = 70
        Height = 21
        TabOrder = 1
        OnKeyPress = EditDiagramKeyPress
      end
      object BtApplyGuitar: TButton
        Tag = 22
        Left = 242
        Top = 57
        Width = 44
        Height = 22
        Caption = 'Apply'
        TabOrder = 2
        TabStop = False
        OnClick = BtApplyDiagramClick
      end
      object SEDistStaves: TSpinEdit
        Left = 157
        Top = 95
        Width = 41
        Height = 22
        EditorEnabled = False
        MaxValue = 20
        MinValue = 2
        TabOrder = 3
        Value = 4
        OnChange = RefreshPreview
      end
      object SENCords: TSpinEdit
        Left = 155
        Top = 17
        Width = 41
        Height = 22
        EditorEnabled = False
        MaxValue = 8
        MinValue = 4
        TabOrder = 0
        Value = 6
        OnChange = RefreshPreview
      end
    end
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 16
    Top = 50
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 392
    Top = 376
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'emf'
    Filter = 'Extended metafile (*.emf)|*.emf'
    Title = 'Save a graph paper as a metafile'
    Left = 352
    Top = 376
  end
end