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