object MultiSelectForm: TMultiSelectForm
  Left = 137
  Top = 129
  BorderStyle = bsDialog
  Caption = 'Multi-selection in InfoPower'#39's Grid'
  ClientHeight = 426
  ClientWidth = 490
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object wwDBGrid1: TwwDBGrid
    Left = 9
    Top = 232
    Width = 288
    Height = 148
    ControlType.Strings = (
      'Selected;CheckBox;True;False')
    Selected.Strings = (
      'Selected'#9'5'#9'Selected'
      'Code'#9'8'#9'Code'
      'Description'#9'24'#9'Description')
    IniAttributes.FileName = 'delphi32.ini'
    IniAttributes.SectionName = 'MultiSelectFormwwDBGrid1'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clBtnFace
    FixedCols = 1
    ShowHorzScrollBar = True
    EditControlOptions = [ecoCheckboxSingleClick, ecoSearchOwnerForm]
    DataSource = wwDataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    KeyOptions = [dgAllowDelete]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgMultiSelect]
    ParentFont = False
    RowHeightPercent = 110
    TabOrder = 0
    TitleAlignment = taCenter
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    TitleLines = 1
    TitleButtons = False
    OnCalcCellColors = wwDBGrid1CalcCellColors
  end
  object DeleteButton: TButton
    Left = 160
    Top = 392
    Width = 137
    Height = 25
    Caption = 'Delete Selected'
    TabOrder = 1
    OnClick = DeleteButtonClick
  end
  object Button1: TButton
    Left = 82
    Top = 392
    Width = 74
    Height = 25
    Caption = 'Select All'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 8
    Top = 392
    Width = 74
    Height = 25
    Caption = 'Unselect All'
    TabOrder = 3
    OnClick = Button2Click
  end
  object GroupBox1: TGroupBox
    Left = 312
    Top = 232
    Width = 169
    Height = 145
    Caption = 'Multi-select options'
    TabOrder = 4
    object CheckBox1: TCheckBox
      Left = 8
      Top = 24
      Width = 153
      Height = 17
      Hint = 
        'Support selecting a range of records using the shift key and the' +
        ' mouse'
      Caption = 'Enable Shift Select'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 8
      Top = 48
      Width = 153
      Height = 17
      Hint = 'Automatically select the current record on a mouse click'
      Caption = 'Automatic select/unselect'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 8
      Top = 72
      Width = 153
      Height = 17
      Hint = 'Use a checkbox for selecting records'
      Caption = 'Use checkbox for selection'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox3Click
    end
  end
  object BitBtn2: TBitBtn
    Left = 408
    Top = 392
    Width = 65
    Height = 25
    Caption = 'Exit'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
    TabOrder = 5
    OnClick = BitBtn2Click
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 8
    Top = 0
    Width = 473
    Height = 225
    AutoURLDetect = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GutterWidth = 3
    HideSelection = False
    ParentFont = False
    PrintJobName = 'Delphi 5'
    TabOrder = 6
    EditorOptions = [reoShowSaveExit, reoShowPrint, reoShowPrintPreview, reoShowPageSetup, reoShowFormatBar, reoShowToolBar, reoShowStatusBar, reoShowHints, reoShowRuler, reoShowInsertObject, reoCloseOnEscape, reoFlatButtons, reoShowSpellCheck, reoShowMainMenuIcons, reoShowZoomCombo]
    EditorCaption = 'Edit Rich Text'
    EditorPosition.Left = 0
    EditorPosition.Top = 0
    EditorPosition.Width = 0
    EditorPosition.Height = 0
    MeasurementUnits = muInches
    PrintMargins.Top = 1.000000000000000000
    PrintMargins.Bottom = 1.000000000000000000
    PrintMargins.Left = 1.000000000000000000
    PrintMargins.Right = 1.000000000000000000
    PrintHeader.VertMargin = 0.500000000000000000
    PrintHeader.Font.Charset = DEFAULT_CHARSET
    PrintHeader.Font.Color = clWindowText
    PrintHeader.Font.Height = -11
    PrintHeader.Font.Name = 'Tahoma'
    PrintHeader.Font.Style = []
    PrintFooter.VertMargin = 0.500000000000000000
    PrintFooter.Font.Charset = DEFAULT_CHARSET
    PrintFooter.Font.Color = clWindowText
    PrintFooter.Font.Height = -11
    PrintFooter.Font.Name = 'Tahoma'
    PrintFooter.Font.Style = []
    RichEditVersion = 2
    Data = {
      580300007B5C727466315C616E73695C64656666305C6465666C616E67313033
      337B5C666F6E7474626C7B5C66305C66726F6D616E2054696D6573204E657720
      526F6D616E3B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C67726565
      6E305C626C7565303B7D0D0A5C766965776B696E64345C7563315C706172645C
      66305C6673323020496E666F506F77657220737570706F72747320636F6E7369
      7374656E7420616E6420666C657869626C65206D756C74692D73656C65637469
      6F6E206361706162696C697469657320696E2069747320646174612D61776172
      6520677269642E5C7061720D0A546F2073656C6563742061207265636F72642C
      2020796F752063616E2065697468657220636C69636B206F6E20746865206368
      65636B626F78206F722073696D756C74616E656F75736C792070726573732074
      68655C7061720D0A5C706172645C73613433204354524C206B657920616E6420
      636C69636B206F6E207468652073656C6563746564207265636F72642E5C7061
      720D0A5C7061726420546865206D756C74692D73656C65637420636865636B62
      6F78657320746F2074686520726967687420616C6C6F7720796F7520746F2E2E
      2E5C7061720D0A5C706172645C66692D3336305C6C693336305C736134332031
      2E205C74616220537570706F72742073656C656374696E6720612072616E6765
      206F66207265636F72647320627920686F6C64696E6720646F776E2074686520
      7368696674206B657920616E6420636C69636B696E67206F6E20746865206C61
      7374207265636F726420796F752077616E742073656C65637465642E5C706172
      0D0A322E5C74616220436C69636B206F6E2061206E657720636F6C756D6E2077
      6974686F7574207573696E6720746865204354524C206F722074686520536869
      6674206B6579732C20616E6420616C6C207265636F7264732065786365707420
      7468652063757272656E74207265636F7264206265636F6D6520756E73656C65
      637465642E5C7061720D0A332E205C74616220446973706C6179206120636865
      636B626F782077686963682074686520656E642D757365722063616E20636C69
      636B206F6E20746F2073656C656374207265636F7264732E5C7061720D0A5C70
      6172645C736134335C7061720D0A5C6366315C7061720D0A7D0D0A00}
  end
  object wwDataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 32
    Top = 16
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'Code'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 5
      end
      item
        Name = 'Description'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 64
    Top = 16
    Data = {
      [encoded data, 8576 characters]
      383038}
    object ClientDataSet1Selected: TBooleanField
      DisplayWidth = 5
      FieldKind = fkCalculated
      FieldName = 'Selected'
      Calculated = True
    end
    object ClientDataSet1Code: TStringField
      DisplayWidth = 8
      FieldName = 'Code'
      Size = 5
    end
    object ClientDataSet1Description: TStringField
      DisplayWidth = 24
      FieldName = 'Description'
      Size = 25
    end
  end
end
