home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / TemaCD / xnews / Xnews.exe / 0 / RCDATA / TFOLDERSWINDOW / TFOLDERSWINDOW.txt < prev   
Encoding:
Text File  |  2001-01-31  |  3.4 KB  |  148 lines
  1. object FoldersWindow: TFoldersWindow
  2.   Left = 133
  3.   Top = 84
  4.   Width = 696
  5.   Height = 480
  6.   Caption = 'Folders'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clBtnText
  10.   Font.Height = -13
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   FormStyle = fsMDIChild
  14.   Icon.Data = {<image000.ico>}
  15.   KeyPreview = True
  16.   Menu = MainMenu
  17.   OldCreateOrder = False
  18.   Position = poDefault
  19.   Visible = True
  20.   OnActivate = FormActivate
  21.   OnClose = FormClose
  22.   OnCloseQuery = FormCloseQuery
  23.   OnCreate = FormCreate
  24.   OnDeactivate = FormDeactivate
  25.   OnKeyPress = FormKeyPress
  26.   OnShow = FormShow
  27.   PixelsPerInch = 120
  28.   TextHeight = 16
  29.   object LV: TMyListView
  30.     Left = 0
  31.     Top = 0
  32.     Width = 688
  33.     Height = 426
  34.     Align = alClient
  35.     Columns = <
  36.       item
  37.         Caption = 'Name'
  38.         Width = 300
  39.       end
  40.       item
  41.         Caption = 'File'
  42.         Width = 200
  43.       end>
  44.     DragMode = dmAutomatic
  45.     Font.Charset = DEFAULT_CHARSET
  46.     Font.Color = clWindowText
  47.     Font.Height = -17
  48.     Font.Name = 'MS Sans Serif'
  49.     Font.Style = []
  50.     GridLines = True
  51.     HideSelection = False
  52.     HotTrackStyles = []
  53.     OwnerData = True
  54.     OwnerDraw = True
  55.     ReadOnly = True
  56.     RowSelect = True
  57.     ParentFont = False
  58.     SmallImages = XnewsFrame.TaskBarImages
  59.     TabOrder = 0
  60.     ViewStyle = vsReport
  61.     OnColumnClick = LVColumnClick
  62.     OnData = LVData
  63.     OnDataFind = LVDataFind
  64.     OnDblClick = LVDblClick
  65.     OnDrawItem = LVDrawItem
  66.     OnEnter = LVEnter
  67.     OnKeyPress = LVKeyPress
  68.     OnKeyUp = LVKeyUp
  69.     OnMouseUp = LVMouseUp
  70.     SaveSettings.RegistryKey = 'Software\Xnews\Folders\Columns'
  71.   end
  72.   object MainMenu: TMainMenu
  73.     Left = 96
  74.     Top = 184
  75.     object mnFolder: TMenuItem
  76.       Caption = '&Organize'
  77.       GroupIndex = 15
  78.       object AddFolder1: TMenuItem
  79.         Caption = '&New'
  80.         ShortCut = 45
  81.         object NewArchiveFolder1: TMenuItem
  82.           Action = acfNewArchive
  83.           Caption = 'Archive'
  84.         end
  85.         object NewArchiveFolder2: TMenuItem
  86.           Action = acfNewQueue
  87.           Caption = 'Queue'
  88.         end
  89.       end
  90.       object DeleteFolder1: TMenuItem
  91.         Action = acfDel
  92.         Caption = 'Delete'
  93.       end
  94.       object N1: TMenuItem
  95.         Caption = '-'
  96.       end
  97.       object RenameFolder1: TMenuItem
  98.         Action = acfRename
  99.         Caption = 'Rename'
  100.       end
  101.       object ChangeFile1: TMenuItem
  102.         Action = acfChangeFile
  103.       end
  104.     end
  105.   end
  106.   object FActions: TActionList
  107.     Left = 200
  108.     Top = 192
  109.     object acfNewArchive: TAction
  110.       Category = 'Folders'
  111.       Caption = 'New Archive Folder'
  112.       ShortCut = 45
  113.       OnExecute = acfNewArchiveExecute
  114.     end
  115.     object acfNewQueue: TAction
  116.       Category = 'Folders'
  117.       Caption = 'New Queue Folder'
  118.       ShortCut = 16429
  119.       OnExecute = acfNewArchiveExecute
  120.     end
  121.     object acfDel: TAction
  122.       Category = 'Folders'
  123.       Caption = 'Delete Folder'
  124.       ShortCut = 46
  125.       OnExecute = acfDelExecute
  126.     end
  127.     object acfRename: TAction
  128.       Category = 'Folders'
  129.       Caption = 'Rename Folder'
  130.       ShortCut = 113
  131.       OnExecute = acfRenameExecute
  132.     end
  133.     object acfChangeFile: TAction
  134.       Category = 'Folders'
  135.       Caption = 'Change File'
  136.       ShortCut = 115
  137.       OnExecute = acfChangeFileExecute
  138.     end
  139.   end
  140.   object OpenDialog: TOpenDialog
  141.     Filter = 'Mbx files|*.mbx|All files|*.*'
  142.     FilterIndex = 0
  143.     Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
  144.     Left = 176
  145.     Top = 312
  146.   end
  147. end
  148.