object FrmOptions: TFrmOptions Left = 310 Top = 160 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Optionen' ClientHeight = 404 ClientWidth = 315 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object cbOpenLastActive: TCheckBox Left = 16 Top = 312 Width = 277 Height = 17 Caption = 'Zuletzt aktive Datei beim n�chsten Start mit �ffnen' TabOrder = 1 end object PcOptions: TPageControl Left = 8 Top = 8 Width = 297 Height = 297 ActivePage = TabSheet1 TabOrder = 2 object TabSheet1: TTabSheet Caption = 'Kalender' object rgWkStart: TRadioGroup Left = 12 Top = 4 Width = 265 Height = 85 Caption = 'Kalenderwoche 1 ist...' Items.Strings = ( 'Woche, die mit dem 1. Januar beginnt' 'erste Woche mit mehr als drei Tagen im lfd. Jahr' 'erste volle Woche im lfd. Jahr') TabOrder = 0 end object rgCalType: TRadioGroup Left = 148 Top = 96 Width = 129 Height = 73 Caption = 'Kalendersystem' Items.Strings = ( 'julianisch' 'gegorianisch') TabOrder = 1 end object rgFirstWkDay: TRadioGroup Left = 12 Top = 96 Width = 121 Height = 161 Caption = 'Erster Wochentag...' TabOrder = 2 end object rgLang: TRadioGroup Left = 148 Top = 172 Width = 129 Height = 85 Caption = 'Sprache' Items.Strings = ( 'Deutsch' 'Englisch') TabOrder = 3 OnClick = rgLangClick end end object TabSheet4: TTabSheet Caption = 'Zeit' object GroupBox1: TGroupBox Left = 4 Top = 8 Width = 281 Height = 205 Caption = 'Position' TabOrder = 0 object Label4: TLabel Left = 12 Top = 148 Width = 60 Height = 13 AutoSize = False Caption = 'Breite:' Enabled = False end object Label5: TLabel Left = 12 Top = 172 Width = 60 Height = 13 AutoSize = False Caption = 'L�nge:' Enabled = False end object Label6: TLabel Left = 8 Top = 80 Width = 109 Height = 13 AutoSize = False Caption = 'Zeitzone (UT +/-):' end object Label7: TLabel Left = 112 Top = 144 Width = 5 Height = 20 Caption = '�' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 152 Top = 144 Width = 3 Height = 20 Caption = #39 Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 192 Top = 144 Width = 6 Height = 20 Caption = '"' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 112 Top = 168 Width = 5 Height = 20 Caption = '�' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 152 Top = 168 Width = 3 Height = 20 Caption = #39 Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 192 Top = 168 Width = 6 Height = 20 Caption = '"' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label13: TLabel Left = 148 Top = 80 Width = 46 Height = 13 Caption = 'Stunde(n)' end object Label14: TLabel Left = 8 Top = 52 Width = 60 Height = 13 AutoSize = False Caption = 'Ort:' end object Label15: TLabel Left = 8 Top = 28 Width = 60 Height = 13 AutoSize = False Caption = 'Land:' end object LatD: TEdit Left = 76 Top = 144 Width = 33 Height = 21 Enabled = False TabOrder = 0 end object LatM: TEdit Left = 124 Top = 144 Width = 25 Height = 21 Enabled = False TabOrder = 1 end object LatS: TEdit Left = 164 Top = 144 Width = 25 Height = 21 Enabled = False TabOrder = 2 end object cbN: TCheckBox Left = 208 Top = 148 Width = 30 Height = 17 Caption = 'N' Checked = True Enabled = False State = cbChecked TabOrder = 3 end object LongD: TEdit Left = 76 Top = 168 Width = 33 Height = 21 Enabled = False TabOrder = 4 end object LongM: TEdit Left = 124 Top = 168 Width = 25 Height = 21 Enabled = False TabOrder = 5 end object LongS: TEdit Left = 164 Top = 168 Width = 25 Height = 21 Enabled = False TabOrder = 6 end object cbW: TCheckBox Left = 208 Top = 172 Width = 30 Height = 17 Caption = 'W' Enabled = False TabOrder = 7 end object Zone: TEdit Left = 100 Top = 76 Width = 41 Height = 21 TabOrder = 8 end object cbOrt: TComboBox Left = 72 Top = 48 Width = 145 Height = 21 Style = csDropDownList DropDownCount = 20 ItemHeight = 0 Sorted = True TabOrder = 9 OnChange = cbOrtChange end object cbLand: TComboBox Left = 72 Top = 24 Width = 145 Height = 21 Style = csDropDownList DropDownCount = 20 ItemHeight = 0 Sorted = True TabOrder = 10 OnChange = cbLandChange end object cbCustom: TCheckBox Left = 12 Top = 120 Width = 97 Height = 17 Caption = 'andere Position:' TabOrder = 11 OnClick = cbCustomClick end end end object TabSheet3: TTabSheet Caption = 'Anzeige' object gbColors: TGroupBox Left = 4 Top = 116 Width = 281 Height = 121 Caption = 'Farben' TabOrder = 0 object Label1: TLabel Left = 8 Top = 48 Width = 43 Height = 13 Caption = 'Sonntag:' end object Label2: TLabel Left = 84 Top = 20 Width = 21 Height = 13 Caption = 'vorn' end object Label3: TLabel Left = 124 Top = 20 Width = 29 Height = 13 Caption = 'hinten' end object Label16: TLabel Left = 8 Top = 72 Width = 44 Height = 13 Caption = 'Wochen:' end object Label17: TLabel Left = 8 Top = 96 Width = 56 Height = 13 Caption = 'Markierung:' end object ebSoV: TEdit Left = 84 Top = 44 Width = 25 Height = 21 Cursor = crArrow ReadOnly = True TabOrder = 0 OnClick = ebSoVClick end object ebSoH: TEdit Left = 128 Top = 44 Width = 25 Height = 21 Cursor = crArrow ReadOnly = True TabOrder = 1 OnClick = ebSoHClick end object ebWkV: TEdit Left = 84 Top = 68 Width = 25 Height = 21 Cursor = crArrow ReadOnly = True TabOrder = 2 OnClick = ebWkVClick end object ebWkH: TEdit Left = 128 Top = 68 Width = 25 Height = 21 Cursor = crArrow ReadOnly = True TabOrder = 3 OnClick = ebWkHClick end object ebMkH: TEdit Left = 128 Top = 92 Width = 25 Height = 21 Cursor = crArrow ReadOnly = True TabOrder = 4 OnClick = ebMkHClick end object ebMkV: TEdit Left = 84 Top = 92 Width = 25 Height = 21 Cursor = crArrow ReadOnly = True TabOrder = 5 OnClick = ebMkVClick end end object GroupBox2: TGroupBox Left = 4 Top = 12 Width = 281 Height = 93 Caption = 'Zeichensatz' TabOrder = 1 object LbName: TLabel Left = 12 Top = 24 Width = 129 Height = 13 AutoSize = False Caption = 'LbName' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LbSize: TLabel Left = 112 Top = 40 Width = 32 Height = 13 Caption = 'LbSize' Visible = False end object LbStyle: TLabel Left = 12 Top = 56 Width = 35 Height = 13 Caption = 'LbStyle' Visible = False end object LbHeight: TLabel Left = 12 Top = 40 Width = 43 Height = 13 Caption = 'LbHeight' end object BtnChangeFont: TButton Left = 160 Top = 24 Width = 59 Height = 25 Caption = '�ndern' TabOrder = 0 OnClick = BtnChangeFontClick end object CbAdaptToFont: TCheckBox Left = 12 Top = 68 Width = 213 Height = 17 Caption = 'Fenstergr��e an Zeichensatz anpassen' TabOrder = 1 end end end object TabSheet2: TTabSheet Caption = 'Gruppen' object gbGroups: TGroupBox Left = 4 Top = 4 Width = 281 Height = 257 Caption = 'Gruppen' TabOrder = 0 object DblbGroups: TDBLookupListBox Left = 8 Top = 22 Width = 265 Height = 225 Hint = 'rechte Maustaste...' KeyField = 'Gp_no' ListField = 'Gp_name' ListSource = DsGroups ParentShowHint = False PopupMenu = PmEditGrps ShowHint = True TabOrder = 0 OnDblClick = iChgGrpClick end end end end object btClose: TButton Left = 228 Top = 372 Width = 75 Height = 25 Caption = 'Schlie�en' Default = True TabOrder = 0 OnClick = btCloseClick end object cbDayViewOpen: TCheckBox Left = 16 Top = 332 Width = 277 Height = 17 Caption = 'Kalenderblatt mit Jahres�bersicht �ffnen' TabOrder = 3 end object dlgColor: TColorDialog Ctl3D = True Left = 152 Top = 380 end object CdsGroups: TClientDataSet Aggregates = <> Params = <> Left = 124 Top = 380 object CdsGroupsGp_no: TAutoIncField FieldName = 'Gp_no' end object CdsGroupsGp_name: TStringField FieldName = 'Gp_name' Required = True Size = 80 end object CdsGroupsGp_color: TIntegerField FieldName = 'Gp_color' end object CdsGroupsGp_free: TBooleanField FieldName = 'Gp_free' end object CdsGroupsGp_show: TIntegerField FieldName = 'Gp_show' end end object DsGroups: TDataSource DataSet = CdsGroups Left = 96 Top = 380 end object PmEditGrps: TPopupMenu Left = 68 Top = 380 object iNewGrp: TMenuItem Caption = 'Neu' OnClick = iNewGrpClick end object iChgGrp: TMenuItem Caption = '�ndern' Default = True OnClick = iChgGrpClick end object iDelGrp: TMenuItem Caption = 'L�schen' OnClick = iDelGrpClick end end object DlgFontYear: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 40 Top = 380 end end