Computer Buyer 1998 July/dpcb0798.bin/Business/Persdesk/_SETUP.1/PERSYST1.EXE/0/RCDATA/TWORDPROCESSOR2/TWORDPROCESSOR2.txt

Text File | 1998-04-21 | 45KB | 1,511 lines

object wordprocessor2: Twordprocessor2
  Left = -2
  Top = 29
  Width = 812
  Height = 572
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Company Statements and Job Contract'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 16
  object Label17: TLabel
    Left = 124
    Top = 14
    Width = 77
    Height = 29
    Caption = 'Number of columns'
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 804
    Height = 107
    Hint = 'Contract Conditions Panel'
    Align = alTop
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Visible = False
    object Label1: TLabel
      Left = 11
      Top = 42
      Width = 57
      Height = 33
      Caption = 'Choose Category'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 71
      Width = 53
      Height = 26
      Caption = 'Sub Category'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 316
      Top = 79
      Width = 72
      Height = 13
      Caption = 'Item Number'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 333
      Top = 46
      Width = 60
      Height = 27
      Caption = 'Sub Sub Category'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object First: TSpeedButton
      Left = 84
      Top = 12
      Width = 25
      Height = 25
      Hint = 'Goes to the first contract condition record'
      AllowAllUp = True
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333300000033333333333333333333333333000000333333
        3333333333333FF3333300333333003333333333333F88F33333003333000033
        333333333F8838F333330033000000333333333F883338FFFFFF000000000000
        00003F883333388888880000000000000000883FF33333FFFFF8000000000000
        000033883FF33888888800330000003333333333883FF8F33333003333000033
        33333333338838F3333300333333003333333333333388333333000000333333
        3333333333333333333300000033333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = FirstClick
    end
    object Prior: TSpeedButton
      Left = 108
      Top = 12
      Width = 25
      Height = 25
      Hint = 'Goes to the previous contract condition record'
      AllowAllUp = True
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F88F33333333333000033
        333333333F8838F333333333000000333333333F883338FFFFFF330000000000
        00003F883333388888880000000000000000883FF33333FFFFF8330000000000
        000033883FF33888888833330000003333333333883FF8F33333333333000033
        33333333338838F3333333333333003333333333333388333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = PriorClick
    end
    object Next: TSpeedButton
      Left = 132
      Top = 12
      Width = 25
      Height = 25
      Hint = 'Goes to the next contract condition record'
      AllowAllUp = True
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333883FF3333333333300003333333333338F883FF333333333000000
        33333FFFFF8F33883FF30000000000000033888888833333883F000000000000
        00008FFFFFFF33333F8800000000000000338888888F333F8833333333000000
        33333333338F3F88333333333300003333333333338F88333333333333003333
        3333333333883333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = NextClick
    end
    object Last: TSpeedButton
      Left = 156
      Top = 12
      Width = 25
      Height = 25
      Hint = 'Goes to the last contract condition record'
      AllowAllUp = True
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333300
        0000333333333333333333333333330000003333333FF3333333333333003333
        3300333333883FF3333333333300003333003333338F883FF333333333000000
        33003FFFFF8F33883FF30000000000000000888888833333883F000000000000
        00008FFFFFFF33333F8800000000000000008888888F333F8833333333000000
        33003333338F3F88333333333300003333003333338F88333333333333003333
        3300333333883333333333333333330000003333333333333333333333333300
        0000333333333333333333333333333333333333333333333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = LastClick
    end
    object Post1: TSpeedButton
      Left = 228
      Top = 12
      Width = 25
      Height = 25
      Hint = 'Post the current record to the database'
      AllowAllUp = True
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555550055555
        55555555588FF5555555555500005555555555558888F5555555555500005555
        555555558888FF5555555550000005555555555888888F555555550000000555
        5555558888888FF5555558000500005555555888858888F55555890555500055
        55558885555888FF5555555555500005555555555558888F5555555555550005
        555555555555888FF5555555555550005555555555555888FF55555555555589
        05555555555555888FF5555555555558905555555555555888FF555555555555
        5990555555555555588855555555555555555555555555555555000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Save1Click
    end
    object Deleterec: TSpeedButton
      Left = 252
      Top = 12
      Width = 25
      Height = 25
      Hint = 'Deletes the current record'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        300033FFFFFF3333377739999993333333333777777F3333333F399999933333
        3300377777733333337733333333333333003333333333333377333333333333
        3333333333333333333F333333333333330033333F33333333773333C3333333
        330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
        333333377F33333333FF3333C333333330003333733333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Delete1Click
    end
    object Status: TLabel
      Left = 568
      Top = 16
      Width = 41
      Height = 16
      Caption = 'Status'
    end
    object Label8: TLabel
      Left = 324
      Top = 15
      Width = 183
      Height = 24
      Caption = 'Contract Conditions'
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Required: TDBCheckBox
      Left = 470
      Top = 70
      Width = 97
      Height = 17
      Hint =
        'Check this if you require this contract condition in final docum' +
        'ent.'
      Caption = 'Required'
      DataField = 'Require'
      DataSource = DataSource1
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object dbsubsubcategory: TComboBox
      Left = 394
      Top = 44
      Width = 217
      Height = 24
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      Sorted = True
      TabOrder = 1
      OnChange = dbsubsubcategoryChange
      OnClick = dbsubsubcategoryClick
    end
    object dbsubcategory: TComboBox
      Left = 68
      Top = 71
      Width = 229
      Height = 24
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      Sorted = True
      TabOrder = 2
      OnClick = dbsubcategoryClick
    end
    object DBEdit1: TComboBox
      Left = 394
      Top = 72
      Width = 69
      Height = 24
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      Sorted = True
      TabOrder = 3
      OnChange = DBEdit1Change
      OnClick = DBEdit1Click
    end
    object Tempok: TBitBtn
      Left = 684
      Top = 12
      Width = 89
      Height = 29
      Hint = 'Appends information to end of contract condition'
      Caption = 'Append'
      Default = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Visible = False
      OnClick = TempokClick
      Glyph.Data = {
        BE060000424DBE06000000000000360400002800000024000000120000000100
        0800000000008802000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A600000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        03030303030303030303030303030303030303030303FF030303030303030303
        03030303030303040403030303030303030303030303030303F8F8FF03030303
        03030303030303030303040202040303030303030303030303030303F80303F8
        FF030303030303030303030303040202020204030303030303030303030303F8
        03030303F8FF0303030303030303030304020202020202040303030303030303
        0303F8030303030303F8FF030303030303030304020202FA0202020204030303
        0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
        040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
        03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
        FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
        0303030303030303030303FA0202020403030303030303030303030303F8FF03
        03F8FF03030303030303030303030303FA020202040303030303030303030303
        0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
        03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
        030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
        0202040303030303030303030303030303F8FF03F8FF03030303030303030303
        03030303FA0202030303030303030303030303030303F8FFF803030303030303
        030303030303030303FA0303030303030303030303030303030303F803030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303}
      NumGlyphs = 2
    end
    object Include: TDBCheckBox
      Left = 470
      Top = 87
      Width = 167
      Height = 17
      Caption = 'All Employee Contracts'
      DataField = 'Necessity'
      DataSource = DataSource1
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object ComboBox1: TComboBox
      Left = 68
      Top = 40
      Width = 257
      Height = 24
      ItemHeight = 16
      Sorted = True
      TabOrder = 6
      OnChange = ComboBox1Change
      OnClick = ComboBox1Click
    end
  end
  object WPStatusBar1: TWPStatusBar
    Top = 489
    Width = 804
    Height = 20
    ShowSizer = False
    ShowGauge = False
    UseGaugeForWP = False
    GaugeValue = 0
    GaugeWidth = 4
    Strings.Strings = (
      '100stLine=stLine')
    Align = alBottom
    Visible = False
    StringsAlign = alTop
  end
  object Panel3: TPanel
    Left = 0
    Top = 509
    Width = 804
    Height = 17
    Align = alBottom
    TabOrder = 2
    object DBText1: TDBText
      Left = 168
      Top = 2
      Width = 169
      Height = 13
      DataField = 'Job Title'
      DataSource = compcontset
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object DBText2: TDBText
      Left = 356
      Top = 2
      Width = 169
      Height = 13
      DataField = 'Department'
      DataSource = compcontset
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object DBText3: TDBText
      Left = 544
      Top = 2
      Width = 169
      Height = 13
      DataField = 'Section'
      DataSource = compcontset
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object DBText4: TDBText
      Left = 728
      Top = 2
      Width = 53
      Height = 13
      DataField = 'Grade'
      DataSource = compcontset
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 40
      Top = 0
      Width = 113
      Height = 16
      Caption = 'Job Document for'
      Transparent = True
    end
  end
  object WPToolBar1: TWPToolBar
    Left = 0
    Top = 463
    Width = 804
    Height = 26
    Align = alBottom
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = []
    ParentShowHint = False
    ShowHint = True
    BevelInner = bvRaised
    BevelOuter = bvLowered
    sel_ListBoxes = [SelFontName, SelFontSize, SelFontColor]
    sel_StatusIcons = [SelBold, SelItalic, SelUnder, SelLeft, SelRight, SelBlock, SelCenter]
    sel_ActionIcons = [SelPrint, SelPrintSetup]
    sel_DatabaseIcons = []
    sel_EditIcons = [SelCopy, SelCut, SelPaste, SelFind, SelReplace]
    FontSizeFrom = 6
    Hints.Strings = (
      'WPI_Normal=Normal'
      'WPI_Bold=Bold'
      'WPI_Italic=Italic'
      'WPI_Under=Under'
      'WPI_Hyperlink=Hyperlink'
      'WPI_StrikeOut=StrikeOut'
      'WPI_Left=Left'
      'WPI_Right=Right'
      'WPI_Justified=Justified'
      'WPI_Center=Center'
      'WPI_Copy=Copy'
      'WPI_Cut=Cut'
      'WPI_Paste=Paste'
      'WPI_SelAll=SelAll'
      'WPI_HideSel=HideSel'
      'WPI_Find=Find'
      'WPI_Replace=Replace'
      'WPI_Spell=Spell'
      'WPI_Exit=Exit'
      'WPI_New=New'
      'WPI_Open=Open'
      'WPI_Save=Save'
      'WPI_Close=Close'
      'WPI_Print=Print'
      'WPI_PrintSetup=PrintSetup'
      'WPI_Next=Next'
      'WPI_Prev=Prev'
      'WPI_Add=Add'
      'WPI_Del=Del'
      'WPI_Edit=Edit'
      'WPI_Cancel=Cancel'
      'WPI_ToStart=ToStart'
      'WPI_ToEnd=ToEnd'
      'WPI_Post=Post')
    object SpellButton: TSpeedButton
      Left = 420
      Top = 4
      Width = 20
      Height = 20
      Hint = 'Check spelling of document'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777777777777777777777777C77777777700707CCC077700707700CC7CC07
        077007770C077CC707777000070777CC077707770700770CC770700077070077
        CC077777770777777CC777777707777777C77777777777777777777777777777
        7777777777777777777777777777777777777777777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpellButtonClick
    end
    object Pastecond: TBitBtn
      Left = 444
      Top = 0
      Width = 133
      Height = 20
      Hint = 'Paste condition to document from clipboard'
      Caption = 'Paste Condition'
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = PastecondClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
        FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
        FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
        FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
        0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
        9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
        9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
        99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
        93337777FF777777733370000000073333333777777773333333}
      NumGlyphs = 2
    end
    object compcontnavig: TDBNavigator
      Left = 288
      Top = 4
      Width = 140
      Height = 20
      DataSource = compcontset
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost]
      Hints.Strings = (
        'First Job Contract'
        'Prior Job Contract'
        'Next Job Contract'
        'Last Job Contract'
        'New Job Contract'
        'Delete Job Contract'
        'Edit Job Contract'
        'Post Job Contract')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = CompcontnavigClick
    end
    object Handbookbutton: TBitBtn
      Left = 584
      Top = 0
      Width = 25
      Height = 20
      Hint = 'To go to the Global Staff Handbook'
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = HandbookbuttonClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 195
    Width = 804
    Height = 16
    Align = alTop
    Alignment = taLeftJustify
    Caption =
      '                     Job Contract                               ' +
      '                                              Master Contract'
    TabOrder = 4
  end
  object WPRuler1: TWPRuler
    Top = 211
    Width = 804
    Align = alTop
    Units = Inch
    ShowAllTabPos = False
  end
  object GridPanel: TPanel
    Left = 0
    Top = 107
    Width = 804
    Height = 62
    Align = alTop
    TabOrder = 6
    object Label7: TLabel
      Left = 304
      Top = 132
      Width = 183
      Height = 24
      Caption = 'Contract Conditions'
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGridclick1: TDBGridclick
      Left = 1
      Top = 1
      Width = 802
      Height = 60
      Align = alClient
      Columns = <
        item
          FieldName = 'Category'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
        end
        item
          FieldName = 'Sub-category'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
        end
        item
          FieldName = 'Sub-sub-category'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
        end
        item
          FieldName = 'Item number'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
        end
        item
          FieldName = 'Necessity'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
        end
        item
          FieldName = 'Require'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
        end>
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'System'
      TitleFont.Style = []
      OnMouseUp = DBGridclick1MouseUp
    end
  end
  object SplitterWnd1: TSplitterWnd
    Left = 0
    Top = 227
    Width = 804
    Height = 236
    Cursor = crVSplit
    Orientation = swHorizontal
    Thickness = 2
    CursorHorz = crVSplit
    CursorVert = crHSplit
    BarStyle = sbCheckered
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 7
    OnResize = SplitterWnd1Resize
    object Pane1: TPane
      Left = 0
      Top = 0
      Width = 804
      Height = 119
      TabOrder = 0
      SplitterWnd = SplitterWnd1
      PaneIndex = 0
      PaneSize = 120
      object wp1: TDBWPRichText
        Left = 0
        Top = 0
        Width = 800
        Height = 115
        Cursor = crIBeam
        Hint = 'Contract Conditions'
        WPToolBar = WPToolBar2
        WPRuler = WPRuler1
        StatusBar = WPStatusBar1
        DataField = 'Description'
        DataSource = DataSource1
        HyperLinkCursor = crDefault
        NoBlockMarking = False
        Inserting = True
        OneClickHyperlink = False
        SaveFormat = FormatRTF
        Zooming = 100
        Resizing = 100
        Align = alClient
        BorderStyle = bsSingle
        Color = clYellow
        Font.Color = clBlack
        Font.Height = 0
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentShowHint = False
        ScrollBars = ssBoth
        ShowHint = True
        TabOrder = 0
        TabStop = True
        WantTabs = True
        OnChange = wp1Change
        OnEnter = wp1Enter
        OnKeyUp = wp1KeyUp
        OnMouseUp = wp1MouseUp
      end
    end
    object Pane2: TPane
      Left = 0
      Top = 121
      Width = 804
      Height = 115
      TabOrder = 1
      SplitterWnd = SplitterWnd1
      PaneIndex = 1
      PaneSize = 116
      object wp2: TDBWPRichText
        Left = 0
        Top = 0
        Width = 800
        Height = 111
        Cursor = crIBeam
        Hint = 'Job Contract'
        WPToolBar = WPToolBar1
        WPRuler = WPRuler1
        StatusBar = WPStatusBar1
        DataField = 'Description'
        DataSource = compcontset
        HyperLinkCursor = crDefault
        NoBlockMarking = False
        Inserting = True
        OneClickHyperlink = False
        SaveFormat = FormatRTF
        Zooming = 100
        Resizing = 100
        Align = alClient
        BorderStyle = bsSingle
        Font.Color = clBlack
        Font.Height = 0
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentShowHint = False
        ScrollBars = ssBoth
        ShowHint = True
        TabOrder = 0
        TabStop = True
        WantTabs = True
        OnEnter = wp2Enter
        OnKeyUp = wp2KeyUp
        OnMouseUp = wp2MouseUp
      end
    end
  end
  object WPToolBar2: TWPToolBar
    Left = 0
    Top = 169
    Width = 804
    Height = 26
    Align = alTop
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = []
    ParentShowHint = False
    ShowHint = True
    BevelInner = bvRaised
    BevelOuter = bvLowered
    sel_ListBoxes = [SelFontName, SelFontSize, SelFontColor]
    sel_StatusIcons = [SelBold, SelItalic, SelUnder, SelLeft, SelRight, SelBlock, SelCenter]
    sel_ActionIcons = [SelPrint, SelPrintSetup]
    sel_DatabaseIcons = []
    sel_EditIcons = [SelCopy, SelCut, SelPaste, SelFind, SelReplace]
    FontSizeFrom = 6
    Hints.Strings = (
      'WPI_Normal=Normal'
      'WPI_Bold=Bold'
      'WPI_Italic=Italic'
      'WPI_Under=Under'
      'WPI_Hyperlink=Hyperlink'
      'WPI_StrikeOut=StrikeOut'
      'WPI_Left=Left'
      'WPI_Right=Right'
      'WPI_Justified=Justified'
      'WPI_Center=Center'
      'WPI_Copy=Copy'
      'WPI_Cut=Cut'
      'WPI_Paste=Paste'
      'WPI_SelAll=SelAll'
      'WPI_HideSel=HideSel'
      'WPI_Find=Find'
      'WPI_Replace=Replace'
      'WPI_Spell=Spell'
      'WPI_Exit=Exit'
      'WPI_New=New'
      'WPI_Open=Open'
      'WPI_Save=Save'
      'WPI_Close=Close'
      'WPI_Print=Print'
      'WPI_PrintSetup=PrintSetup'
      'WPI_Next=Next'
      'WPI_Prev=Prev'
      'WPI_Add=Add'
      'WPI_Del=Del'
      'WPI_Edit=Edit'
      'WPI_Cancel=Cancel'
      'WPI_ToStart=ToStart'
      'WPI_ToEnd=ToEnd'
      'WPI_Post=Post')
    object SpeedButton1: TSpeedButton
      Left = 420
      Top = 4
      Width = 20
      Height = 20
      Hint = 'Check spelling of document'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777777777777777777777777C77777777700707CCC077700707700CC7CC07
        077007770C077CC707777000070777CC077707770700770CC770700077070077
        CC077777770777777CC777777707777777C77777777777777777777777777777
        7777777777777777777777777777777777777777777777777777}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpellButtonClick
    end
    object Tablenavigator: TDBNavigator
      Left = 40
      Top = 1
      Width = 147
      Height = 20
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = TablenavigatorClick
    end
    object Copycond: TBitBtn
      Left = 448
      Top = 4
      Width = 129
      Height = 20
      Hint = 'Copy condition to clipboard'
      Caption = 'Copy Condition'
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = CopycondClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
        7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
        99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
    end
  end
  object MainMenu1: TMainMenu
    Left = 59
    Top = 65534
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object New1: TMenuItem
        Caption = 'New'
        ShortCut = 0
        object C4: TMenuItem
          Caption = 'Contract Conditions'
          ShortCut = 0
          OnClick = contractClick
        end
        object C5: TMenuItem
          Caption = 'Company Contract'
          ShortCut = 0
          OnClick = C5Click
        end
      end
      object O1: TMenuItem
        Caption = 'Open'
        ShortCut = 0
        OnClick = O1Click
      end
      object Save1: TMenuItem
        Caption = 'Save'
        ShortCut = 0
        object C6: TMenuItem
          Caption = 'Contract Conditions'
          ShortCut = 0
          OnClick = Save1Click
        end
        object C7: TMenuItem
          Caption = 'Company Contract'
          ShortCut = 0
        end
      end
      object ExportRTFDocument1: TMenuItem
        Caption = 'Export RTF Document'
        ShortCut = 0
        object ContractCondition1: TMenuItem
          Caption = 'Contract Condition'
          ShortCut = 0
          OnClick = ContractCondition1Click
        end
        object JobContractHandbook1: TMenuItem
          Caption = 'Job Contract/Handbook'
          ShortCut = 0
          OnClick = JobContractHandbook1Click
        end
      end
      object ImportRTFDocument1: TMenuItem
        Caption = 'Import RTF Document'
        ShortCut = 0
        OnClick = ImportRTFDocument1Click
      end
      object Delete1: TMenuItem
        Caption = 'Delete'
        ShortCut = 0
        OnClick = Delete1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object PageSetup1: TMenuItem
        Caption = 'Page Setup'
        ShortCut = 0
        OnClick = PageSetup1Click
      end
      object Print1: TMenuItem
        Caption = 'Print'
        ShortCut = 16464
        OnClick = Print1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 16453
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      object Cut1: TMenuItem
        Caption = 'Cut'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = 'Copy'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = 'Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Clear1: TMenuItem
        Caption = 'Clear'
        ShortCut = 16472
        OnClick = Clear1Click
      end
      object N11: TMenuItem
        Caption = '-'
        ShortCut = 0
        Visible = False
      end
      object I1: TMenuItem
        Caption = 'Insert'
        ShortCut = 0
        Visible = False
        object O2: TMenuItem
          Caption = 'OLE Object'
          ShortCut = 0
        end
        object S3: TMenuItem
          Caption = 'Database Spreadsheet Chart'
          ShortCut = 0
        end
      end
    end
    object R1: TMenuItem
      Caption = 'Contract Conditions'
      ShortCut = 0
      object N6: TMenuItem
        Caption = 'First'
        ShortCut = 0
        OnClick = FirstClick
      end
      object N7: TMenuItem
        Caption = 'Prior'
        ShortCut = 0
        OnClick = PriorClick
      end
      object N8: TMenuItem
        Caption = 'Next'
        ShortCut = 0
        OnClick = NextClick
      end
      object L1: TMenuItem
        Caption = 'Last'
        ShortCut = 0
        OnClick = LastClick
      end
      object N9: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object C1: TMenuItem
        Caption = 'Cancel Changes'
        ShortCut = 0
        OnClick = New1Click
      end
      object P1: TMenuItem
        Caption = 'Save'
        ShortCut = 0
        OnClick = Save1Click
      end
      object D1: TMenuItem
        Caption = 'Delete'
        ShortCut = 0
        OnClick = Delete1Click
      end
      object A1: TMenuItem
        Caption = 'New'
        ShortCut = 0
        OnClick = TempokClick
      end
      object N10: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object C8: TMenuItem
        Caption = 'Contract Headings'
        ShortCut = 0
        object C9: TMenuItem
          Caption = 'Change'
          ShortCut = 0
          OnClick = C9Click
        end
      end
    end
    object JobContract1: TMenuItem
      Caption = 'Job Contract'
      ShortCut = 0
      object Locate1: TMenuItem
        Caption = 'Locate'
        ShortCut = 0
        OnClick = Locate1Click
      end
      object N13: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object First1: TMenuItem
        Caption = 'First'
        ShortCut = 0
        OnClick = First1Click
      end
      object Prior1: TMenuItem
        Caption = 'Prior'
        ShortCut = 0
        OnClick = Prior1Click
      end
      object Next1: TMenuItem
        Caption = 'Next'
        ShortCut = 0
        OnClick = Next1Click
      end
      object Last1: TMenuItem
        Caption = 'Last'
        ShortCut = 0
        OnClick = Last1Click
      end
      object TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object New2: TMenuItem
        Caption = 'New'
        ShortCut = 0
        OnClick = New2Click
      end
      object Delete2: TMenuItem
        Caption = 'Delete'
        ShortCut = 0
        OnClick = Delete2Click
      end
    end
    object Format1: TMenuItem
      Caption = 'For&mat'
      ShortCut = 0
      object Paragraph1: TMenuItem
        Caption = 'Paragraph'
        ShortCut = 0
        object LinesAround1: TMenuItem
          Caption = 'Lines Around'
          ShortCut = 0
          OnClick = LinesAround1Click
        end
        object Indent1: TMenuItem
          Caption = 'Properties'
          ShortCut = 0
          OnClick = Indent1Click
        end
      end
      object ColumnsTable1: TMenuItem
        Caption = 'Table'
        ShortCut = 0
        OnClick = lines1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      ShortCut = 0
      object Normal1: TMenuItem
        Caption = 'Normal'
        ShortCut = 0
        OnClick = Normal1Click
      end
      object FullPage1: TMenuItem
        Caption = 'Full Page'
        ShortCut = 0
        OnClick = FullPage1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object RulerInches1: TMenuItem
        Caption = 'Ruler Inches'
        ShortCut = 0
        OnClick = RulerInches1Click
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object T1: TMenuItem
        Caption = 'Toolbar'
        Checked = True
        ShortCut = 0
        OnClick = T1Click
      end
      object B1: TMenuItem
        Caption = 'Status Bar'
        Checked = True
        ShortCut = 0
        OnClick = B1Click
      end
      object RecordTitles1: TMenuItem
        Caption = 'Condition Titles'
        ShortCut = 0
        OnClick = RecordTitles1Click
      end
      object ContractGrid1: TMenuItem
        Caption = 'Condition Grid'
        Checked = True
        ShortCut = 0
        OnClick = ContractGrid1Click
      end
      object N12: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object HeaderFooter1: TMenuItem
        Caption = 'Header/Footer'
        ShortCut = 0
      end
    end
    object W1: TMenuItem
      Caption = 'Window'
      ShortCut = 0
      object C2: TMenuItem
        Caption = 'Tile Vertical'
        Checked = True
        ShortCut = 0
        OnClick = C2Click
      end
      object T2: TMenuItem
        Caption = 'Tile Horizontal'
        ShortCut = 0
        OnClick = T2Click
      end
      object C3: TMenuItem
        Caption = 'Job Contract only'
        ShortCut = 0
        OnClick = C3Click
      end
    end
    object H1: TMenuItem
      Caption = 'Help'
      ShortCut = 0
      object S1: TMenuItem
        Caption = 'Contents'
        ShortCut = 0
        OnClick = S1Click
      end
      object S2: TMenuItem
        Caption = 'Search for Help on...'
        ShortCut = 0
        OnClick = S2Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Picture|*.BMP|Metafile|*.WMF|Icon|*.ICO'
    Left = 80
    Top = 46
  end
  object pdialog: TPrinterSetupDialog
    Left = 424
    Top = 16
  end
  object WPParagraphBorderDlg1: TWPParagraphBorderDlg
    Left = 76
    Top = 216
  end
  object WPParagraphPropDlg1: TWPParagraphPropDlg
    Left = 76
    Top = 320
  end
  object WPPagePropDlg1: TWPPagePropDlg
    Left = 20
    Top = 226
  end
  object Table1: TTable
    AfterOpen = Table1AfterOpen
    AfterInsert = Table1AfterInsert
    AfterEdit = Table1AfterEdit
    AfterPost = Table1AfterPost
    AfterDelete = Table1AfterDelete
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Category;Sub-category;Sub-sub-category;Item number'
    TableName = 'CONTRACT.DB'
    Left = 308
    Top = 12
    object Table1Category: TStringField
      FieldName = 'Category'
      Size = 25
    end
    object Table1Subcategory: TStringField
      FieldName = 'Sub-category'
      Size = 35
    end
    object Table1Subsubcategory: TStringField
      FieldName = 'Sub-sub-category'
      Size = 35
    end
    object Table1Itemnumber: TFloatField
      FieldName = 'Item number'
    end
    object Table1Description: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 8
    end
    object Table1Necessity: TBooleanField
      FieldName = 'Necessity'
    end
    object Table1Require: TBooleanField
      FieldName = 'Require'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 28
    Top = 14
  end
  object Compcont: TTable
    AfterPost = CompcontAfterPost
    BeforeDelete = CompcontBeforeDelete
    OnPostError = CompcontPostError
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Job Title;Department;Section'
    TableName = 'COMPCONT.DB'
    Left = 342
    Top = 4
    object CompcontJobTitle: TStringField
      FieldName = 'Job Title'
      Size = 30
    end
    object CompcontDepartment: TStringField
      FieldName = 'Department'
      Size = 30
    end
    object CompcontSection: TStringField
      FieldName = 'Section'
      Size = 30
    end
    object CompcontGrade: TStringField
      FieldName = 'Grade'
      Size = 4
    end
    object CompcontHeader: TMemoField
      FieldName = 'Header'
      BlobType = ftMemo
      Size = 8
    end
    object CompcontFooter: TMemoField
      FieldName = 'Footer'
      BlobType = ftMemo
      Size = 8
    end
    object CompcontDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 12
    end
    object CompcontNecessity: TBooleanField
      FieldName = 'Necessity'
    end
    object CompcontRequire: TBooleanField
      FieldName = 'Require'
    end
    object CompcontCompanyPostcode: TStringField
      FieldName = 'CompanyPostcode'
      Size = 12
    end
  end
  object compcontset: TDataSource
    DataSet = Compcont
    Left = 325
    Top = 65531
  end
  object WPSpellDlg1: TWPSpellDlg
    AccentIcons = []
    AutoShift = False
    AutoSuggest = True
    ConfirmAdd = True
    DialogStyle = dtMSWord
    DictionaryName = 'British.dct'
    DictionaryPath = 'APPLICATIONPATH'
    DictionaryType = lgEnglish
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ForceModal = False
    HelpContext = 0
    LabelLanguage = lgEnglish
    Suggestions = 10
    ShowGlyphs = True
    SupportHTML = False
    UserDictionary = 'CUSTOM.DIC'
    Left = 280
    Top = 180
  end
end