home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1999 September
/
Dpcb0999.iso
/
Business
/
Empire
/
_SETUP.1
/
EBWP.exe
/
0
/
RCDATA
/
TFMSUREWP
/
TFMSUREWP.txt
< prev
Wrap
Text File
|
1999-01-04
|
25KB
|
830 lines
object fmSureWP: TfmSureWP
Left = 36
Top = 121
Width = 753
Height = 446
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
ActiveControl = RichEdit1
Caption = 'Suresoft Word Processor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
WindowState = wsMaximized
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyPress = FormKeyPress
OnKeyUp = FormKeyUp
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 16
object ToolBarBevel: TBevel
Left = 0
Top = 0
Width = 745
Height = 2
Align = alTop
Shape = bsTopLine
end
object FormatBarBevel: TBevel
Left = 0
Top = 28
Width = 745
Height = 2
Align = alTop
Shape = bsTopLine
end
object StatusBar: TStatusBar
Left = 0
Top = 377
Width = 745
Height = 23
Panels = <
item
Width = 300
end
item
Alignment = taCenter
Width = 100
end
item
Width = 60
end
item
Width = 60
end
item
Width = 50
end>
SimplePanel = False
end
object FormatBar: TPanel
Left = 0
Top = 30
Width = 745
Height = 26
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object BoldButton: TSpeedButton
Left = 287
Top = 1
Width = 23
Height = 24
Hint = 'Bold'
AllowAllUp = True
GroupIndex = 1
Flat = True
Glyph.Data = {
CE000000424DCE0000000000000076000000280000000B0000000B0000000100
0400000000005800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
0000800000000880000088000880008000008800088000800000880008800080
0000880000000880000088000880008000008800088000800000880008800080
000080000000088000008888888888800000}
Margin = 4
ParentShowHint = False
ShowHint = True
OnClick = BoldButtonClick
OnMouseDown = BoldButtonMouseDown
end
object UnderlineButton: TSpeedButton
Left = 336
Top = 1
Width = 23
Height = 24
Hint = 'Underline'
AllowAllUp = True
GroupIndex = 2
Flat = True
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000B0000000F0000000100
0400000000007800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
0000800000000080000088888888888000008880000088800000880088800880
0000880088800880000088008880088000008800888008800000880088800880
0000880088800880000088008880088000008000080000800000888888888880
000088888888888000008888888888800000}
Margin = 4
ParentShowHint = False
ShowHint = True
OnClick = UnderlineButtonClick
OnMouseDown = BoldButtonMouseDown
end
object ItalicButton: TSpeedButton
Left = 312
Top = 1
Width = 23
Height = 24
Hint = 'Italic'
AllowAllUp = True
GroupIndex = 3
Flat = True
Glyph.Data = {
CE000000424DCE0000000000000076000000280000000F0000000B0000000100
0400000000005800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8880800000088888888088800088888888808888000888888880888880008888
8880888888000888888088888880008888808888888800088880888888888000
888088888888000000808888888888888880}
Margin = 2
ParentShowHint = False
ShowHint = True
OnClick = ItalicButtonClick
OnMouseDown = BoldButtonMouseDown
end
object LeftButton: TSpeedButton
Left = 504
Top = 1
Width = 23
Height = 24
Hint = 'Left Justified'
GroupIndex = 4
Flat = True
Glyph.Data = {
F6000000424DF60000000000000076000000280000000C000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
0000888888888888000088888888888800000000000000080000888888888888
0000000000008888000088888888888800000000000000080000888888888888
0000000000008888000088888888888800000000000000080000888888888888
0000000000008888000088888888888800008888888888880000}
Margin = 4
ParentShowHint = False
ShowHint = True
OnClick = LeftButtonClick
end
object CenterButton: TSpeedButton
Left = 529
Top = 1
Width = 23
Height = 24
Hint = 'Center Justified'
GroupIndex = 4
Flat = True
Glyph.Data = {
F6000000424DF60000000000000076000000280000000D000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8000888888888888800088888888888880008000000000008000888888888888
8000888800000888800088888888888880008000000000008000888888888888
8000888000000088800088888888888880008000000000008000888888888888
8000888800000888800088888888888880008888888888888000}
Margin = 4
ParentShowHint = False
ShowHint = True
OnClick = CenterButtonClick
end
object RightButton: TSpeedButton
Left = 553
Top = 1
Width = 23
Height = 24
Hint = 'Right Justified'
GroupIndex = 4
Flat = True
Glyph.Data = {
F6000000424DF60000000000000076000000280000000D000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8000888888888888800088888888888880008000000000008000888888888888
8000888800000000800088888888888880008000000000008000888888888888
8000888800000000800088888888888880008000000000008000888888888888
8000888800000000800088888888888880008888888888888000}
Margin = 4
ParentShowHint = False
ShowHint = True
OnClick = RightButtonClick
end
object BulletButton: TSpeedButton
Left = 587
Top = 1
Width = 23
Height = 24
Hint = 'Bullets'
AllowAllUp = True
GroupIndex = 5
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888444888888888888844488000000008884448888888
8888888888888888888888888888888888888844488888888888884448800000
0008884448888888888888888888888888888888888888888888884448888888
8888884448800000000888444888888888888888888888888888}
Margin = 1
ParentShowHint = False
ShowHint = True
OnClick = BulletButtonClick
OnMouseDown = BoldButtonMouseDown
end
object Bevel3: TBevel
Left = 210
Top = 1
Width = 3
Height = 24
end
object Bevel4: TBevel
Left = 581
Top = 1
Width = 2
Height = 24
end
object Bevel5: TBevel
Left = 498
Top = 1
Width = 3
Height = 24
end
object Bevel6: TBevel
Left = 280
Top = 1
Width = 3
Height = 24
Shape = bsRightLine
end
object Bevel7: TBevel
Left = 362
Top = 1
Width = 3
Height = 24
end
object FontNameCombo: TwwDBComboBox
Left = 7
Top = 1
Width = 198
Height = 24
ShowButton = True
Style = csDropDown
MapList = False
AllowClearKey = False
DropDownCount = 20
ItemHeight = 0
ParentShowHint = False
ShowHint = False
Sorted = True
TabOrder = 0
UnboundDataType = wwDefault
OnDropDown = FontNameComboDropDown
OnCloseUp = FontNameComboCloseUp
end
object FontSizeCombo: TwwDBComboBox
Left = 216
Top = 1
Width = 61
Height = 24
ShowButton = True
Style = csDropDown
MapList = False
AllowClearKey = False
DropDownCount = 8
ItemHeight = 0
Items.Strings = (
'8'
'9'
'10'
'11'
'12'
'14'
'16'
'18'
'20'
'22'
'24'
'26'
'28'
'36'
'48'
'72')
ParentShowHint = False
ShowHint = False
Sorted = False
TabOrder = 1
UnboundDataType = wwDefault
OnCloseUp = FontSizeComboCloseUp
end
object ColorComboBox1: TColorComboBox
Left = 372
Top = 1
Width = 120
Height = 23
TabOrder = 2
OnChange = ColorComboBox1Change
end
end
object Toolbar: TPanel
Left = 0
Top = 2
Width = 745
Height = 26
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object NewButton: TSpeedButton
Left = 9
Top = 1
Width = 23
Height = 24
Hint = 'New'
AllowAllUp = True
Flat = True
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000D0000000F0000000100
0400000000007800000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8000800000000000800080FFFFFFFFF0800080FFFFFFFFF0800080FFFFFFFFF0
800080FFFFFFFFF0800080FFFFFFFFF0800080FFFFFFFFF0800080FFFFFFFFF0
800080FFFFFFFFF0800080FFFFFF0000800080FFFFFF0F08800080FFFFFF0088
800080000000088880008888888888888000}
Margin = 3
ParentShowHint = False
ShowHint = True
OnClick = FileNew
end
object LoadButton1: TSpeedButton
Left = 35
Top = 1
Width = 23
Height = 24
Hint = 'Open'
AllowAllUp = True
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
88888888888888888888000000000008888800333333333088880B0333333333
08880FB03333333330880BFB0333333333080FBFB000000000000BFBFBFBFB08
88880FBFBFBFBF0888880BFB0000000888888000888888880008888888888888
8008888888880888080888888888800088888888888888888888}
Margin = 1
ParentShowHint = False
ShowHint = True
OnClick = FileOpen
end
object SaveAsButton: TSpeedButton
Left = 62
Top = 1
Width = 23
Height = 24
Hint = 'Save'
AllowAllUp = True
Flat = True
Glyph.Data = {
F6000000424DF60000000000000076000000280000000F000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8880880000000000000080330000008803008033000000880300803300000088
0300803300000000030080333333333333008033000000003300803088888888
0300803088888888030080308888888803008030888888880300803088888888
0000803088888888080080000000000000008888888888888880}
Margin = 1
ParentShowHint = False
ShowHint = True
OnClick = FileSave
end
object PrintButton: TSpeedButton
Left = 90
Top = 1
Width = 23
Height = 24
Hint = 'Print'
AllowAllUp = True
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
88888800000000000888808888888880808800000000000008080888888BBB88
0008088888877788080800000000000008800888888888808080800000000008
0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
088888880FFFFFFFF08888888000000000888888888888888888}
Margin = 2
ParentShowHint = False
ShowHint = True
OnClick = mmiPrintClick
end
object FindButton: TSpeedButton
Left = 126
Top = 1
Width = 23
Height = 24
Hint = 'Find'
AllowAllUp = True
Flat = True
Glyph.Data = {
F6000000424DF60000000000000076000000280000000F000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8880000008888800000008000888880800000800088888080000000000080000
0000808000000800000000800080080000000080008008000000800000000000
0080880800080800088088000008000008808880008880008880888080888080
8880888000888000888088888888888888808888888888888880}
Margin = 2
ParentShowHint = False
ShowHint = True
OnClick = Find1Click
end
object CutButton: TSpeedButton
Left = 160
Top = 1
Width = 23
Height = 24
Hint = 'Cut'
AllowAllUp = True
Flat = True
Glyph.Data = {
F6000000424DF60000000000000076000000280000000D000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8000888008888888800088088088008880008808808088088000880880808808
8000888000808808800088888080008880008888800088888000888888088888
8000888880008888800088888080888880008888008008888000888808880888
8000888808880888800088880888088880008888888888888000}
Margin = 3
ParentShowHint = False
ShowHint = True
OnClick = CutButtonClick
end
object CopyButton: TSpeedButton
Left = 184
Top = 1
Width = 23
Height = 24
Hint = 'Copy'
AllowAllUp = True
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333300000000033333330FFFFFFF033333330F000
00F030000000FFFFFFF030FFFFF0F00000F030F00000FFFFFFF030FFFFF0F00F
000030F00000FFFF0F0330FFFFF0FFFF003330F00F000000033330FFFF0F0333
333330FFFF003333333330000003333333333333333333333333}
Margin = 1
ParentShowHint = False
ShowHint = True
OnClick = CopyButtonClick
end
object UndoButton: TSpeedButton
Left = 242
Top = 1
Width = 23
Height = 24
Hint = 'Undo'
AllowAllUp = True
Flat = True
Glyph.Data = {
F6000000424DF60000000000000076000000280000000E000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8800888888888888880088888888888888008888888888888800888888888888
8800888888888880880080000088888088008000088888880800800088888888
0800800808888888080080888008888088008888888000088800888888888888
8800888888888888880088888888888888008888888888888800}
Margin = 3
ParentShowHint = False
ShowHint = True
OnClick = UndoButtonClick
end
object PasteButton: TSpeedButton
Left = 208
Top = 1
Width = 23
Height = 24
Hint = 'Paste'
AllowAllUp = True
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888888800000000008000000FFFFFFFF00737370F000000F00373730FFFFF
FFF00737370F000F00000373730FFFFF0F080737370FFFFF0088037373000000
0088073737373737308803F0000000077088077088888807308803730B00B073
7088800000BB0000088888888000088888888888888888888888}
Margin = 2
ParentShowHint = False
ShowHint = True
OnClick = PasteButtonClick
end
object RedoButton: TSpeedButton
Left = 267
Top = 1
Width = 23
Height = 24
Hint = 'Redo'
AllowAllUp = True
Flat = True
Glyph.Data = {
AE000000424DAE0000000000000076000000280000000C000000070000000100
0400000000003800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00708777777777
0000807777700000000007777777000000000777777770000000077777770700
000080777700777000007800007777770000}
Margin = 3
ParentShowHint = False
ShowHint = True
OnClick = RedoButtonClick
end
object ToolbarBevel1: TBevel
Left = 154
Top = 1
Width = 2
Height = 24
end
object Bevel1: TBevel
Left = 118
Top = 1
Width = 3
Height = 24
end
object Bevel2: TBevel
Left = 236
Top = 1
Width = 3
Height = 24
end
object UserButtonBevel: TBevel
Left = 295
Top = 1
Width = 2
Height = 24
Visible = False
end
end
object RichEdit1: TwwDBRichEdit
Left = 0
Top = 56
Width = 745
Height = 321
ScrollBars = ssVertical
Align = alClient
AutoURLDetect = False
PrintJobName = 'Delphi 3'
TabOrder = 3
WantTabs = True
OnChange = RichEdit1Change
OnSelectionChange = RichEdit1SelectionChange
PopupOptions = [rpoPopupCut, rpoPopupCopy, rpoPopupPaste, rpoPopupBold, rpoPopupItalic, rpoPopupUnderline, rpoPopupFont, rpoPopupBullet, rpoPopupParagraph, rpoPopupTabs, rpoPopupFind, rpoPopupReplace, rpoPopupInsertObject]
EditorOptions = [reoShowLoad, reoShowSaveAs, reoShowSaveExit, reoShowPrint, reoShowPageSetup, reoShowFormatBar, reoShowToolBar, reoShowStatusBar, reoShowHints, reoShowInsertObject, reoCloseOnEscape, reoFlatButtons]
EditorCaption = 'Edit Rich Text'
EditorPosition.Left = 0
EditorPosition.Top = 0
EditorPosition.Width = 0
EditorPosition.Height = 0
MeasurementUnits = muInches
PrintMargins.Top = 1.000000000000000000
PrintMargins.Bottom = 1.000000000000000000
PrintMargins.Left = 1.000000000000000000
PrintMargins.Right = 1.000000000000000000
RichEditVersion = 2
Data = {
620000007B5C727466315C616E73695C64656666307B5C666F6E7474626C207B
5C66305C666E696C204D532053616E732053657269663B7D7D0D0A5C7563315C
706172645C6C616E67323035375C756C6E6F6E655C66305C667331365C706172
0D0A7D0D0A00}
end
object MainMenu1: TMainMenu
Left = 16
Top = 237
object File1: TMenuItem
Caption = '&File'
object mmiNew: TMenuItem
Caption = '&New'
ShortCut = 16462
OnClick = FileNew
end
object mmiRecent: TMenuItem
Caption = 'Recent'
Enabled = False
end
object mmiOpen: TMenuItem
Caption = '&Open'
ShortCut = 16463
OnClick = FileOpen
end
object FileSep1: TMenuItem
Caption = '-'
end
object mmiSave: TMenuItem
Caption = '&Save'
ShortCut = 16467
OnClick = FileSave
end
object mmiSaveAs: TMenuItem
Caption = 'Save &As...'
OnClick = FileSaveAs
end
object FileSep2: TMenuItem
Caption = '-'
end
object mmiPageSetup: TMenuItem
Caption = 'Page Set&up...'
OnClick = mmiPageSetupClick
end
object mmiPrint: TMenuItem
Caption = '&Print'
ShortCut = 16464
OnClick = mmiPrintClick
end
object N1: TMenuItem
Caption = '-'
end
object mmiExit: TMenuItem
Caption = 'E&xit'
OnClick = mmiExitClick
end
end
object Edit1: TMenuItem
Caption = '&Edit'
ShortCut = 16474
OnClick = Edit1Click
object mmiUndo: TMenuItem
Caption = '&Undo'
ShortCut = 16474
OnClick = mmiUndoClick
end
object Redo1: TMenuItem
Caption = '&Redo'
ShortCut = 16473
OnClick = Redo1Click
end
object EditSep1: TMenuItem
Caption = '-'
end
object Cut1: TMenuItem
Caption = 'Cu&t'
ShortCut = 16472
OnClick = Cut1Click
end
object Copy1: TMenuItem
Caption = '&Copy'
ShortCut = 16451
OnClick = Copy1Click
end
object Paste1: TMenuItem
Caption = '&Paste'
ShortCut = 16470
OnClick = Paste1Click
end
object N2: TMenuItem
Caption = '-'
end
object Clear1: TMenuItem
Caption = 'Cle&ar'
ShortCut = 46
OnClick = Clear1Click
end
object SelectAll1: TMenuItem
Caption = 'Select A&ll'
ShortCut = 16449
OnClick = SelectAll1Click
end
object EditSep2: TMenuItem
Caption = '-'
end
object Find1: TMenuItem
Caption = '&Find...'
ShortCut = 16454
OnClick = Find1Click
end
object FindNext1: TMenuItem
Caption = 'Find &Next'
ShortCut = 114
OnClick = FindNext1Click
end
object Replace1: TMenuItem
Caption = 'R&eplace...'
ShortCut = 16456
OnClick = Replace1Click
end
end
object View1: TMenuItem
Caption = '&View'
object Toolbar1: TMenuItem
Caption = '&Toolbar'
Checked = True
OnClick = Toolbar1Click
end
object FormatBar1: TMenuItem
Caption = '&Format Bar'
Checked = True
OnClick = FormatBar1Click
end
object StatusBar1: TMenuItem
Caption = '&Status Bar'
Checked = True
OnClick = StatusBar1Click
end
end
object Insert1: TMenuItem
Caption = '&Insert'
object DateandTime1: TMenuItem
Caption = 'Date and &Time...'
OnClick = DateandTime1Click
end
object InsertObject1: TMenuItem
Caption = '&Object...'
OnClick = InsertObject1Click
end
end
object Format1: TMenuItem
Caption = 'F&ormat'
object Font1: TMenuItem
Caption = '&Font...'
OnClick = Font1Click
end
object Paragraph1: TMenuItem
Caption = '&Paragraph...'
OnClick = Paragraph1Click
end
object BulletStyle1: TMenuItem
Caption = '&Bullets'
OnClick = BulletStyle1Click
end
object Tabs1: TMenuItem
Caption = '&Tabs...'
OnClick = Tabs1Click
end
end
object Help1: TMenuItem
Caption = 'Help'
object About1: TMenuItem
Caption = '&About...'
OnClick = About1Click
end
end
end
object PrintDialog1: TPrintDialog
Left = 48
Top = 237
end
object OpenDialog1: TOpenDialog
Filter = 'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT'
Left = 127
Top = 237
end
object SaveDialog1: TSaveDialog
DefaultExt = 'rtf'
Filter = 'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT'
Left = 85
Top = 237
end
object MRUManager: TMRUManager
RecentMenu = mmiRecent
OnClick = MRUManagerClick
Left = 164
Top = 240
end
object TrayIcon: TRxTrayIcon
Hint = 'Suresoft Word Processor'
Icon.Data = {<image000.ico>}
PopupMenu = PopupMenu
Left = 200
Top = 240
end
object PopupMenu: TPopupMenu
Left = 232
Top = 240
object RXDemo1: TMenuItem
Caption = 'SSWP'
OnClick = RXDemo1Click
end
object MenuItem1: TMenuItem
Caption = 'About'
OnClick = MenuItem1Click
end
object MenuItem2: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'Exit'
OnClick = Exit1Click
end
end
end
