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

Text File | 1999-06-21 | 17KB | 719 lines

object frmSrwAddSection: TfrmSrwAddSection
  Left = 100
  Top = 144
  BorderStyle = bsDialog
  Caption = 'Sections Builder'
  ClientHeight = 268
  ClientWidth = 424
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  KeyPreview = True
  PixelsPerInch = 96
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  TextHeight = 13
  object bevLayout: TBevel
    Left = 58
    Top = 234
    Width = 362
    Height = 2
  end
  object nbkLayout: TNotebook
    Left = 58
    Top = 4
    Width = 363
    Height = 227
    TabOrder = 0
    OnPageChanged = nbkLayoutPageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'Add Sections'
      object Shape17: TShape
        Left = 308
        Top = 146
        Width = 30
        Height = 2
        Pen.Color = clNavy
      end
      object Shape15: TShape
        Left = 308
        Top = 82
        Width = 30
        Height = 2
        Pen.Color = clNavy
      end
      object Shape9: TShape
        Left = 308
        Top = 18
        Width = 52
        Height = 2
        Brush.Color = clPurple
        Pen.Color = clPurple
      end
      object Shape10: TShape
        Left = 308
        Top = 210
        Width = 52
        Height = 2
        Brush.Color = clPurple
        Pen.Color = clPurple
      end
      object Shape12: TShape
        Left = 308
        Top = 178
        Width = 40
        Height = 2
        Pen.Color = clTeal
      end
      object Shape14: TShape
        Left = 308
        Top = 50
        Width = 40
        Height = 2
        Pen.Color = clTeal
      end
      object Label8: TLabel
        Left = 1
        Top = 0
        Width = 76
        Height = 13
        Caption = 'Add Sections'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Shape2: TShape
        Left = 156
        Top = 0
        Width = 161
        Height = 33
        Brush.Color = clPurple
      end
      object Shape3: TShape
        Left = 156
        Top = 32
        Width = 161
        Height = 33
        Brush.Color = clTeal
      end
      object Shape4: TShape
        Left = 156
        Top = 64
        Width = 161
        Height = 33
        Brush.Color = clNavy
      end
      object Shape5: TShape
        Left = 156
        Top = 96
        Width = 161
        Height = 33
        Brush.Color = clMaroon
      end
      object Shape6: TShape
        Left = 156
        Top = 128
        Width = 161
        Height = 33
        Brush.Color = clNavy
      end
      object Shape7: TShape
        Left = 156
        Top = 160
        Width = 161
        Height = 33
        Brush.Color = clTeal
      end
      object Shape8: TShape
        Left = 156
        Top = 192
        Width = 161
        Height = 33
        Brush.Color = clPurple
      end
      object Label1: TLabel
        Left = 12
        Top = 20
        Width = 137
        Height = 61
        AutoSize = False
        Caption =
          'Reports are built from sections on a page.  Each section prints ' +
          'data in unique ways.'
        WordWrap = True
      end
      object Label2: TLabel
        Left = 12
        Top = 136
        Width = 133
        Height = 73
        AutoSize = False
        Caption =
          'Gray sections are already active in the current report, and cann' +
          'ot be added again.'
        WordWrap = True
      end
      object Label3: TLabel
        Left = 12
        Top = 84
        Width = 137
        Height = 49
        AutoSize = False
        Caption = 'Check one or more sections to add to the current report.'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Shape11: TShape
        Left = 358
        Top = 18
        Width = 2
        Height = 194
        Brush.Color = clPurple
        Pen.Color = clPurple
      end
      object Shape13: TShape
        Left = 348
        Top = 50
        Width = 2
        Height = 130
        Pen.Color = clTeal
      end
      object Shape16: TShape
        Left = 338
        Top = 82
        Width = 2
        Height = 66
        Pen.Color = clNavy
      end
      object chkReportHeader: TCheckBox
        Left = 164
        Top = 10
        Width = 141
        Height = 17
        Caption = 'Report Header'
        Color = clPurple
        Ctl3D = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
      object chkPageHeader: TCheckBox
        Left = 164
        Top = 42
        Width = 109
        Height = 17
        Caption = 'Page Header'
        Color = clTeal
        Ctl3D = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
      end
      object chkGroupHeader: TCheckBox
        Left = 164
        Top = 74
        Width = 105
        Height = 17
        Caption = 'Group Header'
        Color = clNavy
        Ctl3D = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 2
      end
      object chkDetailSection: TCheckBox
        Left = 164
        Top = 106
        Width = 121
        Height = 17
        Caption = 'Detail Section'
        Color = clMaroon
        Ctl3D = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 3
      end
      object chkGroupFooter: TCheckBox
        Left = 164
        Top = 138
        Width = 105
        Height = 17
        Caption = 'Group Footer'
        Color = clNavy
        Ctl3D = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 4
      end
      object chkPageFooter: TCheckBox
        Left = 164
        Top = 170
        Width = 105
        Height = 17
        Caption = 'Page Footer'
        Color = clTeal
        Ctl3D = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 5
      end
      object chkReportFooter: TCheckBox
        Left = 164
        Top = 202
        Width = 141
        Height = 17
        Caption = 'Report Footer'
        Color = clPurple
        Ctl3D = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 6
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Add Detail'
      object labDetail1: TLabel
        Left = 1
        Top = 0
        Width = 113
        Height = 13
        Caption = 'Add Detail Sections'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object labDetail2: TLabel
        Left = 12
        Top = 56
        Width = 345
        Height = 29
        AutoSize = False
        Caption =
          'A report can have up to 5 detail sections. The current report ha' +
          's x detail sections.'
        WordWrap = True
      end
      object labDetail3: TLabel
        Left = 12
        Top = 20
        Width = 341
        Height = 33
        AutoSize = False
        Caption =
          'Multiple detail sections are used to stack variable length objec' +
          'ts, such as memos and verticle lines.'
        WordWrap = True
      end
      object labDetail5: TLabel
        Left = 12
        Top = 96
        Width = 261
        Height = 21
        AutoSize = False
        Caption = 'Add the following number of detail sections:'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object spnDetail: TSpinEdit
        Left = 272
        Top = 96
        Width = 41
        Height = 22
        MaxValue = 5
        MinValue = 1
        TabOrder = 0
        Value = 1
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Add Fields'
      object labGroup1: TLabel
        Left = 1
        Top = 0
        Width = 145
        Height = 13
        Caption = 'Select Fields to Group on'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object labGroup3: TLabel
        Left = 13
        Top = 80
        Width = 145
        Height = 16
        AutoSize = False
        Caption = 'Available Fields'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        IsControl = True
      end
      object IncludeBtn: TSpeedButton
        Left = 174
        Top = 100
        Width = 24
        Height = 24
        Caption = '>'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = IncludeBtnClick
        IsControl = True
      end
      object IncAllBtn: TSpeedButton
        Left = 174
        Top = 132
        Width = 24
        Height = 24
        Caption = '>>'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = IncAllBtnClick
        IsControl = True
      end
      object ExcludeBtn: TSpeedButton
        Left = 174
        Top = 164
        Width = 24
        Height = 24
        Caption = '<'
        Enabled = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = ExcludeBtnClick
        IsControl = True
      end
      object ExAllBtn: TSpeedButton
        Left = 174
        Top = 196
        Width = 24
        Height = 24
        Caption = '<<'
        Enabled = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = ExcAllBtnClick
        IsControl = True
      end
      object labGroup4: TLabel
        Left = 204
        Top = 80
        Width = 145
        Height = 16
        AutoSize = False
        Caption = 'Selected Fields'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        IsControl = True
      end
      object labGroup2: TLabel
        Left = 12
        Top = 20
        Width = 345
        Height = 29
        AutoSize = False
        Caption =
          'A report can have up to 10 Groups. The current report has x acti' +
          've Groups.'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label5: TLabel
        Left = 12
        Top = 56
        Width = 345
        Height = 21
        AutoSize = False
        Caption = 'Select fields below to add additional Groups.'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object srcList: TListBox
        Left = 12
        Top = 96
        Width = 157
        Height = 129
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        MultiSelect = True
        ParentFont = False
        TabOrder = 0
        IsControl = True
      end
      object dstList: TListBox
        Left = 204
        Top = 96
        Width = 157
        Height = 129
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        MultiSelect = True
        ParentFont = False
        TabOrder = 1
        IsControl = True
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Finish'
      object Label15: TLabel
        Left = 1
        Top = 0
        Width = 92
        Height = 13
        Caption = 'Confirm Choices'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object labFinish1: TLabel
        Left = 12
        Top = 20
        Width = 345
        Height = 21
        AutoSize = False
        Caption = 'You have requested to add x Sections, as follows:'
        WordWrap = True
      end
      object labFinish2: TLabel
        Left = 16
        Top = 128
        Width = 345
        Height = 21
        AutoSize = False
        Caption = 'Press Finish to implement your requested changes.'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object labFinish3: TLabel
        Left = 16
        Top = 152
        Width = 333
        Height = 29
        AutoSize = False
        Caption = 'Press Back to modify your requested changes.'
        WordWrap = True
      end
      object Label4: TLabel
        Left = 16
        Top = 176
        Width = 345
        Height = 21
        AutoSize = False
        Caption = 'Press Cancel to abort all requested changes.'
        WordWrap = True
      end
      object labMessage1: TLabel
        Left = 44
        Top = 44
        Width = 58
        Height = 13
        Caption = 'Message1'
      end
      object labMessage2: TLabel
        Left = 44
        Top = 64
        Width = 58
        Height = 13
        Caption = 'Message2'
      end
      object labMessage3: TLabel
        Left = 44
        Top = 84
        Width = 58
        Height = 13
        Caption = 'Message3'
      end
      object labMessage4: TLabel
        Left = 44
        Top = 104
        Width = 58
        Height = 13
        Caption = 'Message4'
      end
    end
  end
  object cmdHelp: TBitBtn
    Left = 58
    Top = 240
    Width = 88
    Height = 25
    Caption = '&Help'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = cmdHelpClick
    Style = bsNew
  end
  object cmdBack: TBitBtn
    Left = 150
    Top = 240
    Width = 88
    Height = 25
    Caption = '< &Back'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = cmdBackClick
    Style = bsNew
  end
  object cmdNext: TBitBtn
    Left = 241
    Top = 240
    Width = 88
    Height = 25
    Caption = '&Next >'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = cmdNextClick
    Style = bsNew
  end
  object cmdCancel: TBitBtn
    Left = 332
    Top = 240
    Width = 88
    Height = 25
    Caption = '&Cancel'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = cmdCancelClick
    Style = bsNew
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 0
    Width = 49
    Height = 265
    TabOrder = 5
    object imgIcon: TImage
      Left = 8
      Top = 12
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image000.bmp>}
    end
    object pntIcon: TPaintBox
      Left = 8
      Top = 48
      Width = 33
      Height = 209
      Font.Color = clNavy
      Font.Height = -27
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnPaint = pntIconPaint
    end
  end
end