PC World Komputer 1997 May/Pcwk0597.iso/delphi/tenpack.lzh/PYCAL.DFM/PYCAL.txt

Text File | 1995-09-30 | 15KB | 688 lines

object Ypopup: TYpopup
  Left = 45
  Top = 6
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Year at a Glance'
  ClientHeight = 450
  ClientWidth = 517
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  PixelsPerInch = 96
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  TextHeight = 16
  object SpeedButton1: TSpeedButton
    Left = 421
    Top = 5
    Width = 46
    Height = 25
    Caption = '>'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 50
    Top = 5
    Width = 46
    Height = 25
    Caption = '<'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object Label1: TLabel
    Left = 186
    Top = 7
    Width = 36
    Height = 16
    Caption = '&Year:'
    FocusControl = ComboBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton3: TSpeedButton
    Left = 467
    Top = 5
    Width = 46
    Height = 25
    Caption = '>>'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton4: TSpeedButton
    Left = 4
    Top = 5
    Width = 46
    Height = 25
    Caption = '<<'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object cal12: TStringGrid
    Left = 385
    Top = 312
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 11
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal11: TStringGrid
    Left = 258
    Top = 312
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 10
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal8: TStringGrid
    Left = 385
    Top = 180
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 7
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal4: TStringGrid
    Left = 385
    Top = 48
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 3
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object Cal1: TStringGrid
    Left = 4
    Top = 48
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 0
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal2: TStringGrid
    Left = 131
    Top = 48
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 1
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal3: TStringGrid
    Left = 258
    Top = 48
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 2
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal5: TStringGrid
    Left = 4
    Top = 180
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 4
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal6: TStringGrid
    Left = 131
    Top = 180
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 5
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal7: TStringGrid
    Left = 258
    Top = 180
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 6
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object cal10: TStringGrid
    Left = 131
    Top = 312
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 9
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object ComboBox1: TComboBox
    Left = 230
    Top = 5
    Width = 84
    Height = 20
    Style = csDropDownList
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemHeight = 13
    ParentFont = False
    TabOrder = 12
    OnChange = ComboBox1Change
  end
  object Panel1: TPanel
    Left = 389
    Top = 429
    Width = 125
    Height = 20
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 13
  end
  object cal9: TStringGrid
    Left = 4
    Top = 312
    Width = 128
    Height = 114
    Color = clBtnFace
    ColCount = 7
    Ctl3D = True
    DefaultColWidth = 17
    DefaultRowHeight = 15
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -9
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentCtl3D = False
    ParentFont = False
    RowCount = 7
    ScrollBars = ssNone
    TabOrder = 8
    OnDblClick = Cal1DblClick
    OnEnter = Cal1Enter
    OnExit = Cal1Exit
    OnKeyPress = Cal1KeyPress
    OnSelectCell = Cal1SelectCell
  end
  object Panel2: TPanel
    Left = 4
    Top = 29
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'January'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 14
    OnDblClick = Panel2DblClick
  end
  object Panel3: TPanel
    Left = 131
    Top = 29
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'February'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 15
  end
  object Panel4: TPanel
    Left = 258
    Top = 29
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'March'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 16
  end
  object Panel5: TPanel
    Left = 385
    Top = 29
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'April'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 17
  end
  object Panel6: TPanel
    Left = 4
    Top = 161
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'May'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 18
  end
  object Panel7: TPanel
    Left = 131
    Top = 161
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'June'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 19
  end
  object Panel8: TPanel
    Left = 258
    Top = 161
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'July'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 20
  end
  object Panel9: TPanel
    Left = 385
    Top = 161
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'August'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 21
  end
  object Panel10: TPanel
    Left = 4
    Top = 293
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'September'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 22
  end
  object Panel11: TPanel
    Left = 131
    Top = 293
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'October'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 23
  end
  object Panel12: TPanel
    Left = 258
    Top = 293
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'November'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 24
  end
  object Panel13: TPanel
    Left = 385
    Top = 293
    Width = 128
    Height = 19
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'December'
    Ctl3D = False
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 25
  end
  object Panel14: TPanel
    Left = 0
    Top = 429
    Width = 195
    Height = 20
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    Caption = 'Select a Date'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 26
  end
  object Panel15: TPanel
    Left = 199
    Top = 429
    Width = 186
    Height = 20
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 27
  end
end