object Computer: TComputer
  Left = 242
  Top = 122
  HelpContext = 21
  ActiveControl = Grid
  BorderStyle = bsSingle
  Caption = 'Computadora'
  ClientHeight = 223
  ClientWidth = 295
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Scaled = False
  WindowState = wsMinimized
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDragDrop = FormDragDrop
  OnDragOver = FormDragOver
  OnPaint = FormPaint
  OnResize = FormResize
  TextHeight = 13
  object StatusLabel: TLabel
    Left = 8
    Top = 204
    Width = 43
    Height = 13
    Caption = '0 objectos'
  end
  object Grid: TMultiGrid
    Tag = 1
    Left = 4
    Top = 4
    Width = 287
    Height = 195
    Focus = 0
    OnDrawCell = GridDrawCell
    OnSelectCell = GridSelectCell
    AllowMulti = False
    Limit = 0
    SelColor = clHighlight
    DefaultColWidth = 70
    DefaultRowHeight = 48
    RowCount = 4
    ColCount = 4
    DefaultDrawing = False
    GridLineWidth = 0
    PopupMenu = ObjectMenu
    TabOrder = 0
    OnDblClick = GridDblClick
    OnEndDrag = GridEndDrag
    OnKeyDown = GridKeyDown
    OnMouseDown = GridMouseDown
    OnMouseMove = GridMouseMove
  end
  object WindowMenu: TPopupMenu
    AutoPopup = False
    HelpContext = 201
    Left = 64
    Top = 19
    object RefreshSys: TMenuItem
      Caption = 'Actualiza&r'
      OnClick = RefreshSysClick
      ShortCutText = 'F5'
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object Explore: TMenuItem
      Caption = '&Explorar...'
      OnClick = DeskExploreClick
    end
    object OpenFolder: TMenuItem
      Caption = '&Abrir carpeta'
      OnClick = DeskOpenClick
    end
    object Find: TMenuItem
      Caption = '&Buscar archivos...'
      OnClick = FindClick
      ShortCutText = 'Ctrl+F'
    end
    object Run: TMenuItem
      Caption = '&Ejecutar programa...'
      OnClick = RunClick
      ShortCutText = 'Ctrl+R'
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object Help1: TMenuItem
      Caption = 'Ay&uda'
      object HelpContents: TMenuItem
        Caption = '&Contenidos'
        OnClick = HelpContentsClick
      end
      object TopicSearch: TMenuItem
        Caption = '&Buscar tema...'
        OnClick = TopicSearchClick
      end
      object Tipoftheday1: TMenuItem
        Caption = 'Sugerencia del &da...'
        OnClick = Tipoftheday1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object About: TMenuItem
        Caption = '&Acerca de...'
        OnClick = AboutClick
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Settings: TMenuItem
      Caption = '&Propiedades'
      object SysProperties: TMenuItem
        Caption = '&Sistema...'
        OnClick = SysPropertiesClick
      end
      object ConfigDesktop: TMenuItem
        Caption = '&Escritorio...'
        OnClick = ConfigDesktopClick
      end
      object ConfigFileSystem: TMenuItem
        Caption = '&Sistema de archivos...'
        OnClick = ConfigFileSystemClick
      end
      object ConfigBin: TMenuItem
        Caption = '&Papelera de reciclaje...'
        OnClick = ConfigBinClick
      end
      object ConfigStartMenu: TMenuItem
        Caption = '&Men Inicio...'
        OnClick = ConfigStartMenuClick
      end
      object ConfigTaskbar: TMenuItem
        Caption = 'Barra de &tareas...'
        OnClick = ConfigTaskbarClick
      end
    end
  end
  object App: TAppHolder
    HelpFile = 'CALMIRA.HLP'
    HintColor = 12648447
    Title = 'Calmira'
    OnActivate = AppActivate
    OnDeactivate = AppDeactivate
    OnException = AppException
    OnMessage = AppMessage
    OnShowHint = AppShowHint
    OnWndProc = AppWndProc
    Left = 25
    Top = 19
  end
  object DropServer: TDropServer
    DesktopDrop = True
    OnFileDrag = DropServerFileDrag
    OnDeskDrop = DropServerDeskDrop
    Left = 63
    Top = 56
  end
  object DesktopMenu: TPopupMenu
    AutoPopup = False
    Left = 139
    Top = 19
    object DeskArrange: TMenuItem
      Caption = '&organizar'
      object DeskArrangeIcons: TMenuItem
        Caption = 'Organizar iconos de &tarea'
        OnClick = DeskArrangeIconsClick
      end
      object DeskArrangeShortcuts: TMenuItem
        Caption = 'Organizar accesos &directos'
        OnClick = DeskArrangeShortcutsClick
      end
      object DeskRestoreShortcuts: TMenuItem
        Caption = '&Restaurar accesos directos'
        OnClick = DeskRestoreShortcutsClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object DeskCascadeBrowsers: TMenuItem
        Caption = 'Ventanas en &cascada'
        OnClick = DeskCascadeBrowsersClick
      end
      object DeskMinimizeBrowsers: TMenuItem
        Caption = '&Minimizar ventanas'
        OnClick = DeskMinimizeBrowsersClick
      end
      object DeskCloseBrowsers: TMenuItem
        Caption = 'Cerrar &ventanas'
        OnClick = DeskCloseBrowsersClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object DeskMinimizePrograms: TMenuItem
        Caption = 'Minimi&zar todas las ventanas'
        OnClick = DeskMinimizeProgramsClick
      end
      object DeskClearDesktop: TMenuItem
        Caption = '&Limpiar escritorio'
        OnClick = DeskClearDesktopClick
      end
    end
    object DeskLineUpIcons: TMenuItem
      Caption = 'Ali&near a la cuadrcula'
      OnClick = DeskLineUpIconsClick
    end
    object DeskRepaint: TMenuItem
      Caption = 'A&ctualizar'
      OnClick = DeskRepaintClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object DeskExplore: TMenuItem
      Caption = '&Explorar...'
      OnClick = DeskExploreClick
    end
    object DeskOpen: TMenuItem
      Caption = '&Abrir carpeta...'
      OnClick = DeskOpenClick
    end
    object DeskFind: TMenuItem
      Caption = '&Buscar archivos...'
      OnClick = FindClick
    end
    object DeskRun: TMenuItem
      Caption = '&Ejecutar programa...'
      OnClick = RunClick
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object NewShort: TMenuItem
      Caption = '&Nuevo acceso directo'
      object NewFileShort: TMenuItem
        Tag = 2
        Caption = '&Archivo'
        OnClick = NewNetShortClick
      end
      object NewFolderShort: TMenuItem
        Tag = 1
        Caption = '&Carpeta'
        OnClick = NewNetShortClick
      end
      object NewDriveShort: TMenuItem
        Caption = '&Unidad'
        OnClick = NewNetShortClick
      end
      object NewNetShort: TMenuItem
        Tag = 3
        Caption = '&Internet'
        OnClick = NewNetShortClick
      end
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object DeskProperties: TMenuItem
      Caption = '&Propiedades...'
      OnClick = DeskPropertiesClick
    end
  end
  object ObjectMenu: TPopupMenu
    AutoPopup = False
    OnPopup = ObjectMenuPopup
    Left = 102
    Top = 19
    object Open: TMenuItem
      Caption = 'Abrir'
      OnClick = GridDblClick
      ShortCutText = 'Enter'
    end
    object CreateAlias: TMenuItem
      Caption = 'Crear alias'
      OnClick = CreateAliasClick
      ShortCutText = 'Shift+Ins'
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Properties: TMenuItem
      Caption = 'Propiedades...'
      OnClick = PropertiesClick
      ShortCutText = 'Alt+Enter'
    end
  end
  object BrowserLink: TBrowserLink
    ServiceApplication = 'Netscape'
    ConnectMode = ddeManual
    Left = 25
    Top = 56
  end
  object Timer: TTimer
    OnTimer = TimerTimer
    Left = 25
    Top = 94
  end
  object Progman: TDdeServerConv
    OnOpen = ProgmanOpen
    OnClose = ProgmanClose
    OnExecuteMacro = ProgmanExecuteMacro
    Left = 101
    Top = 56
  end
  object DragTimer: TTimer
    Enabled = False
    Interval = 54
    OnTimer = DragTimerTimer
    Left = 62
    Top = 94
  end
end
