Chip: 25 Years Anniversary/CHIP_25Jahre_Jubilaeum.iso/downloads/401065/WPO11/Data1.cab/PleadFil110.exe/0/RCDATA/TFRMPLEADEXP/TFRMPLEADEXP.txt

Text File | 2003-03-07 | 23KB | 996 lines

object frmPleadExp: TfrmPleadExp
  Left = 399
  Top = 81
  ActiveControl = btnNext
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Pleading Expert - Case Information'
  ClientHeight = 364
  ClientWidth = 506
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Pitch = fpVariable
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object lblTblCourt: TLabel
    Left = 2
    Top = 354
    Width = 46
    Height = 14
    Caption = 'tblCOURT'
    Visible = False
  end
  object lbltblCases: TLabel
    Left = 60
    Top = 354
    Width = 46
    Height = 14
    Caption = 'tblCASES'
    Visible = False
  end
  object Label1: TLabel
    Left = 221
    Top = 176
    Width = 32
    Height = 14
    Caption = 'Label1'
  end
  object pnlProgress: TPanel
    Left = 7
    Top = 4
    Width = 177
    Height = 310
    HelpContext = 445
    BevelOuter = bvLowered
    Ctl3D = False
    ParentColor = True
    ParentCtl3D = False
    TabOrder = 0
    object ImgBkgnd: TImage
      Left = 0
      Top = 0
      Width = 177
      Height = 313
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object sLineBorder: TShape
      Left = 16
      Top = 14
      Width = 18
      Height = 165
      Brush.Color = clCaptionText
    end
    object s0: TShape
      Left = 10
      Top = 6
      Width = 13
      Height = 17
      Brush.Color = clBlue
      Shape = stCircle
    end
    object s6: TShape
      Tag = 10
      Left = 10
      Top = 170
      Width = 13
      Height = 17
      Brush.Color = clBlue
      Shape = stCircle
    end
    object s2: TShape
      Tag = 2
      Left = 24
      Top = 60
      Width = 20
      Height = 10
    end
    object s3: TShape
      Tag = 3
      Left = 24
      Top = 88
      Width = 20
      Height = 10
    end
    object s4: TShape
      Tag = 4
      Left = 24
      Top = 115
      Width = 20
      Height = 10
    end
    object s5: TShape
      Tag = 5
      Left = 24
      Top = 143
      Width = 20
      Height = 10
    end
    object s1: TShape
      Tag = 1
      Left = 24
      Top = 32
      Width = 20
      Height = 10
    end
    object lbl0: TLabel
      Left = 42
      Top = 10
      Width = 31
      Height = 17
      Caption = 'Start'
      Color = clCaptionText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object lbl1: TLabel
      Tag = 1
      Left = 52
      Top = 30
      Width = 72
      Height = 14
      Caption = 'Case Selection'
      Color = clCaptionText
      ParentColor = False
    end
    object lbl2: TLabel
      Tag = 2
      Left = 52
      Top = 58
      Width = 59
      Height = 14
      Caption = 'Select Court'
      Color = clCaptionText
      ParentColor = False
    end
    object lbl3: TLabel
      Tag = 3
      Left = 52
      Top = 86
      Width = 73
      Height = 14
      Caption = 'Title && Case No'
      Color = clCaptionText
      ParentColor = False
    end
    object lbl4: TLabel
      Tag = 4
      Left = 52
      Top = 112
      Width = 33
      Height = 14
      Caption = 'Parties'
      Color = clCaptionText
      ParentColor = False
    end
    object lbl5: TLabel
      Tag = 5
      Left = 52
      Top = 140
      Width = 87
      Height = 14
      Caption = 'Attorneys && Firms'
      Transparent = True
    end
    object lbl6: TLabel
      Tag = 10
      Left = 42
      Top = 169
      Width = 28
      Height = 14
      Caption = 'Finish'
      Color = clCaptionText
      ParentColor = False
    end
    object lblGoS10: TLabel
      Tag = 6
      Left = 8
      Top = 168
      Width = 190
      Height = 21
      AutoSize = False
      Transparent = True
      OnClick = SwitchPages
    end
    object lblGoS4: TLabel
      Tag = 4
      Left = 24
      Top = 112
      Width = 174
      Height = 23
      AutoSize = False
      Transparent = True
      OnClick = SwitchPages
    end
    object lblGoS3: TLabel
      Tag = 3
      Left = 24
      Top = 86
      Width = 150
      Height = 21
      AutoSize = False
      Transparent = True
      OnClick = SwitchPages
    end
    object lblGoS2: TLabel
      Tag = 2
      Left = 24
      Top = 56
      Width = 174
      Height = 23
      AutoSize = False
      Transparent = True
      OnClick = SwitchPages
    end
    object lblGoS1: TLabel
      Tag = 1
      Left = 16
      Top = 30
      Width = 153
      Height = 19
      AutoSize = False
      Transparent = True
      OnClick = SwitchPages
    end
    object lblGoS0: TLabel
      Left = 32
      Top = 8
      Width = 145
      Height = 17
      AutoSize = False
      Transparent = True
      OnClick = SwitchPages
    end
    object lblGoS5: TLabel
      Tag = 5
      Left = 24
      Top = 136
      Width = 166
      Height = 25
      AutoSize = False
      Transparent = True
      OnClick = SwitchPages
    end
  end
  object nbWizard: TNotebook
    Left = 191
    Top = 4
    Width = 314
    Height = 311
    Ctl3D = False
    PageIndex = 6
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 1
    OnPageChanged = nbWizardPageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'StartWizard'
      object imgBegin: TImage
        Left = 7
        Top = 4
        Width = 300
        Height = 179
        Picture.Data = {<image001.bmp>}
        Stretch = True
      end
      object lblBeginInfo: TLabel
        Left = 8
        Top = 192
        Width = 294
        Height = 75
        AutoSize = False
        Caption =
          'The Pleading Expert organizes and stores pleading document infor' +
          'mation. This information, after being entered once, can be used ' +
          'to create an unlimited number of different pleading documents wi' +
          'th a minimal amount of effort.'
        WordWrap = True
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Case Selection'
      object Label12: TLabel
        Left = 7
        Top = 198
        Width = 73
        Height = 14
        Caption = 'E&xisting cases:'
        FocusControl = dbAvailableCases
      end
      object lblMain1: TLabel
        Left = 8
        Top = 7
        Width = 224
        Height = 33
        AutoSize = False
        Caption = 'Case Selection'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
      end
      object lblCaseSelInfo: TLabel
        Left = 7
        Top = 42
        Width = 298
        Height = 64
        AutoSize = False
        Caption =
          'The Pleading Expert Filler gathers information and uses the Plea' +
          'ding Expert Designer settings to easily create an unlimited numb' +
          'er of different pleading documents.'
        WordWrap = True
      end
      object lblnewName: TLabel
        Left = 170
        Top = 113
        Width = 82
        Height = 14
        Caption = 'New c&ase name '
        FocusControl = eNewName
      end
      object Panel16: TPanel
        Left = 11
        Top = 320
        Width = 448
        Height = 3
        BevelOuter = bvLowered
        Caption = 'Panel16'
        TabOrder = 6
      end
      object dbAvailableCases: TDBGrid
        Left = 7
        Top = 216
        Width = 281
        Height = 90
        HelpContext = 456
        Ctl3D = True
        DataSource = Cases
        Options = [dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 5
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Pitch = fpVariable
        TitleFont.Style = []
        OnDblClick = DblClickToGoToNextPage
        Columns = <
          item
            Expanded = False
            FieldName = 'CaseName'
            Width = 265
            Visible = True
          end>
      end
      object rbNewStyle: TRadioButton
        Left = 7
        Top = 113
        Width = 151
        Height = 17
        Hint = 'Creates a new pleading court based on default settings'
        HelpContext = 451
        Caption = 'Ne&w case'
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
        OnClick = rbNeedsNameClick
      end
      object eNewName: TEdit
        Left = 168
        Top = 129
        Width = 121
        Height = 22
        HelpContext = 453
        Ctl3D = True
        MaxLength = 39
        ParentCtl3D = False
        TabOrder = 2
      end
      object rbCopyStyle: TRadioButton
        Left = 7
        Top = 133
        Width = 159
        Height = 17
        Hint = 'Copies an exisitng court layout to a new name'
        HelpContext = 452
        Caption = '&Copy an existing case'
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
        OnClick = rbNeedsNameClick
      end
      object rbEditStyle: TRadioButton
        Left = 7
        Top = 154
        Width = 174
        Height = 18
        Hint =
          'Edits the court layout style highlighted in "Available pleading ' +
          'styles"'
        HelpContext = 454
        Caption = '&Edit case information'
        Checked = True
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 3
        TabStop = True
        OnClick = rbNeedsNameClick
      end
      object rbDeleteStyle: TRadioButton
        Left = 7
        Top = 174
        Width = 174
        Height = 17
        Hint =
          'Deletes the court layout style highlighted in "Available pleadin' +
          'g styles"'
        HelpContext = 455
        Caption = '&Delete case information'
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 4
        OnClick = rbNeedsNameClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Select Court'
      object lblMain2: TLabel
        Left = 8
        Top = 8
        Width = 238
        Height = 33
        AutoSize = False
        Caption = 'Select Court'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
      end
      object lblSelectCourt: TLabel
        Left = 8
        Top = 42
        Width = 294
        Height = 29
        AutoSize = False
        Caption =
          '&Select the Court pleading style to be used for this pleading do' +
          'cument.'
        FocusControl = dbCourtUsed
        WordWrap = True
      end
      object lblJudgesName: TLabel
        Left = 8
        Top = 206
        Width = 168
        Height = 14
        Caption = '&Enter judge'#39's name and information'
        FocusControl = JudgesName
      end
      object dbCourtUsed: TDBLookupListBox
        Left = 8
        Top = 72
        Width = 175
        Height = 102
        HelpContext = 458
        Ctl3D = True
        DataField = 'CourtUsed'
        DataSource = Cases
        KeyField = 'UserDefCourtName'
        ListField = 'UserDefCourtName'
        ListSource = CourtData
        ParentCtl3D = False
        TabOrder = 0
        OnDblClick = DblClickToGoToNextPage
        OnExit = UpdateDB
      end
      object JudgesName: TDBMemo
        Left = 8
        Top = 221
        Width = 175
        Height = 63
        HelpContext = 474
        Ctl3D = True
        DataField = 'HJudgeInfo'
        DataSource = Cases
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 1
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Case Information'
      object lblMain3: TLabel
        Left = 8
        Top = 8
        Width = 231
        Height = 33
        AutoSize = False
        Caption = 'Title && Case No'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
      end
      object lblCaseNo: TLabel
        Left = 7
        Top = 197
        Width = 301
        Height = 14
        AutoSize = False
        Caption = '&Case number text and case number'
        FocusControl = dbCaseNbr
      end
      object lblPleadingTitle: TLabel
        Left = 7
        Top = 42
        Width = 281
        Height = 18
        AutoSize = False
        Caption = 'Pleading / motion &title'
        FocusControl = mPleadingTitle
      end
      object lblPtitleSummary: TLabel
        Left = 7
        Top = 126
        Width = 289
        Height = 18
        AutoSize = False
        Caption = 'Pleading title &summary'
        FocusControl = mPleadingSummary
      end
      object lblNbrFirms: TLabel
        Left = 7
        Top = 262
        Width = 288
        Height = 18
        AutoSize = False
        Caption = 'N&umber of firms filing with this pleading'
        FocusControl = dbNbrFirmsSpin
      end
      object lblExampleOfCaseText: TLabel
        Left = 34
        Top = 211
        Width = 263
        Height = 14
        AutoSize = False
        Caption = '( e.g.     Case no. BR-549 )'
        FocusControl = dbCaseNbr
      end
      object dbCaseNbr: TDBEdit
        Left = 32
        Top = 228
        Width = 265
        Height = 22
        HelpContext = 462
        AutoSelect = False
        AutoSize = False
        Ctl3D = True
        DataField = 'CaseNbr'
        DataSource = Cases
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 2
        OnExit = UpdateDB
      end
      object mPleadingTitle: TDBMemo
        Left = 30
        Top = 60
        Width = 265
        Height = 59
        HelpContext = 460
        Ctl3D = True
        DataField = 'PleadingTitle'
        DataSource = Cases
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnExit = UpdateDB
      end
      object mPleadingSummary: TDBMemo
        Left = 30
        Top = 144
        Width = 265
        Height = 46
        HelpContext = 461
        Ctl3D = True
        DataField = 'PleadingSummary'
        DataSource = Cases
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 1
        OnExit = UpdateDB
      end
      object dbNbrFirmsSpin: TCSPDBSpin
        Left = 32
        Top = 279
        Width = 65
        Height = 23
        HelpContext = 463
        Ctl3D = True
        MaxValue = 5
        MinValue = 1
        ParentCtl3D = False
        TabOrder = 3
        Value = 1
        OnChange = dbNbrFirmsSpinChange
        OnExit = dbNbrFirmsSpinExit
        DataField = 'NbrFirms'
        DataSource = Cases
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Caption Information'
      object lblMain4: TLabel
        Left = 8
        Top = 9
        Width = 224
        Height = 33
        AutoSize = False
        Caption = 'Parties'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
      end
      object lblPlaintiffInfo: TLabel
        Left = 8
        Top = 174
        Width = 289
        Height = 17
        AutoSize = False
        Caption = 'W&hat are the names of the'
        FocusControl = PlaintiffMemo
      end
      object lblDefendantInfo: TLabel
        Left = 8
        Top = 244
        Width = 289
        Height = 17
        AutoSize = False
        Caption = 'What a&re the names of the '
        FocusControl = DefendantMemo
      end
      object PlaintiffMemo: TDBMemo
        Left = 32
        Top = 193
        Width = 265
        Height = 40
        HelpContext = 466
        Ctl3D = True
        DataField = 'Plaintiff'
        DataSource = Cases
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 1
        OnExit = UpdateDB
      end
      object DefendantMemo: TDBMemo
        Left = 32
        Top = 264
        Width = 265
        Height = 40
        HelpContext = 467
        Ctl3D = True
        DataField = 'Defendant'
        DataSource = Cases
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 2
        OnExit = UpdateDB
      end
      object dbPartyType: TDBRadioGroup
        Left = 8
        Top = 40
        Width = 289
        Height = 129
        HelpContext = 465
        Caption = ' Which parties are involved? '
        Ctl3D = True
        DataField = 'PartyType'
        DataSource = Cases
        Items.Strings = (
          'P&laintiff vs. Defendant'
          '&Appellee vs. Appellant'
          'Pe&titioner and Respondent'
          '&Debtor'
          'De&ceased')
        ParentCtl3D = False
        TabOrder = 0
        Values.Strings = (
          '0'
          '1'
          '2'
          '3'
          '4')
        OnChange = dbPartyTypeChange
        OnExit = UpdateDB
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Attorney Information'
      object lblAttorneys: TLabel
        Left = 8
        Top = 42
        Width = 265
        Height = 34
        AutoSize = False
        Caption = 'W&hat are the names of your firm'#39's attorneys on this case?'
        FocusControl = mAttorneys
        WordWrap = True
      end
      object lblMain5: TLabel
        Left = 7
        Top = 7
        Width = 253
        Height = 33
        AutoSize = False
        Caption = 'Attorneys && Firms'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
      end
      object lblFirmAddress: TLabel
        Left = 8
        Top = 212
        Width = 289
        Height = 17
        AutoSize = False
        Caption = 'Wha&t is your firm'#39's name and address?'
        FocusControl = mFirmAddress
      end
      object mAttorneys: TDBMemo
        Left = 8
        Top = 74
        Width = 289
        Height = 62
        HelpContext = 469
        Ctl3D = True
        DataField = '1AttysFor'
        DataSource = Cases
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnExit = UpdateDB
      end
      object mFirmAddress: TDBMemo
        Left = 8
        Top = 229
        Width = 289
        Height = 62
        HelpContext = 472
        Ctl3D = True
        DataField = '1FirmAddress'
        DataSource = Cases
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        TabOrder = 3
        OnExit = UpdateDB
      end
      object rbIncAttysFor: TDBCheckBox
        Left = 8
        Top = 152
        Width = 289
        Height = 17
        HelpContext = 470
        Caption = '&Include "Attorney(s) for"'
        Ctl3D = True
        DataField = '1IncludeAttysFor'
        DataSource = Cases
        ParentCtl3D = False
        TabOrder = 1
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        OnClick = AttysForClick
        OnExit = UpdateDB
      end
      object dbAttyForCombo: TDBComboBox
        Left = 8
        Top = 173
        Width = 150
        Height = 22
        HelpContext = 471
        Ctl3D = True
        DataField = '1AttysForDescr'
        DataSource = Cases
        ItemHeight = 14
        Items.Strings = (
          'Plaintiff'
          'Defendant'
          'Appellee'
          'Appellant'
          'Petitioner'
          'Respondent'
          'Debtor'
          'Deceased')
        ParentCtl3D = False
        TabOrder = 2
        OnExit = UpdateDB
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Finish'
      object lblEndInfo: TLabel
        Left = 8
        Top = 193
        Width = 297
        Height = 67
        AutoSize = False
        Caption =
          'After clicking on the Finish button, the Expert will open WordPe' +
          'rfect and begin assembling the pleading cover page.'
        WordWrap = True
      end
      object imgEnd: TImage
        Left = 4
        Top = 6
        Width = 300
        Height = 179
        Picture.Data = {<image002.bmp>}
        Stretch = True
      end
    end
  end
  object HrzLine: TPanel
    Left = 4
    Top = 325
    Width = 482
    Height = 3
    BevelOuter = bvLowered
    TabOrder = 2
  end
  object btnBack: TButton
    Left = 170
    Top = 336
    Width = 75
    Height = 23
    HelpContext = 446
    Caption = '< &Back'
    TabOrder = 3
    OnClick = btnBackClick
  end
  object btnNext: TButton
    Left = 250
    Top = 336
    Width = 75
    Height = 23
    HelpContext = 447
    Caption = '&Next >'
    Default = True
    TabOrder = 4
    OnClick = btnNextClick
  end
  object btnCancel: TButton
    Left = 330
    Top = 336
    Width = 75
    Height = 23
    HelpContext = 448
    Cancel = True
    Caption = 'Close'
    TabOrder = 5
    OnClick = btnCancelClick
  end
  object btnFinish: TButton
    Left = 410
    Top = 336
    Width = 75
    Height = 23
    HelpContext = 449
    Caption = '&Finish'
    TabOrder = 6
    OnClick = btnFinishClick
  end
  object tblCourt: TTable
    DatabaseName = 'PleadExpert'
    IndexName = 'CourtLabel'
    TableName = 'COURT.DB'
    Left = 18
    Top = 370
  end
  object CourtData: TDataSource
    DataSet = tblCourt
    OnDataChange = CourtDataDataChange
    Left = 18
    Top = 400
  end
  object Cases: TDataSource
    DataSet = tblCases
    OnDataChange = CasesDataChange
    Left = 62
    Top = 402
  end
  object tblCases: TTable
    BeforeScroll = tblCasesBeforeScroll
    DatabaseName = 'PleadExpert'
    IndexName = 'CasesByName'
    TableName = 'cases.db'
    Left = 64
    Top = 369
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 144
    Top = 376
    object Undo1: TMenuItem
      Caption = '&Undo'
      OnClick = Undo1Click
    end
    object Cut1: TMenuItem
      Caption = '&Cut'
      OnClick = Cut1Click
    end
    object Copy1: TMenuItem
      Caption = 'C&opy'
      OnClick = Copy1Click
    end
    object Paste1: TMenuItem
      Caption = '&Paste'
      OnClick = Paste1Click
    end
    object Delete1: TMenuItem
      Caption = '&Delete'
      OnClick = Delete1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object SelectAll1: TMenuItem
      Caption = 'Select &All'
      OnClick = SelectAll1Click
    end
  end
  object JustOne321: TJustOne32
    Left = 112
    Top = 400
  end
end