home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / 9UTI / WXKBD41.ZIP / KEYS32.EXE / 0 / RCDATA / TMAIN / TMAIN.txt
Text File  |  1998-04-29  |  2KB  |  86 lines

  1. object Main: TMain
  2.   Left = 266
  3.   Top = 201
  4.   BorderStyle = bsNone
  5.   ClientHeight = 28
  6.   ClientWidth = 125
  7.   ParentFont = True
  8.   PopupMenu = Pop
  9.   Scaled = False
  10.   Visible = True
  11.   OnCreate = FormCreate
  12.   OnDestroy = FormDestroy
  13.   OnMouseDown = FormMouseDown
  14.   OnMouseMove = FormMouseMove
  15.   OnMouseUp = FormMouseUp
  16.   OnResize = FormResize
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Button: TButton
  20.     Left = 0
  21.     Top = 0
  22.     Width = 17
  23.     Height = 17
  24.     TabOrder = 0
  25.     OnClick = ButtonClick
  26.   end
  27.   object Asktimer: TTimer
  28.     Enabled = False
  29.     Interval = 200
  30.     OnTimer = AsktimerTick
  31.     Left = 48
  32.   end
  33.   object Pop: TPopupMenu
  34.     Left = 16
  35.     object N1: TMenuItem
  36.       Caption = '-'
  37.     end
  38.     object Controls: TMenuItem
  39.       Caption = 'Controls'
  40.       object MClose: TMenuItem
  41.         Caption = 'Close'
  42.         OnClick = MCloseClick
  43.       end
  44.       object MMinimize: TMenuItem
  45.         Caption = 'Minimize'
  46.         OnClick = MMinimizeClick
  47.       end
  48.       object MSize: TMenuItem
  49.         Caption = 'Size'
  50.         OnClick = ShapeClick
  51.       end
  52.       object MMove: TMenuItem
  53.         Caption = 'Move'
  54.         OnClick = MoveClick
  55.       end
  56.       object MHide: TMenuItem
  57.         Caption = 'Hide'
  58.         Hint = 'Remove this button'
  59.         OnClick = MHideClick
  60.       end
  61.       object N2: TMenuItem
  62.         Caption = '-'
  63.       end
  64.       object MEditMaps: TMenuItem
  65.         Caption = 'Edit Maps'
  66.         OnClick = MEditMapsClick
  67.       end
  68.       object MSettings: TMenuItem
  69.         Caption = 'Options'
  70.         OnClick = AskOptions
  71.       end
  72.       object MHelp: TMenuItem
  73.         Caption = 'Help'
  74.         object MHelpTopics: TMenuItem
  75.           Caption = 'Contents'
  76.           OnClick = MHelpTopicsClick
  77.         end
  78.         object MHelpAbout: TMenuItem
  79.           Caption = 'About'
  80.           OnClick = MHelpAboutClick
  81.         end
  82.       end
  83.     end
  84.   end
  85. end
  86.