Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EmpireBuilder.exe/0/RCDATA/TFMMAILMERGE/TFMMAILMERGE.txt

Text File | 1999-06-21 | 3KB | 158 lines

object fmMailMerge: TfmMailMerge
  Left = 265
  Top = 159
  HelpContext = 589
  AutoScroll = False
  Caption = 'Mail Merge'
  ClientHeight = 152
  ClientWidth = 414
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 107
    Width = 414
    Height = 45
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object BtnOk: TButton
      Left = 6
      Top = 8
      Width = 80
      Height = 30
      Hint = 'Copy the data to a file'
      Caption = '&Ok'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BtnOkClick
    end
    object BtnCancel: TButton
      Left = 177
      Top = 8
      Width = 80
      Height = 30
      Caption = '&Cancel'
      ModalResult = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object BtnSelect: TButton
      Left = 91
      Top = 8
      Width = 80
      Height = 30
      Hint = 'Select specific fields to copy'
      Caption = '&Fields'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BtnSelectClick
    end
    object BtnHelp: TButton
      Left = 327
      Top = 8
      Width = 80
      Height = 30
      HelpContext = 589
      Caption = '&Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BtnHelpClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 414
    Height = 107
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object rbWhichData: TRadioGroup
      Left = 16
      Top = 12
      Width = 185
      Height = 89
      Caption = 'Select Data'
      ItemIndex = 0
      Items.Strings = (
        'C&ustomer'
        'Su&pplier')
      TabOrder = 0
    end
    object rgOptions: TRadioGroup
      Left = 216
      Top = 12
      Width = 185
      Height = 89
      Caption = 'Options'
      ItemIndex = 0
      Items.Strings = (
        'Copy &All Records'
        'Use The &Filter')
      TabOrder = 1
    end
  end
  object taMailMerge: TwwTable
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 368
    Top = 65
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.dbf'
    Filter =
      'DBase Database File(*.DBF)|*.dbf|Paradox Database File(*.DB)|*.d' +
      'b|Fixed Field ACSII File(*.TXT)|*.txt|ACSII Delimited File(*.TXT' +
      ')|*.txt'
    Title = 'Save Mail Merge File'
    Left = 372
    Top = 35
  end
  object DualListDialog: TDualListDialog
    Sorted = False
    Title = 'Select Fields'
    HelpContext = 0
    Left = 140
    Top = 7
  end
  object TableItems: TTableItems
    DatabaseName = 'EmpireBuilder'
    TableName = 'Customer.DBF'
    Left = 140
    Top = 35
    object TableItemsNAME: TStringField
      FieldName = 'NAME'
      Size = 31
    end
    object TableItemsTYPE: TWordField
      FieldName = 'TYPE'
    end
    object TableItemsUNITS1: TWordField
      FieldName = 'UNITS1'
    end
    object TableItemsUNITS2: TWordField
      FieldName = 'UNITS2'
    end
  end
  object DestTable: TTable
    Left = 372
    Top = 7
  end
end