newaccountwizard_u.lfm

object newAccountWizard: TnewAccountWizard
  Left = 349
  Height = 431
  Top = 141
  Width = 528
  BorderIcons = [biSystemMenu]
  Caption = 'Neues Konto'
  ClientHeight = 431
  ClientWidth = 528
  DesignTimePPI = 98
  FormStyle = fsStayOnTop
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '2.0.10.0'
  object Notebook1: TNotebook
    Left = 0
    Height = 392
    Top = 0
    Width = 528
    PageIndex = 0
    Align = alClient
    TabOrder = 0
    TabStop = True
    object Page1: TPage
      Color = clBtnFace
      object Label1ChooseLib: TLabel
        Left = 20
        Height = 126
        Top = 7
        Width = 480
        Anchors = [akTop, akLeft, akRight]
        Caption = 'Um die auf einem Konto ausgeliehenen Medien zu betrachten, müssen Sie hier Ihre Büchereikontodaten eingeben.    '#10#10'Bitte wählen Sie zuerst die Stadt und dann die Bücherei aus, zu der das entsprechende Konto gehört und klicken dann auf "Weiter".'
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object Panel2: TPanel
        AnchorSideTop.Control = Label1ChooseLib
        AnchorSideTop.Side = asrBottom
        AnchorSideBottom.Control = Page1
        AnchorSideBottom.Side = asrBottom
        Left = 19
        Height = 239
        Top = 143
        Width = 494
        Anchors = [akTop, akLeft, akRight, akBottom]
        BorderSpacing.Around = 10
        BevelInner = bvLowered
        ParentFont = False
        TabOrder = 0
      end
    end
    object Page2: TPage
      object Label4: TLabel
        AnchorSideTop.Control = accountName
        AnchorSideTop.Side = asrCenter
        Left = 37
        Height = 19
        Top = 166
        Width = 94
        Alignment = taRightJustify
        Caption = 'Kontonummer:'
        ParentColor = False
        ParentFont = False
      end
      object passLabel: TLabel
        AnchorSideTop.Control = accountPass
        AnchorSideTop.Side = asrCenter
        Left = 37
        Height = 19
        Top = 213
        Width = 87
        Caption = 'Passwort:         '
        ParentColor = False
        ParentFont = False
      end
      object identificarionInvalid: TLabel
        AnchorSideTop.Control = accountPass
        AnchorSideTop.Side = asrBottom
        Left = 20
        Height = 19
        Top = 243
        Width = 57
        Caption = '(empty)'
        Font.Color = clRed
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object label2Account: TLabel
        AnchorSideTop.Control = LabelSelectedLib
        AnchorSideTop.Side = asrBottom
        Left = 20
        Height = 38
        Top = 51
        Width = 442
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 15
        Caption = 'Bitte geben Sie jetzt Ihre Kartennummer und ihr Passwort (häufig Geburtsdatum) ein und klicken Sie dann auf "Weiter".'
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object accountName: TEdit
        AnchorSideLeft.Control = Label4
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = label2Account
        AnchorSideTop.Side = asrBottom
        Left = 143
        Height = 31
        Top = 160
        Width = 310
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Left = 6
        BorderSpacing.Top = 66
        BorderSpacing.Around = 4
        OnChange = accountNameChange
        ParentFont = False
        TabOrder = 0
      end
      object accountPass: TEdit
        AnchorSideLeft.Control = Label4
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = accountName
        AnchorSideTop.Side = asrBottom
        Left = 143
        Height = 31
        Top = 207
        Width = 310
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Left = 6
        BorderSpacing.Top = 11
        BorderSpacing.Around = 4
        OnChange = accountNameChange
        ParentFont = False
        TabOrder = 1
      end
      object LabelAccountType: TLabel
        AnchorSideTop.Control = accountType
        AnchorSideTop.Side = asrCenter
        Left = 36
        Height = 19
        Top = 120
        Width = 58
        Caption = 'Kontotyp:'
        ParentColor = False
        ParentFont = False
      end
      object accountType: TComboBox
        AnchorSideLeft.Control = Label4
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = label2Account
        AnchorSideTop.Side = asrBottom
        Left = 143
        Height = 31
        Top = 114
        Width = 310
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Left = 6
        BorderSpacing.Top = 20
        BorderSpacing.Around = 4
        ItemHeight = 0
        ItemIndex = 0
        Items.Strings = (
          'Intern (z.B.: Student)'
          'Extern'
        )
        ParentFont = False
        Style = csDropDownList
        TabOrder = 2
        Text = 'Intern (z.B.: Student)'
      end
      object LabelSelectedLib: TLabel
        Left = 16
        Height = 19
        Top = 16
        Width = 122
        Caption = 'LabelSelectedLib'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object accountComment: TLabel
        AnchorSideTop.Control = identificarionInvalid
        AnchorSideTop.Side = asrBottom
        Left = 24
        Height = 19
        Top = 275
        Width = 474
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 12
        Caption = 'accountComment'
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
    end
    object Page3: TPage
      object label3displayName: TLabel
        Left = 24
        Height = 38
        Top = 21
        Width = 501
        Anchors = [akTop, akLeft, akRight]
        Caption = 'Geben Sie nun ein, unter welchem Namen das Konto im Programm angezeigt werden soll:'
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object Label8: TLabel
        AnchorSideTop.Control = accountPrettyName
        AnchorSideTop.Side = asrBottom
        Left = 24
        Height = 19
        Top = 137
        Width = 341
        BorderSpacing.Top = 33
        Caption = 'Sollen alle ausgeliehenen Medien gespeichert werden?'
        ParentColor = False
        ParentFont = False
      end
      object accountPrettyName: TEdit
        AnchorSideTop.Control = label3displayName
        AnchorSideTop.Side = asrBottom
        Left = 24
        Height = 31
        Top = 72
        Width = 479
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 12
        ParentFont = False
        TabOrder = 0
      end
      object saveHistory: TRadioButton
        AnchorSideTop.Control = Label8
        AnchorSideTop.Side = asrBottom
        Left = 56
        Height = 21
        Top = 169
        Width = 177
        BorderSpacing.Top = 13
        Caption = 'ja, alle Medien speichern'
        Checked = True
        ParentFont = False
        TabOrder = 1
        TabStop = True
      end
      object RadioButton1: TRadioButton
        AnchorSideTop.Control = saveHistory
        AnchorSideTop.Side = asrBottom
        Left = 56
        Height = 21
        Top = 206
        Width = 296
        BorderSpacing.Top = 15
        Caption = 'nein, => keine Ausleihenhistory und Statistik'
        ParentFont = False
        TabOrder = 2
      end
    end
    object Page4: TPage
      object lblWarning: TLabel
        AnchorSideLeft.Control = extendTypeRG
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = label4autoextend
        AnchorSideTop.Side = asrBottom
        Left = 222
        Height = 152
        Top = 74
        Width = 224
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Left = 28
        BorderSpacing.Top = 13
        Caption = 'Achtung: '#10'Die Bücherei erlaubt nur wenige Verlängerungen pro Medium. Bei der Option "immer, wenn möglich" werden daher, nach kurzer Zeit, keinerlei Verlängerungen mehr erlaubt sein.'
        Constraints.MaxWidth = 225
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Visible = False
        WordWrap = True
      end
      object extendDaysLbl: TLabel
        AnchorSideLeft.Control = extendTypeRG
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = label4autoextend
        AnchorSideTop.Side = asrBottom
        Left = 241
        Height = 19
        Top = 111
        Width = 94
        BorderSpacing.Left = 47
        BorderSpacing.Top = 51
        Caption = 'Nötig bedeutet:'
        ParentColor = False
        ParentFont = False
        Visible = False
      end
      object extendDaysLbl2: TLabel
        AnchorSideLeft.Control = extendDaysEdit
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = extendDaysLbl
        AnchorSideTop.Side = asrBottom
        Left = 286
        Height = 19
        Top = 156
        Width = 176
        BorderSpacing.Top = 20
        BorderSpacing.Around = 5
        Caption = 'Tage vor Ablauf der Leihfrist'
        ParentColor = False
        ParentFont = False
        Visible = False
        WordWrap = True
      end
      object label4autoextend: TLabel
        Left = 9
        Height = 38
        Top = 21
        Width = 500
        Anchors = [akTop, akLeft, akRight]
        Caption = 'Wählen Sie nun aus, wann das Programm selbstständig die auf diesem Konto ausgeliehenen Medien verlängern soll:'
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object extendTypeRG: TRadioGroup
        AnchorSideTop.Control = label4autoextend
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = lblWarning
        Left = 18
        Height = 315
        Top = 71
        Width = 172
        Anchors = [akTop, akLeft, akBottom]
        AutoFill = True
        AutoSize = True
        BorderSpacing.Top = 11
        BorderSpacing.Right = 10
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 290
        ClientWidth = 168
        ItemIndex = 0
        Items.Strings = (
          'immer, wenn möglich'
          'immer, wenn nötig'
          'niemals'
        )
        OnClick = RadioGroup2Click
        ParentFont = False
        TabOrder = 0
      end
      object extendDaysEdit: TEdit
        AnchorSideLeft.Control = extendTypeRG
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = extendDaysLbl2
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = extendDaysLbl2
        Left = 242
        Height = 31
        Top = 150
        Width = 35
        BorderSpacing.Left = 48
        BorderSpacing.Top = 14
        BorderSpacing.Right = 9
        ParentFont = False
        TabOrder = 1
        Text = '7'
        Visible = False
      end
    end
    object lastPage: TPage
      object Label5: TLabel
        Left = 7
        Height = 38
        Top = 8
        Width = 516
        Anchors = [akTop, akLeft, akRight]
        Caption = 'Klicken Sie nun auf "Erstellen", um ein Konto mit folgenden Eigenschaften zu registrieren:'
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object StringGrid1: TPanel
        AnchorSideTop.Control = Label5
        AnchorSideTop.Side = asrBottom
        AnchorSideBottom.Side = asrBottom
        Left = 21
        Height = 609
        Top = 51
        Width = 492
        Anchors = [akTop, akLeft, akRight, akBottom]
        BorderSpacing.Top = 4
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Color = clBtnFace
        ParentColor = False
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Height = 39
    Top = 392
    Width = 528
    Align = alBottom
    AutoSize = True
    ClientHeight = 39
    ClientWidth = 528
    ParentFont = False
    TabOrder = 1
    object cancelBtn: TButton
      Left = 432
      Height = 33
      Top = 3
      Width = 92
      Anchors = [akTop, akRight]
      AutoSize = True
      Cancel = True
      Caption = '&Abbrechen'
      OnClick = Button1Click
      ParentFont = False
      TabOrder = 2
    end
    object nextbtn: TButton
      AnchorSideRight.Control = cancelBtn
      Left = 338
      Height = 33
      Top = 3
      Width = 82
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Right = 10
      BorderSpacing.Around = 2
      Caption = '&Weiter >'
      Constraints.MinWidth = 82
      Default = True
      OnClick = Button2Click
      ParentFont = False
      TabOrder = 0
    end
    object back: TButton
      AnchorSideRight.Control = nextbtn
      Left = 254
      Height = 33
      Top = 3
      Width = 82
      Anchors = [akTop, akRight]
      AutoSize = True
      Caption = '< &Zurück'
      Constraints.MinWidth = 82
      Enabled = False
      OnClick = Button3Click
      ParentFont = False
      TabOrder = 1
    end
    object newlibbtn: TButton
      Left = 1
      Height = 33
      Top = 3
      Width = 223
      AutoSize = True
      Caption = 'Neue Bibliothek registrieren'
      OnClick = newlibbtnClick
      ParentFont = False
      TabOrder = 3
    end
  end
  object Timer1: TTimer
    Interval = 60
    OnTimer = Timer1Timer
    Left = 466
    Top = 33
  end
end