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

Text File | 1997-02-17 | 5.2 KB | 226 lines

object IconWindow: TIconWindow
  Left = 198
  Top = 103
  HelpContext = 22
  ActiveControl = Grid
  BorderStyle = bsSingle
  ClientHeight = 219
  ClientWidth = 379
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDblClick = FormDblClick
  OnDestroy = FormDestroy
  OnDragDrop = FormDragDrop
  OnDragOver = FormDragOver
  OnHide = FormHide
  OnMouseDown = FormMouseDown
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  TextHeight = 13
  object SelLabel: TLabel
    Left = 155
    Top = 202
    Width = 118
    Height = 13
    Cursor = -24
    Caption = 'Selected 0 file(s)  0 bytes'
    Transparent = True
    OnDragDrop = FormDragDrop
    OnDragOver = FormDragOver
    OnMouseDown = SelLabelMouseDown
  end
  object TotalLabel: TLabel
    Left = 12
    Top = 202
    Width = 43
    Height = 13
    Cursor = -24
    Caption = '0 objects'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnClick = TotalLabelClick
    OnDragDrop = FormDragDrop
    OnDragOver = FormDragOver
    OnMouseDown = TotalLabelMouseDown
  end
  object Grid: TMultiGrid
    Tag = 2
    Left = 4
    Top = 4
    Width = 371
    Height = 193
    Focus = 0
    OnSelect = GridSelect
    OnCellSelected = GridCellSelected
    OnDrawCell = GridDrawCell
    OnSelectCell = GridSelectCell
    AllowMulti = True
    Limit = 0
    SelColor = clBtnFace
    DefaultRowHeight = 48
    RowCount = 4
    GridLineWidth = 0
    ParentShowHint = False
    PopupMenu = ObjectMenu
    ShowHint = True
    Scrollbars = ssVertical
    TabOrder = 0
    OnDblClick = GridDblClick
    OnDragDrop = GridDragDrop
    OnDragOver = GridDragOver
    OnEndDrag = GridEndDrag
    OnKeyDown = GridKeyDown
    OnKeyPress = GridKeyPress
    OnMouseDown = GridMouseDown
    OnMouseMove = GridMouseMove
    OnMouseUp = GridMouseUp
  end
  object ObjectMenu: TPopupMenu
    AutoPopup = False
    OnPopup = ObjectMenuPopup
    Left = 30
    Top = 18
    object Properties: TMenuItem
      Caption = '&Properties...'
      OnClick = PropertiesClick
      ShortCutText = 'Alt+Enter'
    end
    object Describe: TMenuItem
      Caption = 'Descri&be'
      OnClick = DescribeClick
      ShortCutText = 'Ctrl+B'
    end
    object Delete: TMenuItem
      Caption = '&Delete'
      OnClick = DeleteClick
      ShortCutText = 'Del'
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object AliasProp: TMenuItem
      Caption = 'Edit alia&s...'
      OnClick = AliasPropClick
    end
    object Open: TMenuItem
      Caption = '&Open'
      OnClick = OpenClick
      ShortCutText = 'Enter'
    end
    object OpenWith: TMenuItem
      Caption = 'Open &file with..'
      OnClick = OpenWithClick
      ShortCutText = 'Ctrl+Enter'
    end
    object Inspect: TMenuItem
      Caption = '&Inspect'
      OnClick = InspectClick
      ShortCutText = 'Shift+Enter'
    end
    object Rename: TMenuItem
      Caption = 'Re&name...'
      OnClick = RenameClick
      ShortCutText = 'Ctrl+N'
    end
    object Duplicate: TMenuItem
      Caption = 'D&uplicate...'
      OnClick = DuplicateClick
      ShortCutText = 'Ctrl+D'
    end
    object CreateAlias: TMenuItem
      Caption = 'Create &alias'
      OnClick = CreateAliasClick
      ShortCutText = 'Shift+Ins'
    end
  end
  object DropServer: TDropServer
    DesktopDrop = True
    OnFileDrop = DropServerFileDrop
    OnDeskDrop = DropServerDeskDrop
    Left = 148
    Top = 18
  end
  object DropClient: TDropClient
    OnDropFiles = DropClientDropFiles
    Left = 108
    Top = 18
  end
  object WinMenu: TPopupMenu
    AutoPopup = False
    OnPopup = WinMenuPopup
    Left = 188
    Top = 20
    object CreateFolder: TMenuItem
      Caption = '&Create folder...'
      OnClick = CreateFolderClick
      ShortCutText = 'Ins'
    end
    object Select: TMenuItem
      Caption = 'Select...'
      OnClick = SelectClick
      ShortCutText = 'Ctrl+S'
    end
    object Undelete: TMenuItem
      Caption = '&Undelete...'
      OnClick = UndeleteClick
      ShortCutText = 'Ctrl+U'
    end
    object Run: TMenuItem
      Caption = '&Run...'
      OnClick = RunClick
      ShortCutText = 'Ctrl+R'
    end
    object FileSystem: TMenuItem
      Caption = 'File system...'
      OnClick = FileSystemClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object ViewList: TMenuItem
      Caption = '&View list'
      OnClick = ViewListClick
      ShortCutText = 'Ctrl+L'
    end
    object SetFilter: TMenuItem
      Caption = 'Set &filter...'
      OnClick = SetFilterClick
    end
    object SortbyType: TMenuItem
      Caption = 'Sort by &Type'
      OnClick = SortByTypeClick
    end
    object SortbyName: TMenuItem
      Tag = 1
      Caption = 'Sort by &Name'
      OnClick = SortByTypeClick
    end
    object SortbySize: TMenuItem
      Tag = 2
      Caption = 'Sort by &Size'
      OnClick = SortByTypeClick
    end
    object SortbyDate: TMenuItem
      Tag = 3
      Caption = 'Sort by &Date'
      OnClick = SortByTypeClick
    end
  end
  object Dragger: TFormDrag
    Left = 65
    Top = 18
  end
end