upersonliste.lfm

object FPersonliste: TFPersonliste
  Left = 540
  Height = 604
  Top = 296
  Width = 807
  Caption = 'Personliste'
  ClientHeight = 604
  ClientWidth = 807
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  LCLVersion = '2.0.4.0'
  object AfslutButton: TButton
    Left = 704
    Height = 25
    Top = 88
    Width = 75
    Anchors = [akTop, akRight]
    Caption = '&Afslut'
    OnClick = AfslutButtonClick
    TabOrder = 0
  end
  object Edit1: TEdit
    Left = 104
    Height = 26
    Top = 568
    Width = 584
    Anchors = [akLeft, akBottom]
    TabOrder = 1
  end
  object PageControl1: TPageControl
    Left = 16
    Height = 552
    Top = 8
    Width = 672
    ActivePage = TabSheet1
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabIndex = 0
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'Personer'
      ClientHeight = 518
      ClientWidth = 666
      object SG1: TStringGrid
        Left = 8
        Height = 496
        Top = 8
        Width = 648
        Anchors = [akTop, akLeft, akRight, akBottom]
        ColCount = 7
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goSmoothScroll]
        TabOrder = 0
        OnHeaderClick = SG1HeaderClick
        OnSelectCell = SG1SelectCell
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Familier'
      ClientHeight = 518
      ClientWidth = 666
      object SG2: TStringGrid
        Left = 8
        Height = 504
        Top = 8
        Width = 648
        Anchors = [akTop, akLeft, akRight, akBottom]
        ColCount = 4
        FixedCols = 0
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Anetræ'
      ClientHeight = 518
      ClientWidth = 666
      object TV1: TTreeView
        Left = 24
        Height = 491
        Top = 16
        Width = 624
        Anchors = [akTop, akLeft, akRight, akBottom]
        AutoExpand = True
        TabOrder = 0
        Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      end
    end
  end
  object BCreatTree: TButton
    Left = 704
    Height = 25
    Top = 48
    Width = 75
    Anchors = [akTop, akRight]
    Caption = '&Dan træ'
    OnClick = BCreatTreeClick
    TabOrder = 3
  end
  object Label1: TLabel
    Left = 16
    Height = 16
    Top = 576
    Width = 84
    Anchors = [akLeft, akBottom]
    Caption = 'Fokusperson :'
    ParentColor = False
  end
  object PSD1: TPrinterSetupDialog
    left = 724
    top = 172
  end
  object PD1: TPrintDialog
    left = 724
    top = 232
  end
  object PASD1: TPageSetupDialog
    left = 728
    top = 288
  end
  object FD1: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    left = 728
    top = 352
  end
end