PC World Komputer 1998 April A/Pcwk4a98.iso/PROGRAM/DELPHI16/Calmira/Src/SRC/SYS.DFM/SYS.txt

Text File | 1997-02-17 | 5KB | 216 lines

object SysWindow: TSysWindow
  Left = 242
  Top = 131
  HelpContext = 21
  ActiveControl = Grid
  BorderStyle = bsSingle
  Caption = 'System'
  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 = 26
    Top = 18
    object SysProperties: TMenuItem
      Caption = 'Properties...'
      OnClick = SysPropertiesClick
      ShortCutText = 'Ctrl+P'
    end
    object RefreshSys: TMenuItem
      Caption = '&Refresh'
      OnClick = RefreshSysClick
      ShortCutText = 'F5'
    end
    object Find: TMenuItem
      Caption = '&Find files....'
      OnClick = FindClick
      ShortCutText = 'Ctrl+F'
    end
    object Run: TMenuItem
      Caption = 'Run program...'
      OnClick = RunClick
      ShortCutText = 'Ctrl+R'
    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 HelpContents: TMenuItem
      Caption = '&Help contents...'
      OnClick = HelpContentsClick
    end
    object TopicSearch: TMenuItem
      Caption = 'Topic search...'
      OnClick = TopicSearchClick
    end
    object About: TMenuItem
      Caption = 'A&bout...'
      OnClick = AboutClick
      ShortCutText = 'Ctrl+A'
    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 Dragger: TFormDrag
    Left = 96
    Top = 18
  end
  object DesktopMenu: TPopupMenu
    AutoPopup = False
    Left = 216
    Top = 18
    object DeskOpen: TMenuItem
      Caption = 'Open folder...'
      OnClick = DeskOpenClick
    end
    object DeskFind: TMenuItem
      Caption = 'Find files...'
      OnClick = FindClick
    end
    object DeskRun: TMenuItem
      Caption = 'Run program...'
      OnClick = DeskRunClick
    end
    object DeskExplore: TMenuItem
      Caption = 'Explore...'
      OnClick = DeskExploreClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object CascadeWins: TMenuItem
      Caption = 'Cascade browsers'
      OnClick = CascadeWinsClick
    end
    object DeskArrange: TMenuItem
      Caption = 'Arrange icons'
      OnClick = DeskArrangeClick
    end
    object Snap: TMenuItem
      Caption = 'Line up icons'
      OnClick = SnapClick
    end
    object DeskClose: TMenuItem
      Caption = 'Close browsers'
      OnClick = DeskCloseClick
    end
    object DeskClear: TMenuItem
      Caption = 'Clear desktop'
      OnClick = DeskClearClick
    end
    object MinimizeProgs: TMenuItem
      Caption = 'Minimize programs'
      OnClick = MinimizeProgsClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object DeskProperties: TMenuItem
      Caption = 'Properties...'
      OnClick = DeskPropertiesClick
    end
  end
  object ObjectMenu: TPopupMenu
    AutoPopup = False
    OnPopup = ObjectMenuPopup
    Left = 60
    Top = 18
    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
end