home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2000 January
/
PCWorld_2000-01_cd.bin
/
Komunik
/
News
/
Xnews
/
Xnews.exe
/
0
/
RCDATA
/
TEDITWINDOW
/
TEDITWINDOW.txt
< prev
Wrap
Text File
|
1999-11-08
|
20KB
|
814 lines
object EditWindow: TEditWindow
Left = 100
Top = 46
Width = 774
Height = 596
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
KeyPreview = True
OldCreateOrder = True
ShowHint = True
Visible = True
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 16
object pnTop: TPanel
Left = 0
Top = 0
Width = 766
Height = 198
Align = alTop
BevelOuter = bvLowered
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnResize = pnTopResize
object Pager: TPageControl
Left = 5
Top = 3
Width = 656
Height = 189
ActivePage = Tab1
MultiLine = True
TabOrder = 0
TabPosition = tpBottom
object Tab1: TTabSheet
Caption = '&1. Standard'
object Label10: TLabel
Left = 24
Top = 76
Width = 78
Height = 16
Caption = 'FollowUp-To'
end
object Label8: TLabel
Left = 41
Top = 104
Width = 45
Height = 16
Caption = 'Subject'
end
object Label9: TLabel
Left = 4
Top = 0
Width = 42
Height = 16
Caption = 'Identity'
end
object Label6: TLabel
Left = 127
Top = 0
Width = 37
Height = 16
Caption = 'Name'
end
object Label3: TLabel
Left = 266
Top = 0
Width = 73
Height = 16
Caption = 'Public email'
end
object Label4: TLabel
Left = 405
Top = -2
Width = 78
Height = 16
Caption = 'Private email'
end
object Label5: TLabel
Left = 544
Top = 0
Width = 75
Height = 16
Caption = 'Organization'
end
object edGroups: TEdit
Left = 127
Top = 45
Width = 481
Height = 24
AutoSize = False
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 6
OnDragDrop = edGroupsDragDrop
OnDragOver = edGroupsDragOver
end
object bEdGrps: TButton
Left = 615
Top = 45
Width = 29
Height = 24
Hint = 'Edit list of groups to post to'
Caption = '...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -21
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = bEdFollowupClick
end
object edFollowUp: TEdit
Left = 127
Top = 72
Width = 481
Height = 26
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 8
end
object bEdFollowup: TButton
Left = 614
Top = 74
Width = 29
Height = 24
Hint = 'Set Followup-To'
Caption = '...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -21
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 9
OnClick = bEdFollowupClick
end
object edSubject: TEdit
Left = 127
Top = 100
Width = 386
Height = 26
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 10
OnChange = edSubjectChange
end
object cbXNA: TCheckBox
Left = 523
Top = 130
Width = 97
Height = 17
Caption = 'X-No-Archive'
TabOrder = 15
end
object bGroups: TMyCheckBox
Left = 8
Top = 47
Width = 109
Height = 22
Caption = 'Newsgroups'
TabOrder = 5
OnClick = bGroupsClick
HorAlignment = haCenter
LikeButton = True
end
object bMailTo: TMyCheckBox
Left = 8
Top = 130
Width = 109
Height = 22
Caption = 'To'
TabOrder = 12
OnClick = bGroupsClick
HorAlignment = haCenter
LikeButton = True
end
object edMailTo: TMyComboBox
Left = 127
Top = 129
Width = 345
Height = 24
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 16
ParentCtl3D = False
ParentFont = False
TabOrder = 13
OnEnter = edPubEMailEnter
OnExit = edPubEMailExit
RegKey = 'Software\Xnews\coMailTo'
MaxItems = 30
end
object bAdd: TButton
Left = 484
Top = 131
Width = 29
Height = 20
Hint = 'Add email to drop down list'
Caption = '+'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = bAddClick
end
object cbNewThread: TMyCheckBox
Left = 523
Top = 105
Width = 118
Height = 17
Hint = '(Remove References: header)'
Caption = 'Start new thread'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object coIDs: TComboBox
Left = 4
Top = 16
Width = 115
Height = 24
Style = csDropDownList
ItemHeight = 16
TabOrder = 0
OnChange = coIDsChange
end
object edName: TEdit
Left = 127
Top = 16
Width = 129
Height = 22
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
end
object edPubEMail: TEdit
Left = 266
Top = 16
Width = 129
Height = 22
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
OnEnter = edPubEMailEnter
OnExit = edPubEMailExit
end
object edEMail: TEdit
Left = 405
Top = 16
Width = 129
Height = 22
Ctl3D = False
ParentCtl3D = False
TabOrder = 3
end
object edOrg: TEdit
Left = 544
Top = 16
Width = 100
Height = 22
Ctl3D = False
ParentCtl3D = False
TabOrder = 4
end
end
object Tab2: TTabSheet
Caption = '&2. Custom'
ImageIndex = 1
object ScrollBox: TScrollBox
Left = 0
Top = 0
Width = 648
Height = 158
HorzScrollBar.Visible = False
VertScrollBar.Increment = 26
VertScrollBar.Tracking = True
Align = alClient
AutoScroll = False
AutoSize = True
BorderStyle = bsNone
TabOrder = 0
end
end
object Tab3: TTabSheet
Caption = '&3. Manual headers'
ImageIndex = 2
object Label12: TLabel
Left = 16
Top = 14
Width = 193
Height = 16
Caption = 'Enter additional headers here >>'
end
object Moreheaders: TMemo
Left = 224
Top = 6
Width = 353
Height = 138
HideSelection = False
ScrollBars = ssVertical
TabOrder = 0
WordWrap = False
end
end
object Tab4: TTabSheet
Caption = '&4. Attachments'
ImageIndex = 3
object lbCount: TLabel
Left = 14
Top = 137
Width = 3
Height = 16
end
object Label11: TLabel
Left = 482
Top = 126
Width = 46
Height = 16
Caption = 'Cut size'
end
object Label13: TLabel
Left = 610
Top = 126
Width = 28
Height = 16
Caption = 'lines'
end
object Atts: TMyListView
Left = 8
Top = 0
Width = 289
Height = 132
Columns = <
item
Caption = 'Filename'
Width = 100
end
item
Caption = 'Size'
Width = 0
end>
ColumnClick = False
HideSelection = False
HotTrackStyles = []
ReadOnly = True
RowSelect = True
ShowColumnHeaders = False
TabOrder = 0
ViewStyle = vsReport
OnChange = AttsChange
end
object bAAdd: TButton
Left = 304
Top = 3
Width = 65
Height = 30
Caption = 'Add ...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = bAAddClick
end
object bARemove: TButton
Left = 304
Top = 76
Width = 65
Height = 24
Caption = 'Remove'
Enabled = False
TabOrder = 4
OnClick = bARemoveClick
end
object bAClear: TButton
Left = 304
Top = 108
Width = 65
Height = 24
Caption = 'Clear'
Enabled = False
TabOrder = 5
OnClick = bAClearClick
end
object bUp: TButton
Left = 204
Top = 136
Width = 41
Height = 17
Caption = 'Up'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = bUpClick
end
object bDown: TButton
Left = 252
Top = 136
Width = 41
Height = 17
Caption = 'Down'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = bUpClick
end
object cbMIME: TCheckBox
Left = 386
Top = 126
Width = 82
Height = 17
Caption = 'Use MIME'
TabOrder = 8
end
object rgAOption: TRadioGroup
Left = 386
Top = 1
Width = 252
Height = 98
Caption = 'Post attachments...'
ItemIndex = 0
Items.Strings = (
'together under one subject'
'separately'
'separately; Text in 0-part of 1st file'
'separately; Text in 0-part of each file')
TabOrder = 6
end
object edCutsize: TSpinEdit
Left = 539
Top = 123
Width = 63
Height = 26
MaxLength = 5
MaxValue = 15000
MinValue = 100
TabOrder = 9
Value = 200
OnExit = edCutsizeExit
end
object cbShowFileCount: TCheckBox
Left = 386
Top = 104
Width = 183
Height = 17
Caption = 'Show file count in subject'
TabOrder = 7
end
end
end
end
object StatusBar: TStatusBar
Left = 0
Top = 543
Width = 766
Height = 22
Panels = <
item
Width = 400
end
item
Width = 80
end
item
Width = 100
end>
SimplePanel = False
end
object pnBase: TPanel
Left = 0
Top = 232
Width = 766
Height = 311
Align = alClient
BevelOuter = bvNone
TabOrder = 2
object Label2: TLabel
Left = 0
Top = 0
Width = 766
Height = 16
Align = alTop
Caption =
' 0123456789012345678901234' +
'5678901234567890'
Font.Charset = ANSI_CHARSET
Font.Color = clBtnText
Font.Height = -17
Font.Name = 'Courier'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 0
Top = 16
Width = 766
Height = 16
Align = alTop
Caption =
' 4 5 6 ' +
' 7 8'
Font.Charset = ANSI_CHARSET
Font.Color = clBtnText
Font.Height = -17
Font.Name = 'Courier'
Font.Style = [fsBold]
ParentFont = False
end
object cbKeepCopy: TMyCheckBox
Left = 10
Top = 4
Width = 69
Height = 22
Hint = 'Keep copy in Sent folder'
Caption = 'Keep copy'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 0
HorAlignment = haCenter
LikeButton = True
end
object bWrap: TMyCheckBox
Left = 87
Top = 4
Width = 62
Height = 22
Hint = 'Toggle line wrap'
Caption = 'Wrap'
Checked = True
State = cbChecked
TabOrder = 1
OnClick = bWrapClick
HorAlignment = haCenter
LikeButton = True
end
object bROT13: TButton
Left = 164
Top = 4
Width = 65
Height = 22
Hint = '(Ctrl+3)'
Caption = 'ROT13'
Enabled = False
TabOrder = 2
TabStop = False
OnClick = bROT13Click
end
object bPretty: TButton
Left = 240
Top = 4
Width = 65
Height = 22
Hint = 'Fix broken wrapped quoted text'
Caption = 'Reformat'
TabOrder = 3
OnClick = bPrettyClick
end
object bUndo: TButton
Left = 317
Top = 4
Width = 65
Height = 22
Caption = 'Undo'
TabOrder = 4
OnClick = bUndoClick
end
object Memo: TMyRichEdit
Left = 0
Top = 32
Width = 766
Height = 279
Align = alClient
Ctl3D = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
HideSelection = False
HideScrollBars = False
MaxLength = 500000
NoAutoVScroll = False
ParentCtl3D = False
ParentFont = False
PlainText = True
PopupMenu = poMemo
ScrollBars = ssBoth
TabOrder = 5
WantTabs = True
OnChange = MemoChange
OnEnter = edPubEMailEnter
OnExit = edPubEMailExit
OnKeyDown = MemoKeyDown
OnKeyUp = MemoKeyUp
OnMouseDown = MemoMouseDown
end
end
object pnMiddle: TPanel
Left = 0
Top = 198
Width = 766
Height = 34
Align = alTop
BevelOuter = bvLowered
TabOrder = 1
object Label7: TLabel
Left = 11
Top = 6
Width = 41
Height = 16
Caption = 'Post to'
end
object coProfs: TComboBox
Left = 62
Top = 4
Width = 143
Height = 24
Style = csDropDownList
ItemHeight = 16
TabOrder = 0
OnChange = coProfsChange
end
object bSend: TButton
Left = 233
Top = 3
Width = 113
Height = 27
Hint = '(Ctrl+E)'
Caption = 'Send Now !'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBtnText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = bSendClick
end
object bQueue: TButton
Left = 384
Top = 3
Width = 121
Height = 27
Hint = '(Ctrl+L)'
Caption = 'Save (send later)'
ModalResult = 1
TabOrder = 2
OnClick = bQueueClick
end
object bStop: TButton
Left = 530
Top = 3
Width = 73
Height = 27
Caption = 'Stop'
Enabled = False
TabOrder = 3
OnClick = bStopClick
end
object bFS: TButton
Left = 657
Top = 8
Width = 32
Height = 19
Hint = 'Full screen edit (F12)'
Caption = '<<'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = bFSClick
end
end
object poMemo: TPopupMenu
OnPopup = poMemoPopup
Left = 320
Top = 432
object miRewrap: TMenuItem
Caption = 'Re&wrap'
OnClick = bPrettyClick
end
object miRewrapJoin: TMenuItem
Caption = 'Rewrap and &Join Lines'
OnClick = bPrettyClick
end
object miInsert: TMenuItem
Caption = '&Insert Text File...'
OnClick = miInsertClick
end
object miUndo: TMenuItem
Caption = '&Undo'
OnClick = mipoMemoClick
end
object N1: TMenuItem
Caption = '-'
end
object miCut: TMenuItem
Caption = 'Cu&t'
OnClick = mipoMemoClick
end
object miCopy: TMenuItem
Caption = '&Copy'
OnClick = mipoMemoClick
end
object miPaste: TMenuItem
Caption = '&Paste'
OnClick = miPasteClick
end
object miDel: TMenuItem
Caption = '&Delete'
OnClick = mipoMemoClick
end
object N3: TMenuItem
Caption = '-'
end
object miPasteQ: TMenuItem
Caption = 'Paste as &Quoted'
OnClick = miPasteExClick
end
object miPasteI: TMenuItem
Caption = 'Paste Indented'
OnClick = miPasteExClick
end
object miPasteI2: TMenuItem
Caption = 'Paste Indented By...'
OnClick = miPasteExClick
end
object N2: TMenuItem
Caption = '-'
end
object miSelectAll: TMenuItem
Caption = 'Select &All'
OnClick = mipoMemoClick
end
end
object OpenDialog: TOpenDialog
Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Title = 'Select attachment(s)'
Left = 112
Top = 320
end
end
