object FormatForm: TFormatForm
  Left = 161
  Top = 192
  Caption = 'Consistent Edit/Display Formatting'
  ClientHeight = 182
  ClientWidth = 469
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 73
    Top = 42
    Width = 102
    Height = 13
    Alignment = taRightJustify
    Caption = 'Length in Centimeters'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 4210752
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 155
    Top = 79
    Width = 21
    Height = 13
    Alignment = taRightJustify
    Caption = 'Cost'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 4210752
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 92
    Top = 116
    Width = 83
    Height = 13
    Alignment = taRightJustify
    Caption = 'Weight in pounds'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 4210752
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 8
    Top = 143
    Width = 177
    Height = 25
    AutosizeStyle = asSizeNavButtons
    DataSource = DataSource1
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    Transparent = True
    object wwDBNavigator1First: TwwNavButton
      Left = 0
      Top = 0
      Width = 30
      Height = 25
      Hint = 'Move to first record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1First'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFirst
    end
    object wwDBNavigator1PriorPage: TwwNavButton
      Left = 30
      Top = 0
      Width = 30
      Height = 25
      Hint = 'Move backward 10 records'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1PriorPage'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPriorPage
    end
    object wwDBNavigator1Prior: TwwNavButton
      Left = 60
      Top = 0
      Width = 30
      Height = 25
      Hint = 'Move to prior record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Prior'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsPrior
    end
    object wwDBNavigator1Next: TwwNavButton
      Left = 90
      Top = 0
      Width = 29
      Height = 25
      Hint = 'Move to next record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Next'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsNext
    end
    object wwDBNavigator1NextPage: TwwNavButton
      Left = 119
      Top = 0
      Width = 29
      Height = 25
      Hint = 'Move forward 10 records'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1NextPage'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsNextPage
    end
    object wwDBNavigator1Last: TwwNavButton
      Left = 148
      Top = 0
      Width = 29
      Height = 25
      Hint = 'Move to last record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Last'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 5
      Style = nbsLast
    end
  end
  object wwDBEdit2: TwwDBEdit
    Left = 17
    Top = 22
    Width = 160
    Height = 19
    BorderStyle = bsNone
    DataField = 'Payment Method'
    DataSource = DataSource1
    EditAlignment = eaRightAlignEditing
    Frame.Enabled = True
    Frame.Transparent = True
    Frame.FocusStyle = efsFrameSunken
    TabOrder = 1
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBEdit3: TwwDBEdit
    Left = 17
    Top = 59
    Width = 160
    Height = 19
    BorderStyle = bsNone
    DataField = 'Total Invoice'
    DataSource = DataSource1
    EditAlignment = eaRightAlignEditing
    Frame.Enabled = True
    Frame.Transparent = True
    Frame.FocusStyle = efsFrameSunken
    TabOrder = 2
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBSpinEdit1: TwwDBSpinEdit
    Left = 16
    Top = 95
    Width = 160
    Height = 19
    EditAlignment = eaRightAlignEditing
    Increment = 1.000000000000000000
    BorderStyle = bsNone
    DataField = 'Balance Due'
    DataSource = DataSource1
    Frame.Enabled = True
    Frame.Transparent = True
    Frame.FocusStyle = efsFrameSunken
    TabOrder = 3
    UnboundDataType = wwDefault
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 196
    Top = 8
    Width = 265
    Height = 160
    SaveFormat = wwrsfPlainTextUnicode
    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 5'
    TabOrder = 4
    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 = {
      32030000FFFE54006800690073002000640065006D006F002000730068006F00
      77007300200068006F0077002000740068006500200049006E0066006F005000
      6F0077006500720020006500640069007400200063006F006E00740072006F00
      6C0073002000630061006E0020006500640069007400200069006E0020007400
      680065002000730061006D006500200066006F0072006D006100740020006100
      730020007400680065007900200064006900730070006C00610079002E002000
      2000540068006900730020006900730020006500730070006500630069006100
      6C006C007900200063006F006E00760065006E00690065006E00740020006100
      6E006400200063006C00650061007200200074006F0020007400680065002000
      65006E0064002D0075007300650072002E002000200046007500720074006800
      650072006D006F0072006500200063006F006E00740072006F006C0073002000
      770068006F007300650020007400650078007400200069007300200064006900
      730070006C00610079006500640020006F006E00200074006800650020007200
      6900670068007400200073006900640065002000630061006E00200061006C00
      73006F0020006500640069007400200077006900740068002000740068006500
      2000740065007800740020006F006E0020007400680065002000720069006700
      68007400200073006900640065002E00200054006F00200061006C006C006F00
      77002000650064006900740069006E006700200074006F002000700072006500
      730065007200760065002000740068006500200066006F0072006D0061007400
      740069006E0067002C00200079006F0075002000770069006C006C0020006E00
      650065006400200074006F002000610073007300690067006E00200074006800
      6500200074006600690065006C0064002E0064006900730070006C0061007900
      66006F0072006D00610074002000700072006F00700065007200740079002000
      66006F007200200074006800650020006600690065006C006400200074006800
      610074002000740068006500200063006F006E00740072006F006C0020006900
      7300200062006F0075006E006400200074006F002E00}
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 224
    Top = 48
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'Customer No'
        Attributes = [faUnNamed]
        DataType = ftInteger
      end
      item
        Name = 'Invoice No'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Payment Method'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Total Invoice'
        Attributes = [faUnNamed]
        DataType = ftCurrency
      end
      item
        Name = 'Purchase Date'
        Attributes = [faUnNamed]
        DataType = ftDate
      end
      item
        Name = 'Balance Due'
        Attributes = [faUnNamed]
        DataType = ftCurrency
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 256
    Top = 48
    Data = {
      [encoded data, 23616 characters]
      80B3C540}
    object ClientDataSet1CustomerNo: TIntegerField
      FieldName = 'Customer No'
    end
    object ClientDataSet1InvoiceNo: TFloatField
      FieldName = 'Invoice No'
    end
    object ClientDataSet1PaymentMethod: TFloatField
      FieldName = 'Payment Method'
      DisplayFormat = '# cm'
    end
    object ClientDataSet1TotalInvoice: TCurrencyField
      FieldName = 'Total Invoice'
      DisplayFormat = #39'$'#39'0.00'
    end
    object ClientDataSet1PurchaseDate: TDateField
      FieldName = 'Purchase Date'
    end
    object ClientDataSet1BalanceDue: TCurrencyField
      FieldName = 'Balance Due'
      DisplayFormat = '0.## lb'
    end
  end
end
