PC World 2001 March

home *** CD-ROM | disk | FTP | other *** search

/ PC World 2001 March / PCWorld_2001-03_cd.bin / Software / Vyzkuste / xnews / Xnews.exe / 0 / RCDATA / TEDITWINDOW / TEDITWINDOW.txt < prev

Wrap

Text File | 2001-01-31 | 20.7 KB | 863 lines

object EditWindow: TEditWindow Left = 162 Top = 110 Width = 733 Height = 587 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText 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 OnPaint = FormPaint OnResize = FormResize OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object pnTop: TPanel Left = 0 Top = 0 Width = 725 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 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' FocusControl = edSubject 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 = clWindowText 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 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 0 OnChange = coIDsChange end object edName: TEdit Left = 127 Top = 16 Width = 129 Height = 22 Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 1 end object edPubEMail: TEdit Left = 266 Top = 16 Width = 129 Height = 22 Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 2 OnEnter = edPubEMailEnter OnExit = edPubEMailExit end object edEMail: TEdit Left = 405 Top = 16 Width = 129 Height = 22 Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 3 end object edOrg: TEdit Left = 544 Top = 16 Width = 100 Height = 22 Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = 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 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] HideSelection = False ParentFont = 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 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] HideSelection = False HotTrackStyles = [] ReadOnly = True RowSelect = True ParentFont = False 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 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 5 MaxValue = 15000 MinValue = 100 ParentFont = False 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 = 534 Width = 725 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 = 725 Height = 302 Align = alClient BevelOuter = bvNone TabOrder = 2 object Label2: TLabel Left = 0 Top = 0 Width = 725 Height = 16 Align = alTop Font.Charset = ANSI_CHARSET Font.Color = clBtnText Font.Height = -17 Font.Name = 'Courier' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 0 Top = 16 Width = 725 Height = 16 Align = alTop Font.Charset = ANSI_CHARSET Font.Color = clBtnText Font.Height = -17 Font.Name = 'Courier' Font.Style = [] 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 = clBtnText 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 = 85 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 = 160 Top = 4 Width = 65 Height = 22 Hint = '(Ctrl+3)' Caption = 'ROT13' Enabled = False TabOrder = 2 TabStop = False OnClick = bROT13Click end object bPretty: TButton Left = 235 Top = 4 Width = 65 Height = 22 Hint = 'Fix broken wrapped quoted text' Caption = 'Reformat' TabOrder = 3 OnClick = bPrettyClick end object bUndo: TButton Left = 310 Top = 4 Width = 65 Height = 22 Caption = 'Undo' TabOrder = 4 OnClick = bUndoClick end object Memo: TRichEdit Left = 0 Top = 32 Width = 725 Height = 270 Align = alClient Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] HideSelection = False HideScrollBars = False MaxLength = 500000 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 = 725 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 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False 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