home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Bila Vrana
/
BILA_VRANA.iso
/
028A
/
EDITPAD.ZIP
/
EditPad.exe
/
0
/
RCDATA
/
TEDITPADFORM
/
TEDITPADFORM.txt
Wrap
Text File
|
1997-01-04
|
55KB
|
1,362 lines
object EditPadForm: TEditPadForm
Left = 231
Top = 102
Width = 411
Height = 345
Hint = 'EditPad --- Copyright (C) 1996, by Jan Goyvaerts'
Caption = 'EditPad'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu
OnActivate = FormActivate
OnCloseQuery = FormCloseQuery
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Tabs: TTabControl
Left = 0
Top = 32
Width = 399
Height = 244
Align = alClient
PopupMenu = PopupMenu
TabOrder = 0
TabStop = False
OnChange = TabsChange
OnChanging = TabsChanging
object RichEdit: TRicherEdit
Left = 4
Top = 6
Width = 391
Height = 234
Align = alClient
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Courier'
Font.Style = []
HideSelection = False
HideScrollBars = False
ParentFont = False
PlainText = True
ScrollBars = ssBoth
TabOrder = 0
WantTabs = True
OnChange = RichEditChange
OnKeyUp = RichEditKeyUp
OnSelectionChange = RichEditSelectionChange
end
end
object StatusBar: TStatusBar
Left = 0
Top = 276
Width = 399
Height = 19
Panels = <
item
Alignment = taCenter
Text = 'RichEditPos'
Width = 64
end
item
Alignment = taCenter
Text = 'Modified'
Width = 64
end
item
Alignment = taCenter
Text = 'Insert'
Width = 64
end
item
Text = 'Hints'
Width = 64
end>
SimplePanel = False
end
object PanelToolBar: TPanel
Left = 0
Top = 0
Width = 399
Height = 32
Hint = '|'
Align = alTop
ParentShowHint = False
ShowHint = True
TabOrder = 2
object BtnNew: TSpeedButton
Left = 7
Top = 3
Width = 25
Height = 25
Hint = 'New|Start with a fresh text'
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777770777
7777770000007077777707777777070000007707777777777770770000007777
777777777777770000007777000000000077770000007770BFBFBFBFBF077700
00007770FBFBFBFBFB07770000007770BFBFBFBFBF07770000007770FBFBFBFB
FB07000000000070BFBFBFBFBF07770000007770FBFBFBFBFB07770000007770
0000BFBFBF07770000007770FBFB000000777700000077770000777777777700
0000777777777777777777000000770777777777777077000000707777777077
777707000000777777777077777777000000}
OnClick = ItemNewClick
end
object BtnOpen: TSpeedButton
Left = 64
Top = 3
Width = 25
Height = 25
Hint = 'Open|Open a text'
Glyph.Data = {
06010000424D06010000000000007600000028000000110000000C0000000100
0400000000009000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
007770000000007B7B7B7B7B7B07700000000F07B7B7B7B7B707700000000B0B
7B7B7B7B7B70700000000FB0B7B7B7B7B7B0700000000BF07B7B7B7B7B7B0000
00000FBF000007B7B7B7000000000BFBFBFBF0000000700000000FBFBFBFBFBF
B077700000000BFBFBFBFBFBF077700000000FBFBF0000000777700000007000
00777777777770000000}
OnClick = ItemOpenClick
end
object BtnSave: TSpeedButton
Left = 89
Top = 3
Width = 25
Height = 25
Hint = 'Save|Save current text'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777770008888880000777
777700000000000007777770CC47CC7774CC0777777088087788808807777770
CC47CC7774CC0777777088087788808807777770CC47777774CC077777708808
8888808807777770CC64444446CC0777777088800000088807777770CCCCCCCC
CCCC0777777088888888888807777770C6000000006C07777770880000000088
07777770C0FFFFFFFF0C0777777080777777770807777770C0FFFFFFFF0C0777
777080777777770807777770C0FFFFFFFF0C0777777080777777770807777770
C0FFFFFFFF0C077777708077777777080777777000FFFFFFFF00077777700077
7777770007777770C0FFFFFFFF0C077777708077777777080777777000000000
0000077777700000000000000777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
77777777777777777777}
NumGlyphs = 2
OnClick = ItemSaveClick
end
object BtnFind: TSpeedButton
Left = 253
Top = 3
Width = 25
Height = 25
Hint = 'Find|Find a word'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777BFBF
BFBFBFBF000077777777FFFFFFFFFFFF000077777777BFBFBFBFBFBF00007777
7777FFFFFFFFFFFF000077777777BFBFBFBFBFBF000077777777FFFFFFFFFFFF
000077777770BFBFBFBFBFBF0000777777010FFFFFFFFFFF00007777770180BF
BFBFBFBF000077777701180FFFFFFFFF0000777770811190BFBFBFBF00007777
707719990FFFFFFF00007777077FF999907777770000777077FFFF0007777777
000077077FFF00777777777700007077FFF07777777777770000077FFF097777
77777777000007FFF097777777777777000070FF077777777777777700007700
77777777777777770000}
OnClick = ItemFindClick
end
object BtnReplace: TSpeedButton
Left = 278
Top = 3
Width = 25
Height = 25
Hint = 'Replace|Replace a word with another'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777777FFFFF
FFFFFFFF00007007007BFB0BFB0000FB00007007007FFF00FF00F00F00007007
007B00000B00F00B00007000007F00000F0000FF00007007007BFB00FB00F00B
00007700077FFF0FFF0000FF00007777770BFBFBFBFBFBFB000077777010FFFF
FFFFFFFF0000777770180BFBFBFBFBFB00007777701180FFFFFFFFFF00007777
0811190BFBFBFBFB0000777707719990FFFFFFFF0000777077FF999907777777
000077077FFFF0007777777700007077FFF00777777777770000077FFF077777
77777777000007FFF097777777777777000070FF097777777777777700007700
77777777777777770000}
OnClick = ItemReplaceClick
end
object BtnCut: TSpeedButton
Left = 171
Top = 3
Width = 25
Height = 25
Hint = 'Cut|Cut selected text to clipboard'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777FF77777777FF777777844877777784487777777887F77777788
7F77778477487777847748777778F787F77778778F7777847774777747774877
7778F778F7778F778F77778477747777477748777778F778F7778F7787777778
477487784774877777778FF8F7778FF877777777844448844448777777777888
8FF8888777777777774444444477777777777788888888777777777777746FF6
4777777777777778F7FF8F77777777777770F00F0777777777777778788787F7
77777777770FFFF0F07777777777778777F8787F7777777770FFF00FFF077777
777778777887F787F77777770FFF0770FFF077777777877787787F787F777770
FFF077770FFF077777787778777787F