Chip 2003 February/Chip_2003-02_cd1.bin/tema/siggis/siGGis.exe/0/RCDATA/TSELECTGEO/TSELECTGEO.txt

Text File | 2001-12-03 | 6KB | 317 lines

object SelectGeo: TSelectGeo
  Left = 230
  Top = 182
  BorderStyle = bsToolWindow
  Caption = 'Select GeoObjects'
  ClientHeight = 310
  ClientWidth = 401
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 18
    Top = 8
    Width = 79
    Height = 13
    Caption = 'Select Layer:'
  end
  object Label2: TLabel
    Left = 204
    Top = 8
    Width = 77
    Height = 13
    Caption = 'Database field:'
  end
  object Label3: TLabel
    Left = 204
    Top = 36
    Width = 57
    Height = 13
    Caption = 'Select data:'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object RGLog: TRadioGroup
    Left = 4
    Top = 24
    Width = 193
    Height = 36
    Caption = ' Operator '
    Columns = 5
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemIndex = 0
    Items.Strings = (
      '='
      '<>'
      '>'
      '<'
      'in')
    ParentFont = False
    TabOrder = 3
    OnClick = RGLogClick
  end
  object PSel: TPanel
    Left = 4
    Top = 104
    Width = 277
    Height = 25
    BevelOuter = bvNone
    Caption = '***'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
  end
  object RGColored: TRadioGroup
    Left = 4
    Top = 64
    Width = 393
    Height = 41
    Caption = ' Colored GeoObject (by selected field): '
    Color = clBtnFace
    Columns = 6
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      'default'
      'colored')
    ParentColor = False
    ParentFont = False
    TabOrder = 4
    OnClick = RGColoredClick
  end
  object CBLayer: TComboBox
    Left = 96
    Top = 4
    Width = 101
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = '...'
    OnChange = CBLayerChange
  end
  object CBDbfField: TComboBox
    Left = 288
    Top = 4
    Width = 109
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    Text = '...'
    OnChange = CBDbfFieldChange
  end
  object CBData: TComboBox
    Left = 288
    Top = 32
    Width = 109
    Height = 21
    ItemHeight = 13
    Sorted = True
    TabOrder = 2
    Text = '...'
    OnChange = CBDataChange
  end
  object Panel1: TPanel
    Left = 142
    Top = 76
    Width = 249
    Height = 24
    Caption = 'Panel1'
    TabOrder = 5
    object CBdatF: TComboBox
      Left = 0
      Top = 1
      Width = 82
      Height = 21
      Enabled = False
      ItemHeight = 13
      TabOrder = 0
      Text = '...dataField'
      OnExit = CBdatFExit
    end
    object CBBcolor: TComboBox
      Left = 83
      Top = 1
      Width = 82
      Height = 21
      Enabled = False
      ItemHeight = 13
      Items.Strings = (
        'Aqua   '
        'Black  '
        'Blue   '
        'Fuchsia'
        'Gray   '
        'Green  '
        'Lime   '
        'Maroon '
        'Navy   '
        'Olive  '
        'Purple '
        'Red    '
        'Silver '
        'Teal   '
        'White  '
        'Yellow ')
      TabOrder = 1
      Text = '...beginColor'
      OnChange = CBBcolorChange
    end
    object CBEcolor: TComboBox
      Left = 166
      Top = 1
      Width = 82
      Height = 21
      Enabled = False
      ItemHeight = 13
      Items.Strings = (
        'Aqua   '
        'Black  '
        'Blue   '
        'Fuchsia'
        'Gray   '
        'Green  '
        'Lime   '
        'Maroon '
        'Navy   '
        'Olive  '
        'Purple '
        'Red    '
        'Silver '
        'Teal   '
        'White  '
        'Yellow ')
      TabOrder = 2
      Text = '...endColor'
      OnChange = CBEcolorChange
    end
  end
  object RGNext: TRadioGroup
    Left = 4
    Top = 122
    Width = 393
    Height = 40
    Caption = ' Next select: '
    Columns = 7
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemIndex = 2
    Items.Strings = (
      'or'
      'and'
      'blank')
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
  end
  object Panel2: TPanel
    Left = 184
    Top = 134
    Width = 206
    Height = 22
    TabOrder = 7
    object Button1: TButton
      Left = 0
      Top = 0
      Width = 68
      Height = 22
      Caption = 'add select'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 138
      Top = 0
      Width = 68
      Height = 22
      Caption = 'update line'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button5: TButton
      Left = 69
      Top = 0
      Width = 68
      Height = 22
      Caption = 'clear line'
      TabOrder = 2
      OnClick = Button5Click
    end
  end
  object SG: TStringGrid
    Left = 4
    Top = 160
    Width = 391
    Height = 121
    DefaultColWidth = 50
    DefaultRowHeight = 18
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    ScrollBars = ssVertical
    TabOrder = 8
    OnDblClick = SGDblClick
    OnDrawCell = SGDrawCell
    OnKeyDown = SGKeyDown
    ColWidths = (
      50
      81
      49
      144
      41)
  end
  object Button3: TButton
    Left = 216
    Top = 285
    Width = 97
    Height = 23
    Caption = 'Select'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    OnClick = Button3Click
  end
  object Button6: TButton
    Left = 112
    Top = 285
    Width = 99
    Height = 23
    Caption = 'Clear all select'
    TabOrder = 11
    OnClick = Button6Click
  end
  object CBDbl: TCheckBox
    Left = 288
    Top = 108
    Width = 113
    Height = 17
    Caption = 'Dbl line/outLine'
    Enabled = False
    TabOrder = 12
  end
end