object EheForm: TEheForm Left = 0 Top = 0 HelpContext = 510 BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] BorderStyle = bsDialog Caption = 'Partnerschaft' ClientHeight = 292 ClientWidth = 554 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnClose = TntFormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object CGBEheVerheiratet: TTntCheckGroupBox Left = 8 Top = 73 Width = 537 Height = 174 BoxAlignment = taRightJustify Caption = 'verheiratet' Checked = True TabOrder = 0 object GBEheHochzeit: TTntGroupBox Left = 10 Top = 22 Width = 518 Height = 68 Caption = 'Hochzeit' TabOrder = 1 object Label3: TTntLabel Left = 11 Top = 20 Width = 18 Height = 15 Caption = 'am' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True end object Label4: TTntLabel Left = 170 Top = 20 Width = 10 Height = 15 Caption = 'in' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True end object EheOv: TImage Tag = 1 Left = 497 Top = 45 Width = 11 Height = 12 Cursor = crHandPoint Hint = 'Ortsverwaltung' ParentShowHint = False Picture.Data = {} ShowHint = True Transparent = True OnClick = EheOvClick end object EheAm: TTntEdit Tag = 1 Left = 10 Top = 34 Width = 150 Height = 23 Cursor = crArrow AutoSelect = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 Text = 'EheAm' end object EheIn: TTntLookupEdit Tag = 1 Left = 170 Top = 34 Width = 320 Height = 23 AutoSelect = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 Text = 'EheIn' OnChange = EheInChange Sorted = True end end object CGBEheScheidung: TTntCheckGroupBox Left = 10 Top = 95 Width = 518 Height = 68 BoxAlignment = taRightJustify Caption = 'Scheidung' Checked = False TabOrder = 2 object TntLabel1: TTntLabel Left = 11 Top = 20 Width = 18 Height = 15 Caption = 'am' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True end object TntLabel4: TTntLabel Left = 170 Top = 20 Width = 10 Height = 15 Caption = 'in' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True end object ScheidungOv: TImage Tag = 1 Left = 497 Top = 45 Width = 11 Height = 12 Cursor = crHandPoint Hint = 'Ortsverwaltung' Enabled = False ParentShowHint = False Picture.Data = {} ShowHint = True Transparent = True OnClick = ScheidungOvClick end object ScheidungAm: TTntEdit Tag = 1 Left = 10 Top = 34 Width = 150 Height = 23 Cursor = crArrow AutoSelect = False Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 Text = 'ScheidungAm' end object ScheidungIn: TTntLookupEdit Tag = 1 Left = 170 Top = 34 Width = 320 Height = 23 AutoSelect = False Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 Text = 'ScheidungIn' OnChange = ScheidungInChange Sorted = True end end end object OK: TTntButton Tag = 120 Left = 371 Top = 257 Width = 81 Height = 27 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 1 OnClick = OKClick end object Abbruch: TTntButton Tag = 122 Left = 464 Top = 257 Width = 81 Height = 27 Cancel = True Caption = '&Abbrechen' ModalResult = 2 TabOrder = 2 end object GBEheHeading: TTntGroupBox Left = 8 Top = 8 Width = 537 Height = 58 TabOrder = 3 object _LabelPerson2: TTntLabel Left = 20 Top = 31 Width = 67 Height = 15 Caption = 'Frauke Frau' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object _LabelPerson1: TTntLabel Left = 21 Top = 10 Width = 81 Height = 15 Caption = 'Manfred Mann' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object SameSex: TTntCheckBox Left = 14 Top = 254 Width = 315 Height = 17 Caption = 'gleichgeschlechtlich' TabOrder = 4 end end