PC World Komputer 1998 January/Pcwk0198.iso/Dcomplib/ASSISTNT.LZH/FORM.DFM/FORM.txt

Text File | 1997-03-16 | 9KB | 421 lines

object Form2: TForm2
  Left = 250
  Top = 172
  ActiveControl = Assistent1
  BorderStyle = bsDialog
  Caption = 'Demo Dialog'
  ClientHeight = 396
  ClientWidth = 516
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  PixelsPerInch = 96
  Position = poScreenCenter
  TextHeight = 16
  object Assistent1: TAssistent
    Left = 0
    Top = 0
    Width = 516
    Height = 396
    AssistentHeight = 298
    AssistentWidth = 638
    DialogHeight = 423
    DialogWidth = 524
    Page = 0
    NumPages = 5
    ShowHelpButton = False
    ShowChangeButton = True
    ShowAssistentOK = False
    OnHelpClick = Assistent1HelpClick
    TextAssistentOK = '&OK'
    TextFinish = '&Finish'
    TextDialogOK = '&OK'
    TextChangeDialog = '&Dialog'
    TextChangeAssistent = '&Assistent'
    TextHelp = '&Help'
    TextCancel = '&Cancel'
    TextNext = '&Next'
    TextBack = '&Back'
    TextDialogName = 'Demo Dialog'
    TextAssistentName = 'Demo Assistent - Page %d of %d'
    EndEnabled = True
    ButtonWidth = 100
    ShowGlyph = True
    object ABox8: TABox
      Left = 20000
      Top = 8
      Width = 369
      Height = 41
      Dleft = 20000
      Dtop = 8
      Aleft = 8
      Atop = 8
      ShowonDialog = False
      AssistentPage = 1
      TabOrder = 6
      object Label6: TLabel
        Left = 8
        Top = 8
        Width = 345
        Height = 25
        AutoSize = False
        Caption = 'Welcome in Assistent mode. This is page one of five.'
      end
    end
    object ABox9: TABox
      Left = 20000
      Top = 56
      Width = 393
      Height = 33
      Dleft = 20000
      Dtop = 56
      Aleft = 56
      Atop = 56
      ShowonDialog = False
      AssistentPage = 2
      TabOrder = 7
      object Label7: TLabel
        Left = 8
        Top = 8
        Width = 313
        Height = 16
        Caption = 'You can use a Button to jump to a specific page:'
      end
    end
    object ABox10: TABox
      Left = 20000
      Top = 192
      Width = 401
      Height = 33
      Dleft = 20000
      Dtop = 192
      Aleft = 16
      Atop = 192
      ShowonDialog = False
      AssistentPage = 4
      TabOrder = 8
      object Label8: TLabel
        Left = 24
        Top = 8
        Width = 335
        Height = 16
        Caption = 'You can position the components wherever you like'
      end
    end
    object ABox12: TABox
      Left = 20000
      Top = 16
      Width = 361
      Height = 65
      Dleft = 20000
      Dtop = 16
      Aleft = 40
      Atop = 16
      ShowonDialog = False
      AssistentPage = 5
      TabOrder = 9
      object Label10: TLabel
        Left = 16
        Top = 8
        Width = 313
        Height = 33
        AutoSize = False
        Caption = 'You have reached the final page of this Demo. '
        WordWrap = True
      end
    end
    object ABox1: TABox
      Left = 0
      Top = 0
      Width = 57
      Height = 353
      Dleft = 0
      Dtop = 0
      Aleft = 8
      Atop = 8
      ShowonDialog = True
      AssistentPage = 0
      TabOrder = 10
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 57
        Height = 353
        Picture.Data = {<image000.bmp>}
      end
    end
    object ABox2: TABox
      Left = 64
      Top = 8
      Width = 441
      Height = 57
      Dleft = 64
      Dtop = 8
      Aleft = 64
      Atop = 8
      ShowonDialog = True
      AssistentPage = 0
      TabOrder = 11
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 425
        Height = 49
        AutoSize = False
        Caption =
          'Welcome to the Demo of TAssistent. In the monent the form is in ' +
          'Dialog mode. All Components to enter Data are on one Page.'
        WordWrap = True
      end
    end
    object ABox3: TABox
      Left = 64
      Top = 64
      Width = 145
      Height = 81
      Dleft = 64
      Dtop = 64
      Aleft = 72
      Atop = 72
      ShowonDialog = True
      AssistentPage = 0
      TabOrder = 12
      object Label2: TLabel
        Left = 16
        Top = 8
        Width = 113
        Height = 65
        AutoSize = False
        Caption = 'TAssistent works with any visual Component like:'
        WordWrap = True
      end
    end
    object AGroupBox1: TAGroupBox
      Left = 224
      Top = 72
      Width = 193
      Height = 65
      Caption = 'TEdit'
      TabOrder = 13
      Dleft = 224
      Dtop = 72
      Aleft = 120
      Atop = 144
      ShowonDialog = True
      AssistentPage = 1
      object Edit1: TEdit
        Left = 8
        Top = 24
        Width = 177
        Height = 24
        TabOrder = 0
      end
    end
    object ABox4: TABox
      Left = 336
      Top = 216
      Width = 177
      Height = 113
      Dleft = 336
      Dtop = 216
      Aleft = 440
      Atop = 8
      ShowonDialog = True
      AssistentPage = 4
      TabOrder = 14
      object Memo1: TMemo
        Left = 16
        Top = 8
        Width = 153
        Height = 97
        Lines.Strings = (
          'or a Tmemo')
        TabOrder = 0
      end
    end
    object ABox5: TABox
      Left = 64
      Top = 280
      Width = 209
      Height = 65
      Dleft = 64
      Dtop = 280
      Aleft = 80
      Atop = 264
      ShowonDialog = True
      AssistentPage = 0
      TabOrder = 15
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 201
        Height = 57
        AutoSize = False
        Caption =
          'To change to Asistent mode press the button in the lower left co' +
          'rner labled "Assistent"'
        WordWrap = True
      end
    end
    object AGroupBox2: TAGroupBox
      Left = 72
      Top = 160
      Width = 113
      Height = 81
      Caption = 'TButton'
      TabOrder = 16
      Dleft = 72
      Dtop = 160
      Aleft = 192
      Atop = 120
      ShowonDialog = True
      AssistentPage = 2
      object Button1: TButton
        Left = 16
        Top = 32
        Width = 75
        Height = 25
        Caption = 'Click me!'
        TabOrder = 0
        OnClick = Button1Click
      end
    end
    object AGroupBox3: TAGroupBox
      Left = 200
      Top = 176
      Width = 129
      Height = 97
      Caption = 'TCheckBox'
      TabOrder = 17
      Dleft = 200
      Dtop = 176
      Aleft = 248
      Atop = 120
      ShowonDialog = True
      AssistentPage = 3
      object CheckBox1: TCheckBox
        Left = 8
        Top = 24
        Width = 97
        Height = 17
        Caption = 'Show Help'
        TabOrder = 0
        OnClick = CheckBox1Click
      end
      object CheckBox2: TCheckBox
        Left = 8
        Top = 48
        Width = 113
        Height = 17
        Caption = 'Show Change'
        State = cbChecked
        TabOrder = 1
        OnClick = CheckBox2Click
      end
      object CheckBox3: TCheckBox
        Left = 8
        Top = 72
        Width = 97
        Height = 17
        Caption = 'Show OK'
        TabOrder = 2
        OnClick = CheckBox3Click
      end
    end
    object ABox6: TABox
      Left = 20000
      Top = 56
      Width = 297
      Height = 73
      Dleft = 20000
      Dtop = 56
      Aleft = 48
      Atop = 56
      ShowonDialog = False
      AssistentPage = 1
      TabOrder = 18
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 257
        Height = 65
        AutoSize = False
        Caption =
          'This Edit field is the same as on the Dialog page. Try enter som' +
          'e data and change back to Dialog mode.'
        WordWrap = True
      end
    end
    object ABox7: TABox
      Left = 20000
      Top = 160
      Width = 145
      Height = 65
      Dleft = 20000
      Dtop = 160
      Aleft = 464
      Atop = 160
      ShowonDialog = False
      AssistentPage = 1
      TabOrder = 19
      object Label5: TLabel
        Left = 8
        Top = 8
        Width = 129
        Height = 57
        AutoSize = False
        Caption = 'To change to the next page press the next Button.'
        WordWrap = True
      end
    end
    object ABox11: TABox
      Left = 20000
      Top = 32
      Width = 281
      Height = 81
      Dleft = 20000
      Dtop = 32
      Aleft = 72
      Atop = 32
      ShowonDialog = False
      AssistentPage = 3
      TabOrder = 20
      object Label9: TLabel
        Left = 48
        Top = 16
        Width = 233
        Height = 57
        AutoSize = False
        Caption = 'You can anabled and disable the Change, Help and OK Button.'
        WordWrap = True
      end
    end
    object ABox13: TABox
      Left = 20000
      Top = 160
      Width = 241
      Height = 65
      Dleft = 20000
      Dtop = 160
      Aleft = 384
      Atop = 160
      ShowonDialog = False
      AssistentPage = 5
      TabOrder = 21
      object Label11: TLabel
        Left = 8
        Top = 8
        Width = 225
        Height = 57
        AutoSize = False
        Caption =
          'If the OK button is diabled the Next button has changed into a F' +
          'inish button.'
        WordWrap = True
      end
    end
  end
end