object DataGroupForm: TDataGroupForm
  Left = 63
  Top = 62
  Caption = 'Grouping by common data'
  ClientHeight = 431
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 0
    Width = 632
    Height = 287
    LineStyle = glsSingle
    Selected.Strings = (
      'Company'#9'30'#9'Company'
      'EmpNo'#9'10'#9'EmpNo'
      'OrderNo'#9'7'#9'OrderNo'
      'SaleDate'#9'18'#9'SaleDate'
      'ShipDate'#9'18'#9'ShipDate'
      'ShipVIA'#9'7'#9'ShipVIA'
      'Terms'#9'6'#9'Terms'
      'PaymentMethod'#9'12'#9'PaymentMethod'
      'ItemsTotal'#9'10'#9'ItemsTotal'
      'TaxRate_1'#9'10'#9'TaxRate_1'
      'Freight'#9'10'#9'Freight'
      'AmountPaid'#9'10'#9'AmountPaid')
    IniAttributes.FileName = 'delphi32.ini.ini'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clWhite
    FixedCols = 1
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = DataSource1
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgFixedResizable, dgDblClickColSizing]
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = True
    OnTitleButtonClick = wwDBGrid1TitleButtonClick
    OnDrawDataCell = wwDBGrid1DrawDataCell
    OnKeyDown = wwDBGrid1KeyDown
    OnMouseDown = wwDBGrid1MouseDown
    OnTopRowChanged = wwDBGrid1TopRowChanged
    OnCalcTitleImage = wwDBGrid1CalcTitleImage
    TitleImageList = ImageList1
    PadColumnStyle = pcsPlain
    PaintOptions.BackgroundBitmap.Data = {
      [encoded data, 9408 characters]
      0000E1000000E1000000E1000000E1000000E1000000E1000000E1000000}
    PaintOptions.BackgroundDrawStyle = bdsStretch
    PaintOptions.AlternatingRowRegions = [arrDataColumns, arrActiveDataColumn]
    PaintOptions.AlternatingRowColor = clTeal
    PaintOptions.BackgroundOptions = [coBlendFixedRow, coBlendFixedColumn]
    object wwDBGrid1IButton: TwwIButton
      Left = 0
      Top = 0
      Width = 18
      Height = 19
      AllowAllUp = True
      Flat = True
      Glyph.Data = {
        9E020000424D9E0200000000000036000000280000000E0000000E0000000100
        18000000000068020000130B0000130B000000000000000000000000FF000000
        0000000000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
        FF0000FF00000000000000000000000000000000FF0000FF0000FF0000FF0000
        FF0000FF0000FF0000FF0000FF0000FF0000000000FFFFFF0000000000000000
        000000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00000000
        FF000000FFFFFF0000000000000000000000FF0000FF0000FF0000FF0000FF00
        00FF0000FF0000FF00000000FF0000FF000000FFFFFF00000000000000000000
        00000000000000008080800000FF0000FF0000FF00000000FF0000FF0000FF00
        0000FFFFFF000000000000808080C0C0C0C0C0C08080800000000000FF0000FF
        00000000FF0000FF0000FF0000FF000000000000808080C0C0C0C0C0C0FFFFFF
        C0C0C08080800000000000FF00000000FF0000FF0000FF0000FF000000808080
        C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFC0C0C080808080808000000000FF0000FF
        0000FF0000FF000000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FFFFFFC0C0
        C000000000000000FF0000FF0000FF0000FF000000808080C0C0C0FFFFFFFFFF
        FFC0C0C0C0C0C0C0C0C0C0C0C000000000000000FF0000FF0000FF0000FF8080
        80808080808080FFFFFFFFFFFFC0C0C0C0C0C0C0C0C080808080808000000000
        FF0000FF0000FF0000FF0000FF000000808080808080C0C0C0C0C0C0C0C0C080
        80800000000000FF00000000FF0000FF0000FF0000FF0000FF0000FF00000080
        80808080808080808080800000000000FF0000FF00000000FF0000FF0000FF00
        00FF0000FF0000FF0000FF8080800000000000008080800000FF0000FF0000FF
        0000}
      Margin = 0
      OnClick = wwDBGrid1IButtonClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 412
    Width = 632
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 
      'Click on Title to Sort by Field Ascending/Descending.  Right Cli' +
      'ck on Title to Group By Field.'
  end
  object Panel1: TPanel
    Left = 0
    Top = 287
    Width = 632
    Height = 125
    Align = alBottom
    BorderWidth = 3
    Caption = 'Panel1'
    TabOrder = 2
    object wwDBRichEdit1: TwwDBRichEdit
      Left = 4
      Top = 4
      Width = 624
      Height = 117
      ScrollBars = ssVertical
      Align = alClient
      AutoURLDetect = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      GutterWidth = 3
      HideSelection = False
      ParentFont = False
      PrintJobName = 'Delphi 7'
      TabOrder = 0
      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 = 'MS Sans Serif'
      PrintHeader.Font.Style = []
      PrintFooter.VertMargin = 0.500000000000000000
      PrintFooter.Font.Charset = DEFAULT_CHARSET
      PrintFooter.Font.Color = clWindowText
      PrintFooter.Font.Height = -11
      PrintFooter.Font.Name = 'MS Sans Serif'
      PrintFooter.Font.Style = []
      RichEditVersion = 2
      Data = {
        670400007B5C727466315C616E73695C616E7369637067313235325C64656666
        305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C
        66636861727365743020417269616C3B7D7D0D0A7B5C636F6C6F7274626C203B
        5C7265643235355C677265656E3235355C626C7565303B5C7265643235355C67
        7265656E305C626C7565303B7D0D0A5C766965776B696E64345C7563315C7061
        72645C686967686C69676874315C625C66733138204E65775C686967686C6967
        6874305C6920202D2047726F75702053696D696C617220446174615C62305C69
        302020202D20496E20746869732064656D6F2C20796F752063616E205C636632
        5C6220726967687420636C69636B206F6E2061207469746C65205C6366305C62
        3020616E642063686F6F7365206120636F6C756D6E20746F2067726F75702062
        792E2020466F72206578616D706C652C2067726F757020627920436F6D70616E
        7920746F2073656520616C6C2074686520456D704E6F2773206173736F636961
        7465642077697468206561636820436F6D70616E792E202047726F7570206279
        20456D704E6F20746F2073656520616C6C20746865206F726465727320617373
        6F6369617465642077697468206561636820456D704E6F2E5C7061720D0A5C70
        61720D0A5C686967686C69676874315C62204E65775C686967686C6967687430
        5C6920202D204265737420466974204F7074696F6E5C693020205C623020202D
        204E6F7720796F757220656E647573657273722063616E2064626C2D636C6963
        6B696E67206265747765656E20636F6C756D6E7320696E206F7264657220746F
        2073697A65207468652067726964277320636F6C756D6E206261736564206F6E
        207468652076697369626C65206461746120696E2074686520677269642C206F
        7220696E20746869732064656D6F20627920726967687420636C69636B696E67
        20616E642073656C656374696E672074686174206974656D2E205C7061720D0A
        5C7061720D0A5C625C6920536F727420417363656E64696E672F44657363656E
        64696E675C62305C69302020202D20546869732064656D6F2073686F77732068
        6F7720746F20736F7274207265636F72647320617363656E64696E67206F7220
        64657363656E64696E6720696E2074686520617474616368656420636C69656E
        7420646174617365742E2020526967687420636C69636B206F6E207468652074
        69746C6520746F2073656C6563742E5C7061720D0A5C7061720D0A5C625C6920
        496E6372656D656E74616C2044726177696E67205C62305C693020202D205269
        67687420436C69636B20616E642074727920746F2066696E6420612076616C75
        65206F7220636C69636B206F6E20746865206D61676E696679696E6720676C61
        737320746F206C6F6F6B757020612076616C75652E2020536565207468652072
        6573756C74696E67207265636F7264732074686174206D617463682074686520
        637269746572696120686967686C69676874656420696E207468652067726964
        2E5C7061720D0A7D0D0A00}
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 64
    Top = 16
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'Company'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'OrderNo'
        DataType = ftFloat
      end
      item
        Name = 'SaleDate'
        DataType = ftDateTime
      end
      item
        Name = 'ShipDate'
        DataType = ftDateTime
      end
      item
        Name = 'EmpNo'
        DataType = ftInteger
      end
      item
        Name = 'ShipToContact'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ShipToAddr1'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ShipToAddr2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ShipToCity'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ShipToState'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ShipToZip'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'ShipToCountry'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ShipToPhone'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ShipVIA'
        DataType = ftString
        Size = 7
      end
      item
        Name = 'PO'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Terms'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'PaymentMethod'
        DataType = ftString
        Size = 7
      end
      item
        Name = 'ItemsTotal'
        DataType = ftCurrency
      end
      item
        Name = 'TaxRate_1'
        DataType = ftFloat
      end
      item
        Name = 'Freight'
        DataType = ftCurrency
      end
      item
        Name = 'AmountPaid'
        DataType = ftCurrency
      end
      item
        Name = 'CustNo'
        DataType = ftFloat
      end
      item
        Name = 'Addr1'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Addr2'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'City'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'State'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Zip'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Country'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Phone'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'FAX'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'TaxRate'
        DataType = ftFloat
      end
      item
        Name = 'Contact'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'LastInvoiceDate'
        DataType = ftDateTime
      end
      item
        Name = 'CustNo_1'
        DataType = ftFloat
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 96
    Top = 48
    Data = {
      [encoded data, 91776 characters]
      000D4C6F75697365204672616E6B7300446FBD72A0CC42000000008038C340}
    object ClientDataSet1Company: TStringField
      DisplayWidth = 30
      FieldName = 'Company'
      Size = 30
    end
    object ClientDataSet1EmpNo: TIntegerField
      DisplayWidth = 10
      FieldName = 'EmpNo'
    end
    object ClientDataSet1OrderNo: TFloatField
      DisplayWidth = 7
      FieldName = 'OrderNo'
    end
    object ClientDataSet1SaleDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'SaleDate'
    end
    object ClientDataSet1ShipDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'ShipDate'
    end
    object ClientDataSet1ShipVIA: TStringField
      DisplayWidth = 7
      FieldName = 'ShipVIA'
      Size = 7
    end
    object ClientDataSet1Terms: TStringField
      DisplayWidth = 6
      FieldName = 'Terms'
      Size = 6
    end
    object ClientDataSet1PaymentMethod: TStringField
      DisplayWidth = 12
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object ClientDataSet1ItemsTotal: TCurrencyField
      DisplayWidth = 10
      FieldName = 'ItemsTotal'
    end
    object ClientDataSet1TaxRate_1: TFloatField
      DisplayWidth = 10
      FieldName = 'TaxRate_1'
    end
    object ClientDataSet1Freight: TCurrencyField
      DisplayWidth = 10
      FieldName = 'Freight'
    end
    object ClientDataSet1AmountPaid: TCurrencyField
      DisplayWidth = 10
      FieldName = 'AmountPaid'
    end
    object ClientDataSet1PO: TStringField
      DisplayWidth = 15
      FieldName = 'PO'
      Visible = False
      Size = 15
    end
    object ClientDataSet1ShipToContact: TStringField
      DisplayWidth = 20
      FieldName = 'ShipToContact'
      Visible = False
    end
    object ClientDataSet1ShipToAddr1: TStringField
      DisplayWidth = 30
      FieldName = 'ShipToAddr1'
      Visible = False
      Size = 30
    end
    object ClientDataSet1ShipToAddr2: TStringField
      DisplayWidth = 30
      FieldName = 'ShipToAddr2'
      Visible = False
      Size = 30
    end
    object ClientDataSet1ShipToCity: TStringField
      DisplayWidth = 15
      FieldName = 'ShipToCity'
      Visible = False
      Size = 15
    end
    object ClientDataSet1ShipToState: TStringField
      DisplayWidth = 20
      FieldName = 'ShipToState'
      Visible = False
    end
    object ClientDataSet1ShipToZip: TStringField
      DisplayWidth = 10
      FieldName = 'ShipToZip'
      Visible = False
      Size = 10
    end
    object ClientDataSet1ShipToCountry: TStringField
      DisplayWidth = 20
      FieldName = 'ShipToCountry'
      Visible = False
    end
    object ClientDataSet1ShipToPhone: TStringField
      DisplayWidth = 15
      FieldName = 'ShipToPhone'
      Visible = False
      Size = 15
    end
    object ClientDataSet1CustNo: TFloatField
      FieldName = 'CustNo'
      Visible = False
    end
    object ClientDataSet1City: TStringField
      FieldName = 'City'
      Visible = False
      Size = 15
    end
    object ClientDataSet1State: TStringField
      FieldName = 'State'
      Visible = False
    end
    object ClientDataSet1Zip: TStringField
      FieldName = 'Zip'
      Visible = False
      Size = 10
    end
    object ClientDataSet1Country: TStringField
      FieldName = 'Country'
      Visible = False
    end
    object ClientDataSet1Phone: TStringField
      FieldName = 'Phone'
      Visible = False
      Size = 15
    end
    object ClientDataSet1FAX: TStringField
      FieldName = 'FAX'
      Visible = False
      Size = 15
    end
    object ClientDataSet1TaxRate: TFloatField
      FieldName = 'TaxRate'
      Visible = False
    end
    object ClientDataSet1Contact: TStringField
      FieldName = 'Contact'
      Visible = False
    end
    object ClientDataSet1LastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
      Visible = False
    end
    object ClientDataSet1CustNo_1: TFloatField
      FieldName = 'CustNo_1'
      Visible = False
    end
  end
  object ImageList1: TImageList
    Left = 147
    Top = 131
    Bitmap = {
      [encoded data, 17216 characters]
      000000000000}
  end
  object PopupMenu1: TPopupMenu
    Images = ImageList1
    Left = 312
    Top = 192
    object GroupByThisColumn1: TMenuItem
      Caption = 'Group By This Column'
      ImageIndex = 5
      OnClick = GroupByThisColumn1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object SortAscending1: TMenuItem
      AutoCheck = True
      Caption = 'Sort Ascending'
      ImageIndex = 2
      OnClick = SortAscending1Click
    end
    object SortDescending1: TMenuItem
      AutoCheck = True
      Caption = 'Sort Descending'
      ImageIndex = 3
      OnClick = SortDescending1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object FindValue1: TMenuItem
      Caption = 'Find Value'
      ImageIndex = 4
      OnClick = FindValue1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object BestFit1: TMenuItem
      Caption = 'Best Fit'
      OnClick = BestFit1Click
    end
    object Alignment1: TMenuItem
      Caption = 'Alignment'
      object Left1: TMenuItem
        Caption = 'Left'
        OnClick = Left1Click
      end
      object Center1: TMenuItem
        Caption = 'Center'
        OnClick = Center1Click
      end
      object Right1: TMenuItem
        Caption = 'Right'
        OnClick = Right1Click
      end
    end
  end
  object MemorySearch: TwwLocateDialog
    Caption = 'Locate Field Value'
    DataSource = DataSource1
    SearchField = 'Company'
    MatchType = mtPartialMatchStart
    CaseSensitive = False
    SortFields = fsSortByFieldName
    DefaultButton = dbFindNext
    FieldSelection = fsAllFields
    ShowMessages = True
    Left = 104
    Top = 168
  end
end
