PC Open 19/pcopen19.iso/Zipped/CALMIR21.ZIP/SOURCE.ZIP/SRC/COMPSYS.DFM/COMPSYS.txt

Text File | 1998-02-20 | 6.3 KB | 268 lines

object Computer: TComputer
  Left = 242
  Top = 130
  HelpContext = 21
  ActiveControl = Grid
  BorderStyle = bsSingle
  Caption = 'Computer'
  ClientHeight = 215
  ClientWidth = 295
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Scaled = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDragDrop = FormDragDrop
  OnDragOver = FormDragOver
  OnPaint = FormPaint
  OnResize = FormResize
  TextHeight = 13
  object Grid: TMultiGrid
    Tag = 1
    Left = 4
    Top = 4
    Width = 287
    Height = 207
    Focus = 0
    OnDrawCell = GridDrawCell
    OnSelectCell = GridSelectCell
    AllowMulti = False
    Limit = 0
    SelColor = clBtnFace
    DefaultColWidth = 70
    DefaultRowHeight = 48
    RowCount = 4
    ColCount = 4
    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 = 25
    Top = 18
    object SysProperties: TMenuItem
      Caption = 'Properties...'
      OnClick = SysPropertiesClick
      ShortCutText = 'Ctrl+P'
    end
    object RefreshSys: TMenuItem
      Caption = '&Refresh'
      OnClick = RefreshSysClick
      ShortCutText = 'F5'
    end
    object Run: TMenuItem
      Caption = 'Run &program...'
      OnClick = RunClick
      ShortCutText = 'Ctrl+R'
    end
    object Find: TMenuItem
      Caption = '&Find files....'
      OnClick = FindClick
      ShortCutText = 'Ctrl+F'
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object ConfigFileSystem: TMenuItem
      Caption = 'File system...'
      OnClick = ConfigFileSystemClick
    end
    object ConfigDesktop: TMenuItem
      Caption = 'Desktop...'
      OnClick = ConfigDesktopClick
    end
    object ConfigStartMenu: TMenuItem
      Caption = 'Start menu...'
      OnClick = ConfigStartMenuClick
    end
    object ConfigBin: TMenuItem
      Caption = 'Bin...'
      OnClick = ConfigBinClick
    end
    object ConfigTaskbar: TMenuItem
      Caption = 'Taskbar...'
      OnClick = ConfigTaskbarClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object HelpContents: TMenuItem
        Caption = '&Contents...'
        OnClick = HelpContentsClick
      end
      object TopicSearch: TMenuItem
        Caption = 'Topic &search...'
        OnClick = TopicSearchClick
      end
      object Tipoftheday1: TMenuItem
        Caption = 'Tip of the &day...'
        OnClick = Tipoftheday1Click
      end
      object About: TMenuItem
        Caption = 'A&bout...'
        OnClick = AboutClick
      end
    end
  end
  object App: TAppHolder
    HelpFile = 'CALMIRA.HLP'
    HintColor = 8454143
    Title = 'Calmira'
    OnActivate = AppActivate
    OnDeactivate = AppDeactivate
    OnException = AppException
    OnMessage = AppMessage
    OnShowHint = AppShowHint
    OnWndProc = AppWndProc
    OnActiveFormChange = AppActiveFormChange
    Left = 176
    Top = 18
  end
  object DropServer: TDropServer
    DesktopDrop = True
    OnFileDrag = DropServerFileDrag
    OnDeskDrop = DropServerDeskDrop
    Left = 136
    Top = 18
  end
  object DesktopMenu: TPopupMenu
    AutoPopup = False
    Left = 216
    Top = 17
    object DeskOpen: TMenuItem
      Caption = 'Open folder...'
      OnClick = DeskOpenClick
    end
    object DeskRun: TMenuItem
      Caption = 'Run program...'
      OnClick = RunClick
    end
    object DeskExplore: TMenuItem
      Caption = 'Explore...'
      OnClick = DeskExploreClick
    end
    object DeskFind: TMenuItem
      Caption = 'Find files...'
      OnClick = FindClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object New1: TMenuItem
      Caption = 'New shortcut'
      object NewNetShort: TMenuItem
        Tag = 3
        Caption = 'Internet'
        OnClick = NewNetShortClick
      end
      object NewFolderShort: TMenuItem
        Tag = 1
        Caption = 'Folder'
        OnClick = NewNetShortClick
      end
      object NewFileShort: TMenuItem
        Tag = 2
        Caption = 'File'
        OnClick = NewNetShortClick
      end
      object NewDriveShort: TMenuItem
        Caption = 'Drive'
        OnClick = NewNetShortClick
      end
    end
    object DeskArrange: TMenuItem
      Caption = 'Arrange'
      object CascadeBrowsers: TMenuItem
        Caption = 'Cascade browsers'
        OnClick = CascadeBrowsersClick
      end
      object DeskArrangeIcons: TMenuItem
        Caption = 'Arrange icons'
        OnClick = DeskArrangeIconsClick
      end
      object DeskLineUpIcons: TMenuItem
        Caption = 'Line up icons'
        OnClick = DeskLineUpIconsClick
      end
      object DeskCloseBrowsers: TMenuItem
        Caption = 'Close browsers'
        OnClick = DeskCloseBrowsersClick
      end
      object DeskClearDesktop: TMenuItem
        Caption = 'Clear desktop'
        OnClick = DeskClearDesktopClick
      end
      object MinimizePrograms: TMenuItem
        Caption = 'Minimize programs'
        OnClick = MinimizeProgramsClick
      end
    end
    object DeskRepaint: TMenuItem
      Caption = 'Repaint screen'
      OnClick = DeskRepaintClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object DeskProperties: TMenuItem
      Caption = 'Properties...'
      OnClick = DeskPropertiesClick
    end
  end
  object ObjectMenu: TPopupMenu
    AutoPopup = False
    OnPopup = ObjectMenuPopup
    Left = 64
    Top = 18
    object Open: TMenuItem
      Caption = 'Open'
      OnClick = GridDblClick
      ShortCutText = 'Enter'
    end
    object Properties: TMenuItem
      Caption = 'Properties...'
      OnClick = PropertiesClick
      ShortCutText = 'Alt+Enter'
    end
    object CreateAlias: TMenuItem
      Caption = 'Create alias'
      OnClick = CreateAliasClick
      ShortCutText = 'Shift+Ins'
    end
  end
  object SystemMenu: TSystemMenu
    Left = 254
    Top = 18
  end
  object BrowserLink: TBrowserLink
    ConnectMode = ddeManual
    Left = 24
    Top = 56
  end
  object Timer: TTimer
    Interval = 2000
    OnTimer = TimerTimer
    Left = 62
    Top = 56
  end
  object PROGMAN: TDdeServerConv
    OnExecuteMacro = PROGMANExecuteMacro
    Left = 136
    Top = 56
  end
end