home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / PROGRAM / DELPHI16 / Calendar / CALUNIT.DFM / CALUNIT.txt next >
Text File  |  1995-05-05  |  5KB  |  173 lines
  1. object Form1: TForm1
  2.   Left = 363
  3.   Top = 209
  4.   Width = 343
  5.   Height = 269
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   Caption = 'Calendar'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   PixelsPerInch = 96
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object BitBtnPrevMnth: TBitBtn
  17.     Left = 56
  18.     Top = 168
  19.     Width = 105
  20.     Height = 20
  21.     Caption = '&Prev Month'
  22.     TabOrder = 0
  23.     OnClick = BitBtnPrevMnthClick
  24.     Glyph.Data = {
  25.       78010000424D7801000000000000760000002800000020000000100000000100
  26.       04000000000000000000120B0000120B00000000000000000000000000000000
  27.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  28.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  29.       33333333333333333333333333333333333333333333333333FF333333333333
  30.       3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
  31.       E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
  32.       E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
  33.       E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
  34.       000033333373FF77777733333330003333333333333777333333333333333333
  35.       3333333333333333333333333333333333333333333333333333333333333333
  36.       33333333333333333333333333333333333333333333333333330000}
  37.     NumGlyphs = 2
  38.   end
  39.   object Calendar1: TCalendar
  40.     Left = 8
  41.     Top = 40
  42.     Width = 320
  43.     Height = 120
  44.     Color = clTeal
  45.     StartOfWeek = 0
  46.     TabOrder = 1
  47.     OnChange = Calendar1Change
  48.   end
  49.   object PanelMnth: TPanel
  50.     Left = 8
  51.     Top = 8
  52.     Width = 145
  53.     Height = 25
  54.     Color = clYellow
  55.     TabOrder = 2
  56.   end
  57.   object BitBtnNextMnth: TBitBtn
  58.     Left = 176
  59.     Top = 168
  60.     Width = 105
  61.     Height = 20
  62.     Caption = '&Next Month'
  63.     TabOrder = 3
  64.     OnClick = BitBtnNextMnthClick
  65.     Glyph.Data = {
  66.       78010000424D7801000000000000760000002800000020000000100000000100
  67.       04000000000000000000120B0000120B00000000000000000000000000000000
  68.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  69.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  70.       3333333333333333333333333333333333333FFF333333333333000333333333
  71.       3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
  72.       3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
  73.       0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
  74.       BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
  75.       33337777773FF733333333333300033333333333337773333333333333333333
  76.       3333333333333333333333333333333333333333333333333333333333333333
  77.       33333333333333333333333333333333333333333333333333330000}
  78.     Layout = blGlyphRight
  79.     NumGlyphs = 2
  80.   end
  81.   object BitBtnChgStrtDay: TBitBtn
  82.     Left = 48
  83.     Top = 216
  84.     Width = 241
  85.     Height = 20
  86.     Caption = '&Change Starting Day of Week'
  87.     TabOrder = 4
  88.     OnClick = BitBtnChgStrtDayClick
  89.     Glyph.Data = {
  90.       76010000424D7601000000000000760000002800000020000000100000000100
  91.       04000000000000010000130B0000130B00000000000000000000000000000000
  92.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  93.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  94.       33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
  95.       00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
  96.       70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
  97.       70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
  98.       70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
  99.       70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
  100.       70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
  101.       00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
  102.     NumGlyphs = 2
  103.   end
  104.   object ButtonPrevYr: TButton
  105.     Left = 8
  106.     Top = 192
  107.     Width = 89
  108.     Height = 20
  109.     Caption = 'Pre&v Year'
  110.     TabOrder = 5
  111.     OnClick = ButtonPrevYrClick
  112.   end
  113.   object ButtonNextYr: TButton
  114.     Left = 240
  115.     Top = 192
  116.     Width = 89
  117.     Height = 20
  118.     Caption = 'Next &Year'
  119.     TabOrder = 6
  120.     OnClick = ButtonNextYrClick
  121.   end
  122.   object ExpandBtn: TButton
  123.     Left = 288
  124.     Top = 8
  125.     Width = 41
  126.     Height = 25
  127.     Hint = 'Expand'
  128.     Caption = '<-->'
  129.     ParentShowHint = False
  130.     ShowHint = True
  131.     TabOrder = 7
  132.     Visible = False
  133.     OnClick = ExpandBtnClick
  134.   end
  135.   object ShrinkBtn: TButton
  136.     Left = 288
  137.     Top = 8
  138.     Width = 41
  139.     Height = 25
  140.     Hint = 'Shrink'
  141.     Caption = '-><-'
  142.     ParentShowHint = False
  143.     ShowHint = True
  144.     TabOrder = 8
  145.     OnClick = ShrinkBtnClick
  146.   end
  147.   object btntoday: TButton
  148.     Left = 200
  149.     Top = 8
  150.     Width = 57
  151.     Height = 25
  152.     Hint = 'Jump to Today'#39's Date'
  153.     Caption = '&Today'
  154.     Enabled = False
  155.     ParentShowHint = False
  156.     ShowHint = True
  157.     TabOrder = 9
  158.     OnClick = btntodayClick
  159.   end
  160.   object BtnOneLine: TButton
  161.     Left = 128
  162.     Top = 192
  163.     Width = 81
  164.     Height = 20
  165.     Hint = 'Reduces Display to One Line'
  166.     Caption = '&One Line'
  167.     ParentShowHint = False
  168.     ShowHint = True
  169.     TabOrder = 10
  170.     OnClick = BtnOneLineClick
  171.   end
  172. end
  173.