home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2000 January
/
PCWorld_2000-01_cd.bin
/
Komunik
/
News
/
Xnews
/
Xnews.exe
/
0
/
RCDATA
/
TFOLDERSWINDOW
/
TFOLDERSWINDOW.txt
< prev
Wrap
Text File
|
1999-11-08
|
3KB
|
134 lines
object FoldersWindow: TFoldersWindow
Left = 133
Top = 84
Width = 696
Height = 480
Caption = 'Folders'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
Icon.Data = {<image000.ico>}
KeyPreview = True
Menu = MainMenu
OldCreateOrder = False
Position = poDefault
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDeactivate = FormDeactivate
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 16
object LV: TMyListView
Left = 0
Top = 0
Width = 688
Height = 426
Align = alClient
Columns = <
item
Caption = 'Name'
Width = 300
end
item
Caption = 'File'
Width = 200
end>
DragMode = dmAutomatic
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
GridLines = True
HideSelection = False
HotTrackStyles = []
OwnerData = True
OwnerDraw = True
ReadOnly = True
RowSelect = True
ParentFont = False
SmallImages = XnewsFrame.TaskBarImages
TabOrder = 0
ViewStyle = vsReport
OnColumnClick = LVColumnClick
OnData = LVData
OnDataFind = LVDataFind
OnDblClick = LVDblClick
OnDrawItem = LVDrawItem
OnEnter = LVEnter
OnKeyPress = LVKeyPress
OnKeyUp = LVKeyUp
OnMouseUp = LVMouseUp
SaveSettings.RegistryKey = 'Software\Xnews\Folders\Columns'
end
object MainMenu: TMainMenu
Left = 96
Top = 184
object mnFolder: TMenuItem
Caption = '&Folder'
GroupIndex = 1
object AddFolder1: TMenuItem
Action = acfAdd
Caption = 'Add'
end
object DeleteFolder1: TMenuItem
Action = acfDel
Caption = 'Delete'
end
object N1: TMenuItem
Caption = '-'
end
object RenameFolder1: TMenuItem
Action = acfRename
Caption = 'Rename'
end
object ChangeFile1: TMenuItem
Action = acfChangeFile
end
end
end
object FActions: TActionList
Left = 200
Top = 192
object acfAdd: TAction
Category = 'Folders'
Caption = 'Add Folder'
ShortCut = 45
OnExecute = acfAddExecute
end
object acfDel: TAction
Category = 'Folders'
Caption = 'Delete Folder'
ShortCut = 46
OnExecute = acfDelExecute
end
object acfRename: TAction
Category = 'Folders'
Caption = 'Rename Folder'
ShortCut = 113
OnExecute = acfRenameExecute
end
object acfChangeFile: TAction
Category = 'Folders'
Caption = 'Change File'
ShortCut = 115
OnExecute = acfChangeFileExecute
end
end
object OpenDialog: TOpenDialog
Filter = 'Mbx files|*.mbx|All files|*.*'
FilterIndex = 0
Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
Left = 176
Top = 312
end
end