home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / rollup.lzh / ROLLFORM.DFM / ROLLFORM.txt
Text File  |  1995-07-04  |  3KB  |  103 lines
  1. object RollUp: TRollUp
  2.   Left = 193
  3.   Top = 179
  4.   BorderIcons = []
  5.   BorderStyle = bsNone
  6.   ClientHeight = 105
  7.   ClientWidth = 228
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Visible = True
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object FormArea: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 228
  20.     Height = 105
  21.     Align = alClient
  22.     BevelInner = bvRaised
  23.     BevelOuter = bvNone
  24.     BorderStyle = bsSingle
  25.     TabOrder = 0
  26.     object CaptionPanel: TPanel
  27.       Left = 1
  28.       Top = 1
  29.       Width = 224
  30.       Height = 17
  31.       Align = alTop
  32.       BevelOuter = bvNone
  33.       BorderStyle = bsSingle
  34.       Color = clNavy
  35.       Font.Color = clBlack
  36.       Font.Height = -12
  37.       Font.Name = 'Arial'
  38.       Font.Style = []
  39.       ParentFont = False
  40.       PopupMenu = CloseMenu
  41.       TabOrder = 0
  42.       OnMouseDown = CaptionPanelMouseDown
  43.       OnMouseMove = CaptionPanelMouseMove
  44.       OnMouseUp = CaptionPanelMouseUp
  45.       object CloseButton: TSpeedButton
  46.         Left = 1
  47.         Top = 0
  48.         Width = 15
  49.         Height = 15
  50.         Glyph.Data = {
  51.           B0000000424DB000000000000000760000002800000008000000080000000100
  52.           0400000000002000000000000000000000000000000000000000000000000000
  53.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  54.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  55.           888887777778000000070FFFFF07000000088888888888888888000000000000
  56.           0000000000000000000000000000000000000000}
  57.         OnClick = CloseButtonClick
  58.       end
  59.       object CaptionLabel: TLabel
  60.         Left = 20
  61.         Top = 0
  62.         Width = 29
  63.         Height = 15
  64.         Caption = 'Curt'
  65.         Font.Color = clWhite
  66.         Font.Height = -12
  67.         Font.Name = 'Arial'
  68.         Font.Style = []
  69.         ParentFont = False
  70.         Transparent = True
  71.         OnMouseDown = CaptionPanelMouseDown
  72.         OnMouseMove = CaptionPanelMouseMove
  73.         OnMouseUp = CaptionPanelMouseUp
  74.       end
  75.       object RollButton: TSpeedButton
  76.         Left = 169
  77.         Top = 0
  78.         Width = 15
  79.         Height = 15
  80.         Glyph.Data = {
  81.           E0000000424DE00000000000000076000000280000000A0000000A0000000100
  82.           0400000000005000000000000000000000000000000000000000000000000000
  83.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  84.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888800
  85.           0000800000000800000080888888080000008088888808000000808888880800
  86.           0000800008880800000080FF08880800000080FF088808000000800000000800
  87.           0000888888888800000000000000000000000000000000000000000000000000
  88.           00000000}
  89.         OnClick = RollButtonClick
  90.       end
  91.     end
  92.   end
  93.   object CloseMenu: TPopupMenu
  94.     AutoPopup = False
  95.     Left = 195
  96.     Top = 3
  97.     object CloseMenuItem: TMenuItem
  98.       Caption = '&Close'
  99.       OnClick = CloseMenuItemClick
  100.     end
  101.   end
  102. end
  103.