home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 July
/
Chip_1999-07_cd.bin
/
zkuste
/
Delphi
/
D
/
sce.exe
/
PRGEDIT.EXE
/
0
/
RCDATA
/
TFRAMEFORM
/
TFRAMEFORM.txt
< prev
Wrap
Text File
|
1999-01-01
|
21KB
|
597 lines
object FrameForm: TFrameForm
Left = 663
Top = 209
HelpContext = 102
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
AutoScroll = False
Caption = 'SCE 1.74 E for Pascal and Delphi'
ClientHeight = 348
ClientWidth = 487
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIForm
Icon.Data = {<image000.ico>}
Menu = MainMenu1
OldCreateOrder = True
Position = poDesktopCenter
Scaled = False
WindowMenu = Window1
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 16
object StatusBar1: TStatusBar
Left = 0
Top = 326
Width = 487
Height = 22
Panels = <>
ParentShowHint = False
ShowHint = True
SimplePanel = True
end
object ProgressBar1: TProgressBar
Left = 0
Top = 297
Width = 487
Height = 20
Align = alBottom
Min = 0
Max = 100
TabOrder = 1
end
object Dock97L: TDock97
Left = 0
Top = 26
Width = 9
Height = 271
Position = dpLeft
end
object Dock97R: TDock97
Left = 478
Top = 26
Width = 9
Height = 271
Position = dpRight
end
object Dock97U: TDock97
Left = 0
Top = 317
Width = 487
Height = 9
Position = dpBottom
end
object Dock97O: TDock97
Left = 0
Top = 0
Width = 487
Height = 26
object Toolbar97: TToolbar97
Left = 0
Top = 0
HelpContext = 122
Caption = 'SCE'
CloseButton = False
DefaultDock = Dock97O
DockedTo = Dock97O
DockPos = 0
ParentShowHint = False
ShowHint = True
TabOrder = 0
object Name2Button: TToolbarButton97
Left = 418
Top = 0
Width = 55
Height = 22
Hint = 'Language setting: user defiend'
Caption = 'Name2'
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = Name2ButtonClick
end
object Name1Button: TToolbarButton97
Left = 363
Top = 0
Width = 55
Height = 22
Hint = 'Language setting: user defiend'
Caption = 'Name1'
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = Name1ButtonClick
end
object OeffnenButton: TToolbarButton97
Left = 0
Top = 0
Width = 23
Height = 22
Hint = 'File open | Opens a file'
AllowAllUp = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = OeffnenButtonClick
end
object TP4_5Button: TToolbarButton97
Left = 308
Top = 0
Width = 55
Height = 22
Hint = 'Language setting: TP4/5'
Caption = 'TP4/5'
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = TP4_5ButtonClick
end
object StrukDruckButton: TToolbarButton97
Left = 23
Top = 0
Width = 23
Height = 22
Hint = 'Prints structure | Prints structure'
AllowAllUp = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222200000000000222208888888880802200000000000008020888888BBB88
0002088888877788080200000000000008800888888888808080200000000008
0800220FFFFFFFF080802220F00000F000022220FFFFFFFF022222220F00000F
022222220FFFFFFFF02222222000000000222222222222222222}
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = StrukDruckButtonClick
end
object TP6_7Button: TToolbarButton97
Left = 253
Top = 0
Width = 55
Height = 22
Hint = 'Language setting: TP6/7'
Caption = 'TP6/7'
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = TP6_7ButtonClick
end
object ZNRButton: TToolbarButton97
Left = 104
Top = 0
Width = 27
Height = 22
Hint =
'Switch over with/without line numbers | Switches over the depict' +
'ion of charts with or without line numbers'
AllowAllUp = True
GroupIndex = 1
Glyph.Data = {
76020000424D7602000000000000760000002800000040000000100000000100
0400000000000002000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888800088888888888888888888888
8888888888888888888888888888888888888808888888888888800000000000
0000800000000000000800000000000000088880888000000008888888888888
8888888888888888888888888888888888888888088888888888888888888888
8888888888888888888888888888888888888800888888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888088888888888800000000000
0000800000000000000800000000000000088888088000000008888888888888
8888888888888888888888888888888888888088088888888888888888888888
8888888888888888888888888888888888888808088888888888888888888888
8888888888888888888888888888888888888880088888888888888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888888888888888888888888888888888888888888}
NumGlyphs = 4
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = ZNRButtonClick
end
object SchalterButton: TToolbarButton97
Left = 137
Top = 0
Width = 55
Height = 22
Hint = 'Compiler switch recognition'
Caption = '{IFDEF}'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = SchalterButtonClick
end
object DelphiButton: TToolbarButton97
Left = 198
Top = 0
Width = 55
Height = 22
Hint = 'Language setting: Delphi'
Caption = 'Delphi'
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = DelphiButtonClick
end
object ToolbarSep971: TToolbarSep97
Left = 192
Top = 0
end
object ToolbarSep972: TToolbarSep97
Left = 131
Top = 0
end
object SearchButton: TToolbarButton97
Left = 52
Top = 0
Width = 23
Height = 22
Hint = 'Search for words'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777700000777770000070F000777770F00070F000777770F
0007000000070000000700F000000F00000700F000700F00000700F000700F00
00077000000000000077770F00070F0007777700000700000777777000777000
77777770F07770F0777777700077700077777777777777777777}
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = SearchButtonClick
end
object SuchWeiterButton: TToolbarButton97
Left = 75
Top = 0
Width = 23
Height = 22
Hint = 'Continue search'
Enabled = False
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
2222222222222222422222222222222244222224242424444442222222222222
4422222222222222422222222222222222220002220002222222000222000222
2222080020800222222207002070022222220000000002222222208000802222
2222220020022222222222002002222222222222222222222222}
ParentShowHint = False
ShowBorderWhenInactive = True
ShowHint = True
OnClick = SuchWeiterButtonClick
end
object ToolbarSep973: TToolbarSep97
Left = 46
Top = 0
end
object ToolbarSep974: TToolbarSep97
Left = 98
Top = 0
end
end
end
object MainMenu1: TMainMenu
Left = 275
Top = 57
object File1: TMenuItem
Caption = '&File'
HelpContext = 103
Hint = 'Closes the active window'
object Open1: TMenuItem
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
Caption = '&Open'
HelpContext = 103
Hint = 'Opens a file'
OnClick = OpenChild
end
object Schlieen1: TMenuItem
Caption = 'C&lose'
HelpContext = 103
Hint = 'Closes the active window'
OnClick = Schlieen1Click
end
object Separator3: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = '&Exit'
HelpContext = 103
Hint = 'Finishes the program'
OnClick = Exit1Click
end
end
object Struktur1: TMenuItem
Caption = '&Structure'
GroupIndex = 1
HelpContext = 103
object Erkennen1: TMenuItem
Caption = '&Recognize...'
HelpContext = 115
Hint = 'Opens a dialog where the language settings can be changed.'
OnClick = Erkennen1Click
end
object Bildschirmdarsstellung1: TMenuItem
Caption = '&Monitor depiction'
HelpContext = 105
Hint =
'Opens a dialog for the monitor depiction of the structure charts' +
'.'
OnClick = Bildschirmdarsstellung1Click
end
object Druckoptionen1: TMenuItem
Caption = 'Print &options'
HelpContext = 103
Hint = 'Opens a dialog for setting the print options.'
OnClick = Druckoptionen1Click
end
object N1: TMenuItem
Caption = '-'
end
object Druckereinstellungen1: TMenuItem
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
2222220000000000002222077577777570222205555555555022220775777775
7022220775777775702222077577777570222207757777757022220775777775
7022220775777775702222077577777570222207757777757022220775777700
0022220555555507022222077577770022222200000000022222}
Caption = 'Printer &settings...'
HelpContext = 103
Hint = 'Opens a dialog for the printer settings.'
OnClick = Druckereinstellungen1Click
end
object Drucken1: TMenuItem
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222200000000000222208888888880802200000000000008020888888BBB88
0002088888877788080200000000000008800888888888808080200000000008
0800220FFFFFFFF080802220F00000F000022220FFFFFFFF022222220F00000F
022222220FFFFFFFF02222222000000000222222222222222222}
Caption = '&Print'
HelpContext = 103
Hint = 'Prints the structure chart of the active window.'
OnClick = Drucken1Click
end
end
object Suchen: TMenuItem
Caption = 'S&earch'
GroupIndex = 2
HelpContext = 103
Hint = 'Search for line numbers or words.'
object Zeilennummer: TMenuItem
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777700000777770000070F000777770F00070F000777770F
0007000000070000000700F000000F00000700F000700F00000700F000700F00
00077000000000000077770F00070F0007777700000700000777777000777000
77777770F07770F0777777700077700077777777777777777777}
Caption = '&Line number'
Enabled = False
HelpContext = 120
Hint = 'Search for line number.'
ShortCut = 16474
end
object Wort: TMenuItem
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777700000777770000070F000777770F00070F000777770F
0007000000070000000700F000000F00000700F000700F00000700F000700F00
00077000000000000077770F00070F0007777700000700000777777000777000
77777770F07770F0777777700077700077777777777777777777}
Caption = '&Word'
Enabled = False
HelpContext = 121
Hint = 'Search for words.'
ShortCut = 16454
end
object Weitersuchen: TMenuItem
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
2222222222222222422222222222222244222224242424444442222222222222
4422222222222222422222222222222222220002220002222222000222000222
2222080020800222222207002070022222220000000002222222208000802222
2222220020022222222222002002222222222222222222222222}
Caption = '&Continue search'
Enabled = False
HelpContext = 103
Hint = 'Continues search.'
ShortCut = 114
end
object N2: TMenuItem
Caption = '-'
end
object Suchergebnisse1: TMenuItem
Caption = 'Search &results'
Enabled = False
HelpContext = 103
Hint = 'Shows a list of search results if available'
end
object Suchergebnissedrucken1: TMenuItem
Caption = '&Print search results'
Enabled = False
HelpContext = 103
Hint = 'Prints a list of search results if available.'
end
object Listelschen1: TMenuItem
Caption = '&Delete list'
Enabled = False
HelpContext = 103
Hint = 'Deletes a list of search results.'
end
end
object Optionen: TMenuItem
Caption = '&Options'
GroupIndex = 3
object Registrierung1: TMenuItem
Caption = '&Registry'
HelpContext = 118
Hint = 'Opens a dialog to set double click actions.'
OnClick = Registrierung1Click
end
end
object Window1: TMenuItem
Caption = '&Window'
GroupIndex = 4
HelpContext = 103
object Nebeneinander1: TMenuItem
Caption = 'Tile &horizontaly'
HelpContext = 103
Hint = 'Shows all windows side by side.'
OnClick = Nebeneinander1Click
end
object Tile1: TMenuItem
Caption = 'Tile &vertical'
HelpContext = 103
Hint = 'Shows all windows one on top of the other.'
OnClick = Tile1Click
end
object Cascade1: TMenuItem
Caption = '&Cascade'
HelpContext = 103
Hint = '&Shows all windows overlapping.'
OnClick = Cascade1Click
end
object ArrangeIcons1: TMenuItem
Caption = '&Arrange Icons'
HelpContext = 103
Hint = 'Arranges all icons'
OnClick = ArrangeIcons1Click
end
end
object Hilfe1: TMenuItem
Caption = '&Help'
GroupIndex = 5
HelpContext = 103
object Inhalt1: TMenuItem
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
2222222222200022222222222005580222222220055FF780222220055FF00778
0222855FF0055077802285F00555550778028005553B55507780855555535555
070225F55555BB555002225F555553BB55022225F55535BB555022225F55BBB5
5500222225F5555500222222225F550022222222222550222222}
Caption = '&Contents'
HelpContext = 103
Hint = 'Shows the contents of the helpfile'
OnClick = Inhalt1Click
end
object ber1: TMenuItem
Caption = '&About...'
HelpContext = 103
OnClick = ber1Click
end
object Demodruck1: TMenuItem
Caption = '&Demo Printout'
HelpContext = 103
Hint = 'Makes a demonstration printout of the file provided.'
OnClick = Demodruck1Click
end
object N3: TMenuItem
Caption = '-'
end
object SCEHomepage1: TMenuItem
Caption = '&SCE Homepage...'
OnClick = SCEHomepage1Click
end
object Onlineregistration1: TMenuItem
Caption = 'Online &Registration...'
HelpContext = 123
Hint = 'Register online with your credit card.'
OnClick = Onlineregistration1Click
end
end
end
object FontDialog1: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 248
Top = 144
end
object OpenFileDialog: TOpenDialog
Filter =
'Delphi- and Pascal-files(*.pas)|*.pas|Delphi-projects(*.dpr)|*.d' +
'pr|all files(*.*)|*.*'
Left = 88
Top = 96
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 352
Top = 120
end
object MRUFileList: TMRUFileList
Maximum = 20
UseSubmenu = True
InsertSeparator = False
SubmenuName = '&Reopen'
ClearItemName = '&Clear MRU List'
RemoveObsoleteName = '&Remove Obsolete'
OnMRUItemClick = MRUFileListMRUItemClick
FileMenu = Schlieen1
AutoSaveName = '\Software\SCE'
AutoSaveKey = 'MRU Items'
MaxCaptionWidth = 300
Left = 48
Top = 88
end
end