DP Tool Club 31/CDASC_31_1996_juillet_aout.iso/vrac/abuserb7.zip/ABUSER.EXE/0/RCDATA/TPAGESDLG/TPAGESDLG.txt

Text File | 1996-06-06 | 9KB | 361 lines

object PagesDlg: TPagesDlg
  Left = 197
  Top = 108
  BorderStyle = bsDialog
  Caption = 'Options'
  ClientHeight = 415
  ClientWidth = 347
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 347
    Height = 381
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    ParentColor = True
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 5
      Top = 5
      Width = 337
      Height = 371
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 0
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = 'Insult'
        object RadioGroup7: TRadioGroup
          Left = 16
          Top = 172
          Width = 209
          Height = 109
          Caption = 'Insult Subject'
          ItemIndex = 0
          Items.Strings = (
            'You ...'
            'He is...'
            'She is...'
            '                                               is...')
          TabOrder = 5
        end
        object RadioGroup1: TRadioGroup
          Left = 168
          Top = 20
          Width = 141
          Height = 65
          Hint = 'Select the level of the subject'#39's intelligence'
          Caption = 'Intelligence'
          ItemIndex = 2
          Items.Strings = (
            'Intelligent'
            'Average'
            'Unintelligent')
          TabOrder = 0
        end
        object RadioGroup2: TRadioGroup
          Left = 168
          Top = 92
          Width = 141
          Height = 65
          Hint = 'Select the level of the subject'#39's looks'
          Caption = 'Looks'
          ItemIndex = 2
          Items.Strings = (
            'Good'
            'Average'
            'Bad')
          TabOrder = 1
        end
        object RadioGroup3: TRadioGroup
          Left = 16
          Top = 92
          Width = 141
          Height = 65
          Hint = 'Select the subject'#39's weight'
          Caption = 'Weight'
          ItemIndex = 2
          Items.Strings = (
            'Above Average'
            'Average'
            'Below Average')
          TabOrder = 2
        end
        object RadioGroup5: TRadioGroup
          Left = 16
          Top = 20
          Width = 141
          Height = 65
          Hint = 'Pick the Subject'#39's gender'
          Caption = 'Gender'
          ItemIndex = 0
          Items.Strings = (
            'Male'
            'Female'
            'Unknown')
          TabOrder = 3
        end
        object Button1: TButton
          Left = 232
          Top = 216
          Width = 75
          Height = 25
          Caption = 'Test'
          TabOrder = 4
          OnClick = Button1Click
        end
        object Edit2: TEdit
          Left = 40
          Top = 252
          Width = 137
          Height = 21
          TabOrder = 6
        end
        object Edit1: TEdit
          Left = 20
          Top = 296
          Width = 289
          Height = 21
          TabOrder = 7
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Archive'
        object ListBox1: TListBox
          Left = 8
          Top = 8
          Width = 313
          Height = 281
          ExtendedSelect = False
          ItemHeight = 13
          TabOrder = 0
        end
        object Button2: TButton
          Left = 168
          Top = 308
          Width = 69
          Height = 25
          Caption = 'Copy'
          TabOrder = 1
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 88
          Top = 308
          Width = 69
          Height = 25
          Caption = 'Clear'
          TabOrder = 2
          OnClick = Button3Click
        end
        object Button4: TButton
          Left = 8
          Top = 308
          Width = 69
          Height = 25
          Caption = 'Generate'
          TabOrder = 3
          OnClick = Button4Click
        end
        object Button5: TButton
          Left = 248
          Top = 308
          Width = 69
          Height = 25
          Caption = 'Save'
          TabOrder = 4
          OnClick = Button5Click
        end
        object ProgressBar1: TProgressBar
          Left = 8
          Top = 292
          Width = 313
          Height = 13
          Min = 0
          Max = 100
          Step = 1
          TabOrder = 5
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Options'
        object CheckBox1: TCheckBox
          Left = 16
          Top = 24
          Width = 145
          Height = 17
          Caption = 'Use Start/Shut screens'
          Enabled = False
          TabOrder = 0
        end
        object RadioGroup4: TRadioGroup
          Left = 12
          Top = 60
          Width = 185
          Height = 105
          Hint = 'Select the number of insults to generate on the Archive page'
          Caption = 'Generate how many?'
          Columns = 2
          ItemIndex = 1
          Items.Strings = (
            '      5 insults'
            '    10 insults'
            '    50 insults'
            '  100 insults'
            '  500 insults'
            '1000 insults')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object Edit3: TEdit
          Left = 128
          Top = 136
          Width = 65
          Height = 21
          TabOrder = 2
          OnClick = Edit3Click
        end
      end
      object TabSheet4: TTabSheet
        Caption = 'Edit'
        object Label1: TLabel
          Left = 204
          Top = 36
          Width = 113
          Height = 117
          Alignment = taCenter
          Caption =
            'Choose the category that you wish to edit here. Any changes that' +
            ' are made will be automatically saved when you change categories' +
            ' or exit this page...'
          Font.Color = clWindowText
          Font.Height = -8
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 204
          Top = 188
          Width = 117
          Height = 85
          Alignment = taCenter
          Caption =
            'To restore the categories back to their original state click thi' +
            's button. You will LOSE ALL changes you have made!'
          Enabled = False
        end
        object Memo1: TMemo
          Left = 8
          Top = 176
          Width = 185
          Height = 157
          Lines.Strings = (
            'Memo1')
          ScrollBars = ssVertical
          TabOrder = 0
          WordWrap = False
        end
        object Memo2: TMemo
          Left = 8
          Top = 12
          Width = 185
          Height = 157
          Lines.Strings = (
            'Memo1')
          ScrollBars = ssVertical
          TabOrder = 1
          WordWrap = False
        end
        object ComboBox1: TComboBox
          Left = 200
          Top = 12
          Width = 121
          Height = 21
          Hint = 'Choose the category to edit'
          Style = csDropDownList
          ItemHeight = 13
          Items.Strings = (
            'Gender'
            'Intelligence'
            'Weight'
            'Looks')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnChange = ComboBox1Change
        end
        object Button6: TButton
          Left = 204
          Top = 156
          Width = 113
          Height = 25
          Caption = 'Restore Defaults'
          Enabled = False
          TabOrder = 3
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 381
    Width = 347
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object OKBtn: TButton
      Left = 187
      Top = 2
      Width = 75
      Height = 25
      Caption = 'OK'
      Default = True
      ModalResult = 1
      TabOrder = 0
      OnClick = OKBtnClick
    end
    object CancelBtn: TButton
      Left = 267
      Top = 2
      Width = 75
      Height = 25
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 1
      OnClick = CancelBtnClick
    end
    object HelpBtn: TButton
      Left = 347
      Top = 2
      Width = 75
      Height = 25
      Caption = '&Help'
      TabOrder = 2
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    Filter = 'Text File|txt'
    Options = [ofOverwritePrompt, ofPathMustExist]
    Title = 'Save Insults'
    Left = 40
    Top = 381
  end
end