home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / PROGRAM / DELPHI16 / Calmira / Src / SRC / TASK.DFM / TASK.txt
Text File  |  1997-01-22  |  4KB  |  150 lines
  1. object Bar: TBar
  2.   Left = 258
  3.   Top = 188
  4.   BorderIcons = []
  5.   BorderStyle = bsNone
  6.   Caption = 'Taskbar'
  7.   ClientHeight = 30
  8.   ClientWidth = 387
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   FormStyle = fsStayOnTop
  14.   PixelsPerInch = 96
  15.   Position = poDefault
  16.   Scaled = False
  17.   Visible = True
  18.   OnCreate = FormCreate
  19.   OnDestroy = FormDestroy
  20.   OnDeactivate = FormDeactivate
  21.   OnMouseDown = FormMouseDown
  22.   OnMouseMove = FormMouseMove
  23.   OnPaint = FormPaint
  24.   OnResize = FormResize
  25.   TextHeight = 13
  26.   object StartBtn: TStyleSpeed
  27.     Left = 3
  28.     Top = 5
  29.     Width = 68
  30.     Height = 23
  31.     AllowAllUp = True
  32.     GroupIndex = 2
  33.     Caption = 'Start'
  34.     Font.Color = clBlack
  35.     Font.Height = -12
  36.     Font.Name = 'Arial'
  37.     Font.Style = [fsBold]
  38.     Glyph.Data = {
  39.       B0010000424DB00100000000000076000000280000001A000000120000000100
  40.       0400000000002001000000000000000000000000000000000000000000000000
  41.       80000080000000808000800000008000800080800000C0C0C000808080000000
  42.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
  43.       00333333333338000000333387800CCCCC0033333333870000003387770CCC00
  44.       00CC0333337878000000877780CCC0787700C087878B87000000778704C40877
  45.       78B80C0878B87800000087770C4C0778778B80078B8787000000778704C40877
  46.       7878B868B8787800000087770444077877878BFB878787000000778704440877
  47.       78787FFF78787800000087770EEE077877878BFB87878700000077870EEEE077
  48.       7878B868B87878000000877780EEE078778B87800B8787000000778770EEEE07
  49.       78B8787E08B8780000008777870EEEE07B87870E07878700000077877770FFFF
  50.       B87870FF087878000000877787860FFBF0000FFF07878300000077873333300F
  51.       FFFFFF0008783300000087333333333000000087873333000000000000000000
  52.       0000000000000000000000000000000000000000}
  53.     Margin = 2
  54.     ParentFont = False
  55.     Spacing = -1
  56.     OnClick = StartBtnClick
  57.     OnMouseDown = StartBtnMouseDown
  58.     Style = sbWin95
  59.   end
  60.   object Clock: TPanel
  61.     Left = 326
  62.     Top = 5
  63.     Width = 57
  64.     Height = 23
  65.     BevelOuter = bvLowered
  66.     Caption = '00:00 AM'
  67.     ParentShowHint = False
  68.     ShowHint = False
  69.     TabOrder = 0
  70.     OnMouseDown = ClockMouseDown
  71.     OnMouseMove = ClockMouseMove
  72.     OnMouseUp = ClockMouseUp
  73.   end
  74.   object TaskMenu: TPopupMenu
  75.     OnPopup = TaskMenuPopup
  76.     Left = 88
  77.     Top = 4
  78.     object Restore: TMenuItem
  79.       Caption = '&Restore'
  80.       OnClick = RestoreClick
  81.     end
  82.     object Minimize: TMenuItem
  83.       Caption = 'Mi&nimize'
  84.       OnClick = MinimizeClick
  85.     end
  86.     object Maximize: TMenuItem
  87.       Caption = 'Ma&ximize'
  88.       OnClick = MaximizeClick
  89.     end
  90.     object CloseItem: TMenuItem
  91.       Caption = '&Close'
  92.       OnClick = CloseItemClick
  93.     end
  94.   end
  95.   object SysMenu: TPopupMenu
  96.     OnPopup = SysMenuPopup
  97.     Left = 156
  98.     Top = 4
  99.     object Quit: TMenuItem
  100.       Caption = 'Unload taskbar'
  101.       OnClick = QuitClick
  102.     end
  103.     object HideBar: TMenuItem
  104.       Caption = 'Hide'
  105.       OnClick = HideBarClick
  106.     end
  107.     object Stay: TMenuItem
  108.       Tag = 2
  109.       Caption = 'Stay visible'
  110.       OnClick = StayClick
  111.     end
  112.     object N1: TMenuItem
  113.       Caption = '-'
  114.     end
  115.     object Startproperties1: TMenuItem
  116.       Caption = 'Start properties...'
  117.       OnClick = Startproperties1Click
  118.     end
  119.     object Properties1: TMenuItem
  120.       Caption = 'Taskbar properties...'
  121.       OnClick = Properties1Click
  122.     end
  123.     object N2: TMenuItem
  124.       Caption = '-'
  125.     end
  126.     object Spy: TMenuItem
  127.       Caption = 'Spy'
  128.       OnClick = SpyClick
  129.     end
  130.     object Terminate: TMenuItem
  131.       Caption = 'Terminate...'
  132.       OnClick = TerminateClick
  133.     end
  134.   end
  135.   object Timer: TTimer
  136.     Enabled = False
  137.     Interval = 5000
  138.     OnTimer = TimerTimer
  139.     Left = 124
  140.     Top = 4
  141.   end
  142.   object HintTimer: TTimer
  143.     Enabled = False
  144.     Interval = 800
  145.     OnTimer = HintTimerTimer
  146.     Left = 190
  147.     Top = 4
  148.   end
  149. end
  150.