1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296
|
object editor: Teditor
Left = 350
Top = 222
Width = 696
Height = 480
Caption = 'Editor'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poDesktopCenter
PixelsPerInch = 120
TextHeight = 16
object Splitter1: TSplitter
Left = 0
Top = 311
Width = 688
Height = 4
Cursor = crVSplit
Align = alBottom
end
object ed: TSynEdit
Left = 0
Top = 0
Width = 688
Height = 311
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Courier New'
Font.Style = []
PopupMenu = PopupMenu1
TabOrder = 0
Gutter.AutoSize = True
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Terminal'
Gutter.Font.Style = []
Gutter.ShowLineNumbers = True
Highlighter = pashighlighter
Lines.Strings = (
'Program test;'
'begin'
'end.')
Options = [eoAutoIndent, eoDragDropEditing, eoDropFiles, eoGroupUndo, eoScrollPastEol, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces]
OnDropFiles = edDropFiles
OnSpecialLineColors = edSpecialLineColors
OnStatusChange = edStatusChange
RemovedKeystrokes = <
item
Command = ecContextHelp
ShortCut = 112
end>
AddedKeystrokes = <
item
Command = ecContextHelp
ShortCut = 16496
end>
end
object messages: TListBox
Left = 0
Top = 315
Width = 688
Height = 81
Align = alBottom
ItemHeight = 16
TabOrder = 1
OnDblClick = messagesDblClick
end
object StatusBar: TStatusBar
Left = 0
Top = 396
Width = 688
Height = 19
Panels = <
item
Width = 50
end>
end
object ce: TPSScriptDebugger
CompilerOptions = []
OnCompile = ceCompile
OnExecute = ceExecute
OnAfterExecute = ceAfterExecute
Plugins = <
item
Plugin = IFPS3CE_DateUtils1
end
item
Plugin = IFPS3CE_Std1
end
item
Plugin = IFPS3CE_Controls1
end
item
Plugin = IFPS3CE_StdCtrls1
end
item
Plugin = IFPS3CE_Forms1
end
item
Plugin = IFPS3DllPlugin1
end
item
Plugin = IFPS3CE_ComObj1
end>
MainFileName = 'Unnamed'
UsePreProcessor = True
OnNeedFile = ceNeedFile
OnIdle = ceIdle
OnLineInfo = ceLineInfo
OnBreakpoint = ceBreakpoint
Left = 592
Top = 112
end
object IFPS3DllPlugin1: TPSDllPlugin
Left = 560
Top = 112
end
object pashighlighter: TSynPasSyn
Left = 592
Top = 64
end
object PopupMenu1: TPopupMenu
Left = 592
Top = 16
object BreakPointMenu: TMenuItem
Caption = '&Set/Clear Breakpoint'
ShortCut = 116
OnClick = BreakPointMenuClick
end
end
object MainMenu1: TMainMenu
Left = 592
Top = 160
object File1: TMenuItem
Caption = '&File'
object New1: TMenuItem
Caption = '&New'
ShortCut = 16462
OnClick = New1Click
end
object N3: TMenuItem
Caption = '-'
end
object Open1: TMenuItem
Caption = '&Open...'
ShortCut = 16463
OnClick = Open1Click
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 16467
OnClick = Save1Click
end
object Saveas1: TMenuItem
Caption = 'Save &as...'
OnClick = Saveas1Click
end
object N4: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = '&Exit'
OnClick = Exit1Click
end
end
object Search1: TMenuItem
Caption = '&Search'
object Find1: TMenuItem
Caption = '&Find...'
OnClick = Find1Click
end
object Replace1: TMenuItem
Caption = '&Replace...'
OnClick = Replace1Click
end
object Searchagain1: TMenuItem
Caption = '&Search again'
OnClick = Searchagain1Click
end
object N6: TMenuItem
Caption = '-'
end
object Gotolinenumber1: TMenuItem
Caption = '&Go to...'
OnClick = Gotolinenumber1Click
end
end
object Run1: TMenuItem
Caption = '&Run'
object Syntaxcheck1: TMenuItem
Caption = 'Syntax &check'
OnClick = Syntaxcheck1Click
end
object Decompile1: TMenuItem
Caption = '&Decompile...'
OnClick = Decompile1Click
end
object N5: TMenuItem
Caption = '-'
end
object StepOver1: TMenuItem
Caption = '&Step Over'
ShortCut = 119
OnClick = StepOver1Click
end
object StepInto1: TMenuItem
Caption = 'Step &Into'
ShortCut = 118
OnClick = StepInto1Click
end
object N1: TMenuItem
Caption = '-'
end
object Pause1: TMenuItem
Caption = '&Pause'
OnClick = Pause1Click
end
object Reset1: TMenuItem
Caption = 'R&eset'
ShortCut = 16497
OnClick = Reset1Click
end
object N2: TMenuItem
Caption = '-'
end
object Run2: TMenuItem
Caption = '&Run'
ShortCut = 120
OnClick = Run2Click
end
end
end
object SaveDialog1: TSaveDialog
DefaultExt = 'ROPS'
Filter = 'ROPS Files|*.ROPS'
Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Left = 200
Top = 104
end
object OpenDialog1: TOpenDialog
DefaultExt = 'ROPS'
Filter = 'ROPS Files|*.ROPS'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 168
Top = 104
end
object IFPS3CE_Controls1: TPSImport_Controls
EnableStreams = True
EnableGraphics = True
EnableControls = True
Left = 328
Top = 40
end
object IFPS3CE_DateUtils1: TPSImport_DateUtils
Left = 328
Top = 72
end
object IFPS3CE_Std1: TPSImport_Classes
EnableStreams = True
EnableClasses = True
Left = 328
Top = 104
end
object IFPS3CE_Forms1: TPSImport_Forms
EnableForms = True
EnableMenus = True
Left = 328
Top = 136
end
object IFPS3CE_StdCtrls1: TPSImport_StdCtrls
EnableExtCtrls = True
EnableButtons = True
Left = 328
Top = 168
end
object IFPS3CE_ComObj1: TPSImport_ComObj
Left = 328
Top = 200
end
object SynEditSearch: TSynEditSearch
Left = 136
Top = 216
end
object SynEditRegexSearch: TSynEditRegexSearch
Left = 168
Top = 216
end
end
|