SourceFileWinUnit.dfm 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540
  1. object SourceFileForm: TSourceFileForm
  2. Left = 56
  3. Top = 42
  4. ActiveControl = EditorToolBar
  5. AutoScroll = False
  6. Caption = 'TIGCC IDE Editor'
  7. ClientHeight = 311
  8. ClientWidth = 482
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'MS Sans Serif'
  14. Font.Style = []
  15. Menu = MainMenu
  16. OldCreateOrder = False
  17. Position = poDefault
  18. OnClose = FormClose
  19. OnCloseQuery = FormCloseQuery
  20. OnCreate = FormCreate
  21. OnShow = FormShow
  22. PixelsPerInch = 96
  23. TextHeight = 13
  24. object ToolBarBevel: TBevel
  25. Left = 0
  26. Top = 28
  27. Width = 482
  28. Height = 1
  29. Align = alTop
  30. Shape = bsSpacer
  31. end
  32. object StatusBar: TStatusBar
  33. Left = 0
  34. Top = 292
  35. Width = 482
  36. Height = 19
  37. Font.Charset = ANSI_CHARSET
  38. Font.Color = clWindowText
  39. Font.Height = -11
  40. Font.Name = 'MS Sans Serif'
  41. Font.Style = []
  42. Constraints.MaxHeight = 19
  43. Constraints.MinHeight = 19
  44. Panels = <
  45. item
  46. Alignment = taRightJustify
  47. Text = '1'
  48. Width = 30
  49. end
  50. item
  51. Alignment = taRightJustify
  52. Text = '1'
  53. Width = 30
  54. end
  55. item
  56. Bevel = pbNone
  57. Width = 1
  58. end
  59. item
  60. Text = '0 Characters'
  61. Width = 93
  62. end
  63. item
  64. Bevel = pbNone
  65. Width = 1
  66. end
  67. item
  68. Width = 200
  69. end>
  70. UseSystemFont = False
  71. end
  72. object EditorToolBar: TToolBar
  73. Left = 0
  74. Top = 0
  75. Width = 482
  76. Height = 28
  77. AutoSize = True
  78. ButtonHeight = 26
  79. ButtonWidth = 27
  80. Caption = 'Editor Toolbar'
  81. DisabledImages = MainForm.ToolBarImagesDisabled
  82. DragKind = dkDock
  83. EdgeBorders = [ebLeft, ebTop]
  84. Flat = True
  85. Images = MainForm.ToolBarImages
  86. ParentShowHint = False
  87. ShowHint = True
  88. TabOrder = 1
  89. Wrapable = False
  90. object ToolButton3: TToolButton
  91. Left = 0
  92. Top = 0
  93. Action = ActionFileSave
  94. end
  95. object ToolButton2: TToolButton
  96. Left = 27
  97. Top = 0
  98. Action = ActionFileAddToProject
  99. end
  100. object ToolButton4: TToolButton
  101. Left = 54
  102. Top = 0
  103. Width = 8
  104. Caption = 'ToolButton4'
  105. ImageIndex = 3
  106. Style = tbsSeparator
  107. end
  108. object ToolButton23: TToolButton
  109. Left = 62
  110. Top = 0
  111. Action = ActionFilePrintQuickly
  112. end
  113. object ToolButton24: TToolButton
  114. Left = 89
  115. Top = 0
  116. Width = 8
  117. Caption = 'ToolButton24'
  118. ImageIndex = 15
  119. Style = tbsSeparator
  120. end
  121. object ToolButton6: TToolButton
  122. Left = 97
  123. Top = 0
  124. Action = ActionEditDelete
  125. end
  126. object ToolButton7: TToolButton
  127. Left = 124
  128. Top = 0
  129. Action = ActionEditCut
  130. end
  131. object ToolButton8: TToolButton
  132. Left = 151
  133. Top = 0
  134. Action = ActionEditCopy
  135. end
  136. object ToolButton9: TToolButton
  137. Left = 178
  138. Top = 0
  139. Action = ActionEditPaste
  140. end
  141. object ToolButton10: TToolButton
  142. Left = 205
  143. Top = 0
  144. Width = 8
  145. Caption = 'ToolButton10'
  146. ImageIndex = 4
  147. Style = tbsSeparator
  148. end
  149. object ToolButton5: TToolButton
  150. Left = 213
  151. Top = 0
  152. Action = ActionEditUndo
  153. end
  154. object ToolButton19: TToolButton
  155. Left = 240
  156. Top = 0
  157. Action = ActionEditRedo
  158. end
  159. object ToolButton11: TToolButton
  160. Left = 267
  161. Top = 0
  162. Width = 8
  163. Caption = 'ToolButton11'
  164. ImageIndex = 4
  165. Style = tbsSeparator
  166. end
  167. object ToolButton20: TToolButton
  168. Left = 275
  169. Top = 0
  170. Action = ActionFindFind
  171. end
  172. object ToolButton21: TToolButton
  173. Left = 302
  174. Top = 0
  175. Action = ActionFindReplace
  176. end
  177. object ToolButton25: TToolButton
  178. Left = 329
  179. Top = 0
  180. Action = ActionFindFunctions
  181. DropdownMenu = FunctionPopup
  182. Style = tbsDropDown
  183. end
  184. object ToolButton22: TToolButton
  185. Left = 369
  186. Top = 0
  187. Width = 8
  188. Caption = 'ToolButton22'
  189. ImageIndex = 16
  190. Style = tbsSeparator
  191. end
  192. object ToolButton13: TToolButton
  193. Left = 377
  194. Top = 0
  195. Action = ActionFileCompile
  196. end
  197. object ToolButton1: TToolButton
  198. Left = 404
  199. Top = 0
  200. Width = 4
  201. Caption = 'ToolButton1'
  202. ImageIndex = 10
  203. Style = tbsDivider
  204. end
  205. end
  206. object Actions: TActionList
  207. Images = MainForm.ToolBarImages
  208. Left = 32
  209. Top = 32
  210. object ActionFindFind: TAction
  211. Category = 'Find'
  212. Caption = '&Find...'
  213. Hint = 'Find Text|Find the specified text in the current source file'
  214. ImageIndex = 13
  215. ShortCut = 16454
  216. OnExecute = FindFind
  217. end
  218. object ActionFindReplace: TAction
  219. Category = 'Find'
  220. Caption = '&Replace...'
  221. Hint =
  222. 'Replace Text|Find the specified text in the current source file ' +
  223. 'and replace it with something else'
  224. ImageIndex = 14
  225. ShortCut = 16466
  226. OnExecute = FindReplace
  227. end
  228. object ActionFindFunctions: TAction
  229. Category = 'Find'
  230. Caption = 'F&unctions...'
  231. Hint = 'Functions|Display a list of all functions in the current file'
  232. ImageIndex = 18
  233. OnExecute = FindFunctions
  234. end
  235. object ActionFileSave: TAction
  236. Category = 'File'
  237. Caption = '&Save'
  238. Hint = 'Save|Save the file'
  239. ImageIndex = 2
  240. OnExecute = FileSave
  241. end
  242. object ActionFileSaveAs: TAction
  243. Category = 'File'
  244. Caption = 'Save &As...'
  245. Hint = 'Save As|Save the file with another name, or in another folder'
  246. OnExecute = FileSaveAs
  247. end
  248. object ActionFindOpenFile: TAction
  249. Category = 'Find'
  250. Caption = '&Open File at Cursor'
  251. Hint = 'Open File at Cursor|Open the file the cursor is on'
  252. ShortCut = 16397
  253. OnExecute = FindOpenFile
  254. end
  255. object ActionFileCompile: TAction
  256. Category = 'File'
  257. Caption = 'C&ompile'
  258. Hint = 'Compile|Compile the file'
  259. ImageIndex = 9
  260. OnExecute = FileCompile
  261. end
  262. object ActionFileAddToProject: TAction
  263. Category = 'File'
  264. Caption = 'A&dd to Project'
  265. Hint = 'Add to Project|Add this file to the current project'
  266. ImageIndex = 8
  267. OnExecute = FileAddToProject
  268. end
  269. object ActionFilePrint: TAction
  270. Category = 'File'
  271. Caption = '&Print...'
  272. Hint = 'Print File|Print this file'
  273. ImageIndex = 3
  274. ShortCut = 16464
  275. OnExecute = FilePrint
  276. end
  277. object ActionFilePrintQuickly: TAction
  278. Category = 'File'
  279. Caption = '&Print'
  280. Hint = 'Print File|Print this file'
  281. ImageIndex = 3
  282. ShortCut = 16464
  283. OnExecute = FilePrintQuickly
  284. end
  285. object ActionFileClose: TAction
  286. Category = 'File'
  287. Caption = '&Close'
  288. Hint = 'Close|Close this window'
  289. ShortCut = 32856
  290. OnExecute = ActionFileCloseExecute
  291. end
  292. object ActionEditUndo: TAction
  293. Category = 'Edit'
  294. Caption = '&Undo'
  295. Enabled = False
  296. Hint = 'Undo|Undo the last operation in the editor'
  297. ImageIndex = 16
  298. ShortCut = 32776
  299. OnExecute = EditUndo
  300. end
  301. object ActionEditRedo: TAction
  302. Category = 'Edit'
  303. Caption = '&Redo'
  304. Enabled = False
  305. Hint = 'Redo|Redo the last undone operation in the editor'
  306. ImageIndex = 17
  307. ShortCut = 40968
  308. OnExecute = EditRedo
  309. end
  310. object ActionEditDelete: TAction
  311. Category = 'Edit'
  312. Caption = '&Clear'
  313. Enabled = False
  314. Hint = 'Clear|Delete the selected text in the editor'
  315. ImageIndex = 4
  316. OnExecute = EditDelete
  317. end
  318. object ActionEditCut: TAction
  319. Category = 'Edit'
  320. Caption = 'Cu&t'
  321. Enabled = False
  322. Hint = 'Cut|Copy the selected text into the clipboard and delete it'
  323. ImageIndex = 5
  324. OnExecute = EditCut
  325. end
  326. object ActionEditCopy: TAction
  327. Category = 'Edit'
  328. Caption = 'C&opy'
  329. Enabled = False
  330. Hint =
  331. 'Copy|Copy the selected text into the clipboard without deleting ' +
  332. 'it'
  333. ImageIndex = 6
  334. OnExecute = EditCopy
  335. end
  336. object ActionEditPaste: TAction
  337. Category = 'Edit'
  338. Caption = '&Paste'
  339. Hint = 'Paste|Paste text from the clipboard'
  340. ImageIndex = 7
  341. OnExecute = EditPaste
  342. end
  343. object ActionEditSelectAll: TAction
  344. Category = 'Edit'
  345. Caption = '&Select All'
  346. Hint = 'Select All|Select the whole text in the editor'
  347. ShortCut = 16449
  348. OnExecute = EditSelectAll
  349. end
  350. object ActionEditIncreaseIndent: TAction
  351. Category = 'Edit'
  352. Caption = '&Increase Indent'
  353. Hint =
  354. 'Increase Indent|Insert tabs so that the text is moved to the rig' +
  355. 'ht'
  356. ImageIndex = 19
  357. ShortCut = 16457
  358. OnExecute = EditIncreaseIndent
  359. end
  360. object ActionEditDecreaseIndent: TAction
  361. Category = 'Edit'
  362. Caption = '&Decrease Indent'
  363. Hint =
  364. 'Decrease Indent|Remove tabs and spaces so that the text is moved' +
  365. ' to the left'
  366. ImageIndex = 20
  367. ShortCut = 16452
  368. OnExecute = EditDecreaseIndent
  369. end
  370. end
  371. object MainMenu: TMainMenu
  372. Images = MainForm.ToolBarImages
  373. Top = 32
  374. object File1: TMenuItem
  375. Caption = '&File'
  376. Hint =
  377. 'File|Contains operations for creating, opening, and saving files' +
  378. '.'
  379. object Save1: TMenuItem
  380. Action = ActionFileSave
  381. end
  382. object SaveAs1: TMenuItem
  383. Action = ActionFileSaveAs
  384. end
  385. object N1: TMenuItem
  386. Caption = '-'
  387. end
  388. object AddtoProject1: TMenuItem
  389. Action = ActionFileAddToProject
  390. end
  391. object N6: TMenuItem
  392. Caption = '-'
  393. end
  394. object Compile1: TMenuItem
  395. Action = ActionFileCompile
  396. end
  397. object N3: TMenuItem
  398. Caption = '-'
  399. end
  400. object Print1: TMenuItem
  401. Action = ActionFilePrint
  402. end
  403. object N4: TMenuItem
  404. Caption = '-'
  405. end
  406. object Close1: TMenuItem
  407. Action = ActionFileClose
  408. ShortCut = 16499
  409. end
  410. end
  411. object Edit1: TMenuItem
  412. Caption = '&Edit'
  413. Hint = 'Edit|Contains operations to edit the current file.'
  414. object Undo1: TMenuItem
  415. Action = ActionEditUndo
  416. end
  417. object Redo1: TMenuItem
  418. Action = ActionEditRedo
  419. end
  420. object N2: TMenuItem
  421. Caption = '-'
  422. end
  423. object Delete1: TMenuItem
  424. Action = ActionEditDelete
  425. end
  426. object Cut1: TMenuItem
  427. Action = ActionEditCut
  428. end
  429. object Copy1: TMenuItem
  430. Action = ActionEditCopy
  431. end
  432. object Paste1: TMenuItem
  433. Action = ActionEditPaste
  434. end
  435. object N9: TMenuItem
  436. Caption = '-'
  437. end
  438. object SelectAll1: TMenuItem
  439. Action = ActionEditSelectAll
  440. end
  441. object N18: TMenuItem
  442. Caption = '-'
  443. end
  444. object IncreaseIndent1: TMenuItem
  445. Action = ActionEditIncreaseIndent
  446. end
  447. object DecreaseIndent1: TMenuItem
  448. Action = ActionEditDecreaseIndent
  449. end
  450. end
  451. object Find1: TMenuItem
  452. Caption = 'F&ind'
  453. Hint = '&Find|Contains operations to find code you are looking for.'
  454. object Find2: TMenuItem
  455. Action = ActionFindFind
  456. end
  457. object Replace1: TMenuItem
  458. Action = ActionFindReplace
  459. end
  460. object N13: TMenuItem
  461. Caption = '-'
  462. end
  463. object Functions1: TMenuItem
  464. Action = ActionFindFunctions
  465. end
  466. object N15: TMenuItem
  467. Caption = '-'
  468. end
  469. object OpenFileAtCursor1: TMenuItem
  470. Action = ActionFindOpenFile
  471. end
  472. end
  473. end
  474. object EditorPopup: TPopupMenu
  475. Top = 64
  476. object OpenFileatCursor2: TMenuItem
  477. Action = ActionFindOpenFile
  478. end
  479. object N5: TMenuItem
  480. Caption = '-'
  481. end
  482. object Undo2: TMenuItem
  483. Action = ActionEditUndo
  484. end
  485. object Redo2: TMenuItem
  486. Action = ActionEditRedo
  487. end
  488. object N16: TMenuItem
  489. Caption = '-'
  490. end
  491. object Clear1: TMenuItem
  492. Action = ActionEditDelete
  493. end
  494. object Cut2: TMenuItem
  495. Action = ActionEditCut
  496. end
  497. object Copy2: TMenuItem
  498. Action = ActionEditCopy
  499. end
  500. object Paste2: TMenuItem
  501. Action = ActionEditPaste
  502. end
  503. object N17: TMenuItem
  504. Caption = '-'
  505. end
  506. object SelectAll2: TMenuItem
  507. Action = ActionEditSelectAll
  508. end
  509. object N20: TMenuItem
  510. Caption = '-'
  511. end
  512. object IncreaseIndent2: TMenuItem
  513. Action = ActionEditIncreaseIndent
  514. end
  515. object DecreaseIndent2: TMenuItem
  516. Action = ActionEditDecreaseIndent
  517. end
  518. end
  519. object FindDlg: TFindDialog
  520. OnClose = FindDlgClose
  521. OnFind = FindDlgFind
  522. Left = 64
  523. Top = 32
  524. end
  525. object ReplaceDlg: TReplaceDialog
  526. OnClose = FindDlgClose
  527. OnFind = FindDlgFind
  528. OnReplace = ReplaceDlgReplace
  529. Left = 64
  530. Top = 64
  531. end
  532. object FunctionPopup: TPopupMenu
  533. OnPopup = FunctionPopupPopup
  534. Top = 96
  535. object NoFunctionsItem: TMenuItem
  536. Caption = '(No Functions)'
  537. Enabled = False
  538. end
  539. end
  540. end