home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / NOVINKY / SuperMem / SM98 / SM98.EXE / 0 / RCDATA / TFILEBROWSER / TFILEBROWSER.txt
Encoding:
Text File  |  1999-03-17  |  8.8 KB  |  362 lines
  1. object FileBrowser: TFileBrowser
  2.   Left = 462
  3.   Top = 188
  4.   Width = 694
  5.   Height = 601
  6.   ActiveControl = FileNameEdit
  7.   BorderStyle = bsSizeToolWin
  8.   Caption = 'Import file'
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clBlack
  12.   Font.Height = -15
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = True
  16.   PopupMenu = BrowserMenu
  17.   Position = poScreenCenter
  18.   ShowHint = True
  19.   OnClose = FormClose
  20.   OnCloseQuery = FormCloseQuery
  21.   OnCreate = FormCreate
  22.   OnDestroy = FormDestroy
  23.   OnShow = FormShow
  24.   PixelsPerInch = 120
  25.   TextHeight = 16
  26.   object Splitter1: TSplitter
  27.     Left = 209
  28.     Top = 25
  29.     Width = 6
  30.     Height = 402
  31.     Cursor = crHSplit
  32.   end
  33.   object Splitter2: TSplitter
  34.     Left = 440
  35.     Top = 25
  36.     Width = 6
  37.     Height = 402
  38.     Cursor = crHSplit
  39.   end
  40.   object DirBox: TDirectoryListBox
  41.     Left = 0
  42.     Top = 25
  43.     Width = 209
  44.     Height = 402
  45.     Align = alLeft
  46.     FileList = FileBox
  47.     ItemHeight = 16
  48.     ParentShowHint = False
  49.     ShowHint = False
  50.     TabOrder = 0
  51.     OnChange = DirBoxChange
  52.   end
  53.   object StatusBar: TPanel
  54.     Left = 0
  55.     Top = 548
  56.     Width = 686
  57.     Height = 22
  58.     Align = alBottom
  59.     Alignment = taLeftJustify
  60.     BevelOuter = bvLowered
  61.     TabOrder = 1
  62.   end
  63.   object Panel1: TPanel
  64.     Left = 0
  65.     Top = 0
  66.     Width = 686
  67.     Height = 25
  68.     Align = alTop
  69.     TabOrder = 3
  70.     OnResize = Panel1Resize
  71.     object Label1: TLabel
  72.       Left = 8
  73.       Top = 3
  74.       Width = 65
  75.       Height = 16
  76.       AutoSize = False
  77.       Caption = 'Look &in:'
  78.     end
  79.     object DriveBox: TDriveComboBox
  80.       Left = 81
  81.       Top = 0
  82.       Width = 440
  83.       Height = 22
  84.       Hint = 'Change drive'
  85.       DirList = DirBox
  86.       TabOrder = 0
  87.     end
  88.   end
  89.   object Panel2: TPanel
  90.     Left = 0
  91.     Top = 427
  92.     Width = 686
  93.     Height = 41
  94.     Align = alBottom
  95.     TabOrder = 4
  96.     object FileFindBtn: TButton
  97.       Left = 185
  98.       Top = 5
  99.       Width = 112
  100.       Height = 32
  101.       Hint = 'Search for files'
  102.       Caption = '&Find file...'
  103.       TabOrder = 0
  104.       Visible = False
  105.       OnClick = FileFindBtnClick
  106.     end
  107.     object StretchChk: TCheckBox
  108.       Left = 104
  109.       Top = 8
  110.       Width = 81
  111.       Height = 25
  112.       Caption = '&Stretch'
  113.       TabOrder = 3
  114.       OnClick = StretchChkClick
  115.     end
  116.     object PrevChk: TCheckBox
  117.       Left = 8
  118.       Top = 8
  119.       Width = 81
  120.       Height = 25
  121.       Hint = 'Show / don'#39't show preview'
  122.       Caption = ' &Preview'
  123.       Checked = True
  124.       State = cbChecked
  125.       TabOrder = 2
  126.       OnClick = PrevChkClick
  127.     end
  128.     object MediaPlayer1: TMediaPlayer
  129.       Left = 585
  130.       Top = 8
  131.       Width = 85
  132.       Height = 33
  133.       VisibleButtons = [btPlay, btPause, btStop]
  134.       Display = ScrollBox1
  135.       Visible = False
  136.       TabOrder = 1
  137.       TabStop = False
  138.     end
  139.   end
  140.   object Panel3: TPanel
  141.     Left = 0
  142.     Top = 468
  143.     Width = 686
  144.     Height = 80
  145.     Align = alBottom
  146.     TabOrder = 5
  147.     object FNameLbl: TLabel
  148.       Left = 9
  149.       Top = 6
  150.       Width = 88
  151.       Height = 24
  152.       AutoSize = False
  153.       Caption = 'File &name:'
  154.       FocusControl = FileNameEdit
  155.       Transparent = True
  156.     end
  157.     object Label2: TLabel
  158.       Left = 8
  159.       Top = 40
  160.       Width = 68
  161.       Height = 16
  162.       Caption = 'File of &type:'
  163.     end
  164.     object FilterBox: TFilterComboBox
  165.       Left = 121
  166.       Top = 38
  167.       Width = 392
  168.       Height = 24
  169.       Hint = 'Change file(s) type'
  170.       Filter = 
  171.         'All files (*.*)|*.*|Graphic files (*.bmp; *.gif; *.jpg)|*.bmp;*.' +
  172.         'gif;*.jpg'
  173.       TabOrder = 1
  174.     end
  175.     object FileNameEdit: TEdit
  176.       Left = 120
  177.       Top = 6
  178.       Width = 393
  179.       Height = 24
  180.       Hint = 'Enter file name and press Enter'
  181.       TabOrder = 0
  182.       Text = '*.*'
  183.       OnKeyPress = FileNameEditKeyPress
  184.     end
  185.     object OKBtn: TButton
  186.       Left = 536
  187.       Top = 6
  188.       Width = 105
  189.       Height = 25
  190.       Hint = 'Accept operation'
  191.       Caption = '&Open'
  192.       Default = True
  193.       ModalResult = 1
  194.       TabOrder = 2
  195.       OnClick = OKBtnClick
  196.       OnMouseDown = OKBtnMouseDown
  197.       OnMouseUp = OKBtnMouseUp
  198.     end
  199.     object CancelBtn: TButton
  200.       Left = 536
  201.       Top = 38
  202.       Width = 105
  203.       Height = 25
  204.       Hint = 'Cancel operation'
  205.       Cancel = True
  206.       Caption = '&Cancel'
  207.       ModalResult = 2
  208.       TabOrder = 3
  209.       OnClick = CancelBtnClick
  210.       OnMouseDown = CancelBtnMouseDown
  211.       OnMouseUp = CancelBtnMouseUp
  212.     end
  213.   end
  214.   object FileBox: TFileListBox
  215.     Left = 215
  216.     Top = 25
  217.     Width = 225
  218.     Height = 402
  219.     Align = alLeft
  220.     FileEdit = FileNameEdit
  221.     FileType = [ftReadOnly, ftDirectory, ftArchive, ftNormal]
  222.     ItemHeight = 16
  223.     MultiSelect = True
  224.     ParentShowHint = False
  225.     PopupMenu = BrowserMenu
  226.     ShowGlyphs = True
  227.     ShowHint = False
  228.     TabOrder = 2
  229.     OnClick = FileBoxClick
  230.     OnDblClick = OKBtnClick
  231.     OnKeyDown = FileBoxKeyDown
  232.     OnKeyPress = FileBoxKeyPress
  233.     OnMouseDown = FileBoxMouseDown
  234.     OnMouseUp = FileBoxMouseUp
  235.   end
  236.   object ScrollBox1: TScrollBox
  237.     Left = 446
  238.     Top = 25
  239.     Width = 240
  240.     Height = 402
  241.     Hint = 'Preview window'
  242.     Align = alClient
  243.     BorderStyle = bsNone
  244.     TabOrder = 6
  245.     object Image1: TImage
  246.       Left = 16
  247.       Top = 160
  248.       Width = 129
  249.       Height = 89
  250.       Hint = 'Preview window'
  251.       AutoSize = True
  252.       Center = True
  253.       Stretch = True
  254.       Visible = False
  255.     end
  256.     object MediaPanel: TPanel
  257.       Left = 17
  258.       Top = 288
  259.       Width = 152
  260.       Height = 57
  261.       BevelOuter = bvLowered
  262.       TabOrder = 0
  263.       Visible = False
  264.       object PlayBtn: TSpeedButton
  265.         Left = 52
  266.         Top = 26
  267.         Width = 24
  268.         Height = 24
  269.         Hint = 'Click here to play sound'
  270.         Glyph.Data = {
  271.           76010000424D7601000000000000760000002800000020000000100000000100
  272.           0400000000000001000000000000000000001000000010000000000000000000
  273.           80000080000000808000800000008000800080800000C0C0C000808080000000
  274.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  275.           3333333333333333333333333333333333333333333333333333333333333333
  276.           3333333333333333333333333333333333333333333333333333333333333333
  277.           33333333333F3333333333333303333333333333338FF3333333333333003333
  278.           333333333388FF3333333333330003333333333333888FF33333333333000033
  279.           3333333333888833333333333300033333333333338883333333333333003333
  280.           3333333333883333333333333303333333333333338333333333333333333333
  281.           3333333333333333333333333333333333333333333333333333333333333333
  282.           3333333333333333333333333333333333333333333333333333}
  283.         NumGlyphs = 2
  284.         Visible = False
  285.         OnClick = PlayBtnClick
  286.         OnMouseDown = PlayBtnMouseDown
  287.         OnMouseUp = PlayBtnMouseUp
  288.       end
  289.       object StopBtn: TSpeedButton
  290.         Left = 75
  291.         Top = 26
  292.         Width = 25
  293.         Height = 24
  294.         Hint = 'Click here to stop sound'
  295.         Glyph.Data = {
  296.           76010000424D7601000000000000760000002800000020000000100000000100
  297.           0400000000000001000000000000000000001000000010000000000000000000
  298.           80000080000000808000800000008000800080800000C0C0C000808080000000
  299.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  300.           3333333333333333333333333333333333333333333333333333333333333333
  301.           3333333333333333333333333333333333333333333333333333333333333333
  302.           333333333333333333333333333333333333333333FFFFF33333333330000033
  303.           33333333388888F3333333333000003333333333388888F33333333330000033
  304.           33333333388888F3333333333000003333333333388888F33333333330000033
  305.           3333333338888833333333333333333333333333333333333333333333333333
  306.           3333333333333333333333333333333333333333333333333333333333333333
  307.           3333333333333333333333333333333333333333333333333333}
  308.         NumGlyphs = 2
  309.         Visible = False
  310.         OnClick = StopBtnClick
  311.         OnMouseDown = StopBtnMouseDown
  312.         OnMouseUp = StopBtnMouseUp
  313.       end
  314.       object ProgressBar: TProgressBar
  315.         Left = 8
  316.         Top = 8
  317.         Width = 130
  318.         Height = 15
  319.         Min = 0
  320.         Max = 100
  321.         TabOrder = 0
  322.       end
  323.     end
  324.     object RichEdit1: TRichEdit
  325.       Left = 24
  326.       Top = 24
  327.       Width = 193
  328.       Height = 113
  329.       ReadOnly = True
  330.       ScrollBars = ssBoth
  331.       TabOrder = 1
  332.       OnKeyDown = RichEdit1KeyDown
  333.       OnMouseDown = RichEdit1MouseDown
  334.     end
  335.   end
  336.   object MediaTimer: TTimer
  337.     Enabled = False
  338.     Interval = 10
  339.     OnTimer = MediaTimerTimer
  340.     Left = 320
  341.     Top = 432
  342.   end
  343.   object BrowserMenu: TPopupMenu
  344.     AutoPopup = False
  345.     OnPopup = BrowserMenuPopup
  346.     Left = 352
  347.     Top = 432
  348.     object Edit1: TMenuItem
  349.       Caption = '&Edit...'
  350.       Hint = 'Edit current file with assocciated program'
  351.       ShortCut = 16453
  352.       OnClick = Edit1Click
  353.     end
  354.     object Delete1: TMenuItem
  355.       Caption = '&Delete...'
  356.       Hint = 'Delete file(s)'
  357.       ShortCut = 46
  358.       OnClick = Delete1Click
  359.     end
  360.   end
  361. end
  362.