object FDiag: TFDiag
  Left = 522
  Top = 34
  Width = 197
  Height = 479
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'CartoDiagram'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClick = FormClick
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 12
    Width = 58
    Height = 13
    Caption = 'Select layer:'
  end
  object Label2: TLabel
    Left = 8
    Top = 36
    Width = 55
    Height = 13
    Caption = 'Select field:'
  end
  object Label3: TLabel
    Left = 8
    Top = 267
    Width = 81
    Height = 13
    Caption = 'Bar Width :'
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 243
    Width = 81
    Height = 13
    Caption = 'Maximal size:'
  end
  object Shape1: TShape
    Left = 118
    Top = 218
    Width = 64
    Height = 41
    Visible = False
  end
  object Label5: TLabel
    Left = 8
    Top = 58
    Width = 75
    Height = 13
    Caption = 'Decimal places:'
  end
  object Label6: TLabel
    Left = 8
    Top = 83
    Width = 56
    Height = 13
    Caption = 'Begin color:'
  end
  object Label7: TLabel
    Left = 8
    Top = 107
    Width = 48
    Height = 13
    Caption = 'End color:'
  end
  object Label8: TLabel
    Left = 8
    Top = 336
    Width = 65
    Height = 13
    Caption = 'Text mask:'
  end
  object Label9: TLabel
    Left = 8
    Top = 219
    Width = 81
    Height = 13
    Caption = 'Minimal size:'
  end
  object CBLayer: TComboBox
    Left = 80
    Top = 8
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = '...select layer'
    OnChange = CBLayerChange
  end
  object CBField: TComboBox
    Left = 80
    Top = 32
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    Text = '...select field'
    OnChange = CBFieldChange
  end
  object RGType: TRadioGroup
    Left = 4
    Top = 160
    Width = 181
    Height = 49
    Caption = 'Diagram Type'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Circle'
      'Bar'
      'Diamond'
      'Triangle')
    TabOrder = 2
    OnClick = RGTypeClick
  end
  object ESize: TEdit
    Left = 90
    Top = 264
    Width = 25
    Height = 21
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Text = '25'
  end
  object ESizeM: TEdit
    Left = 90
    Top = 240
    Width = 25
    Height = 21
    TabOrder = 4
    Text = '50'
  end
  object Panel1: TPanel
    Left = 4
    Top = 292
    Width = 181
    Height = 37
    Caption = 'Set text font'
    TabOrder = 5
    OnClick = Panel1Click
  end
  object EPlaces: TEdit
    Left = 86
    Top = 56
    Width = 25
    Height = 21
    TabOrder = 6
    Text = '2'
  end
  object CBfill: TComboBox
    Left = 80
    Top = 80
    Width = 105
    Height = 21
    ItemHeight = 13
    Items.Strings = (
      'Aqua   '
      'Black  '
      'Blue   '
      'Fuchsia'
      'Gray   '
      'Green  '
      'Lime   '
      'Maroon '
      'Navy   '
      'Olive  '
      'Purple '
      'Red    '
      'Silver '
      'Teal   '
      'White  '
      'Yellow ')
    TabOrder = 7
    Text = '...begin color'
    OnChange = CBfillChange
  end
  object CBOut: TComboBox
    Left = 80
    Top = 104
    Width = 105
    Height = 21
    ItemHeight = 13
    Items.Strings = (
      'Aqua   '
      'Black  '
      'Blue   '
      'Fuchsia'
      'Gray   '
      'Green  '
      'Lime   '
      'Maroon '
      'Navy   '
      'Olive  '
      'Purple '
      'Red    '
      'Silver '
      'Teal   '
      'White  '
      'Yellow ')
    TabOrder = 8
    Text = '...end color'
    OnChange = CBOutChange
  end
  object Button1: TButton
    Left = 24
    Top = 428
    Width = 65
    Height = 22
    Caption = 'Clear'
    TabOrder = 9
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 100
    Top = 428
    Width = 65
    Height = 22
    Caption = 'Set'
    TabOrder = 10
    OnClick = Button2Click
  end
  object RGLabel: TRadioGroup
    Left = 4
    Top = 354
    Width = 181
    Height = 35
    Caption = 'Show (value)'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Info (click)'
      'Draw')
    TabOrder = 11
  end
  object Edit1: TEdit
    Left = 72
    Top = 333
    Width = 109
    Height = 21
    Hint = 'Char @ is replaced by value'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    Text = 'Value:@'
  end
  object ESizeMn: TEdit
    Left = 90
    Top = 216
    Width = 25
    Height = 21
    TabOrder = 13
    Text = '5'
  end
  object RGSel: TRadioGroup
    Left = 4
    Top = 389
    Width = 181
    Height = 35
    Caption = 'Record'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'All records'
      'Select...')
    TabOrder = 14
    OnClick = RGSelClick
    OnEnter = RGSelEnter
  end
  object RGColor: TRadioGroup
    Left = 4
    Top = 127
    Width = 181
    Height = 35
    Caption = 'Color'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Fill'
      'Outline')
    TabOrder = 15
  end
  object CD: TFontDialog
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 148
    Top = 284
  end
end