Do It Yourself Pak/Do_ItPak1.iso/aftd/_SETUP.1/FamTree.exe/0/RCDATA/TCALFORM/TCALFORM.txt

Text File | 1999-07-07 | 7KB | 312 lines

object CalForm: TCalForm
  Left = 339
  Top = 163
  Width = 630
  Height = 512
  HelpContext = 9000
  Caption = 'CalForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PrintScale = poPrintToFit
  OnActivate = FormActivate
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 622
    Height = 41
    HelpContext = 9000
    Align = alTop
    Caption = 'Date'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -23
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object UpDownMonth: TUpDown
      Left = 552
      Top = 8
      Width = 57
      Height = 29
      HelpContext = 9000
      Anchors = [akRight, akBottom]
      Min = 0
      Max = 13
      Orientation = udHorizontal
      Position = 1
      TabOrder = 0
      Wrap = False
      OnClick = UpDownMonthClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 424
    Width = 622
    Height = 61
    HelpContext = 9000
    Align = alBottom
    TabOrder = 1
    object HelpBtn: TBitBtn
      Left = 528
      Top = 15
      Width = 86
      Height = 41
      HelpContext = 9000
      Anchors = [akRight, akBottom]
      TabOrder = 0
      OnClick = HelpBtnClick
      Kind = bkHelp
    end
    object PrintBtn: TBitBtn
      Left = 352
      Top = 15
      Width = 86
      Height = 41
      HelpContext = 9000
      Anchors = [akRight, akBottom]
      Caption = '&Print'
      TabOrder = 1
      OnClick = PrintBtnClick
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDD000000DDD00000000000DDDD000000DD0777777777070DDD000000D000
        000000000070DD000000D0777777FFF77000DD000000D077777799977070DD00
        0000D0000000000000770D000000D0777777777707070D000000DD0000000000
        70700D000000DDD0FFFFFFFF07070D000000DDDD0FCCCCCF0000DD000000DDDD
        0FFFFFFFF0DDDD000000DDDDD0FCCCCCF0DDDD000000DDDDD0FFFFFFFF0DDD00
        0000DDDDDD000000000DDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
    end
    object CloseBtn: TBitBtn
      Left = 440
      Top = 15
      Width = 86
      Height = 41
      HelpContext = 9000
      Anchors = [akRight, akBottom]
      TabOrder = 2
      Kind = bkClose
    end
    object GrpInclude: TRadioGroup
      Left = 8
      Top = 9
      Width = 145
      Height = 49
      HelpContext = 9000
      Caption = 'Include Individuals'
      Columns = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ItemIndex = 0
      Items.Strings = (
        'All'
        'Living')
      ParentFont = False
      TabOrder = 3
      OnClick = GrpIncludeClick
    end
    object GrpDateType: TGroupBox
      Left = 160
      Top = 8
      Width = 185
      Height = 48
      HelpContext = 9000
      Caption = 'Include Dates'
      TabOrder = 4
      object ChkBirth: TCheckBox
        Left = 8
        Top = 24
        Width = 57
        Height = 17
        HelpContext = 9000
        Caption = 'Birth'
        Checked = True
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentColor = False
        ParentFont = False
        State = cbChecked
        TabOrder = 0
        OnClick = ChkBirthClick
      end
      object ChkAnniv: TCheckBox
        Left = 88
        Top = 24
        Width = 89
        Height = 17
        HelpContext = 9000
        Caption = 'Anniversary'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = ChkAnnivClick
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 41
    Width = 622
    Height = 383
    Align = alClient
    TabOrder = 2
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 1
      Top = 26
      Width = 632
      Height = 354
      HelpContext = 9000
      ColCount = 7
      DataSource = FamilyData.dsCal
      PanelHeight = 59
      PanelWidth = 88
      TabOrder = 0
      TabStop = False
      RowCount = 6
      ShowFocus = False
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 88
        Height = 59
        Align = alClient
        BorderStyle = bsSingle
        Caption = 'Panel4'
        Color = clWhite
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object DBTextDay: TDBText
          Left = 1
          Top = 1
          Width = 84
          Height = 17
          Align = alTop
          Alignment = taCenter
          DataField = 'Day'
          DataSource = FamilyData.dsCal
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
        end
        object DBMemo1: TDBMemo
          Left = 1
          Top = 18
          Width = 84
          Height = 38
          HelpContext = 9000
          Align = alClient
          BorderStyle = bsNone
          DataField = 'Events'
          DataSource = FamilyData.dsCal
          Font.Charset = ANSI_CHARSET
          Font.Color = clMaroon
          Font.Height = -10
          Font.Name = 'Small Fonts'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
      end
    end
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 620
      Height = 25
      HelpContext = 9000
      Align = alTop
      TabOrder = 1
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 41
        Height = 16
        Caption = 'Label1'
      end
      object Label2: TLabel
        Left = 88
        Top = 8
        Width = 41
        Height = 16
        Caption = 'Label2'
      end
      object Label3: TLabel
        Left = 176
        Top = 8
        Width = 41
        Height = 16
        Caption = 'Label3'
      end
      object Label4: TLabel
        Left = 264
        Top = 8
        Width = 41
        Height = 16
        Caption = 'Label4'
      end
      object Label5: TLabel
        Left = 344
        Top = 8
        Width = 41
        Height = 16
        Caption = 'Label5'
      end
      object Label6: TLabel
        Left = 432
        Top = 8
        Width = 41
        Height = 16
        Caption = 'Label6'
      end
      object Label7: TLabel
        Left = 512
        Top = 8
        Width = 41
        Height = 16
        Caption = 'Label7'
      end
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 528
    Top = 24
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 560
    Top = 25
  end
end