home *** CD-ROM | disk | FTP | other *** search
- object fmPlonk: TfmPlonk
- Left = 282
- Top = 132
- Width = 454
- Height = 470
- Caption = 'Plonk File'
- Color = clBtnFace
- Constraints.MinWidth = 300
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object LV: TMyListView
- Left = 0
- Top = 0
- Width = 446
- Height = 400
- Hint = 'Right click to edit item'#13#10'Del to delete'
- Align = alClient
- Columns = <
- item
- Caption = 'Poster'
- Width = 200
- end
- item
- Caption = 'email'
- Width = 200
- end
- item
- Caption = 'Expiry'
- end>
- ColumnClick = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- GridLines = True
- HideSelection = False
- HotTrackStyles = []
- MultiSelect = True
- OwnerData = True
- OwnerDraw = True
- ReadOnly = True
- RowSelect = True
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- ViewStyle = vsReport
- OnData = LVData
- OnDataFind = LVDataFind
- OnDrawItem = LVDrawItem
- OnKeyDown = LVKeyDown
- OnMouseDown = LVMouseDown
- SaveSettings.RegistryKey = 'Software\Xnews\Plonk\Columns'
- end
- object Panel1: TPanel
- Left = 0
- Top = 400
- Width = 446
- Height = 39
- Align = alBottom
- Alignment = taLeftJustify
- BevelInner = bvSpace
- BevelOuter = bvLowered
- TabOrder = 1
- object Button1: TButton
- Left = 362
- Top = 8
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = '&Close'
- Default = True
- ModalResult = 1
- TabOrder = 1
- end
- object bAdd: TButton
- Left = 8
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Add'
- TabOrder = 0
- OnClick = bAddClick
- end
- end
- end
-