object CodeForm: TCodeForm Left = 290 Height = 300 Top = 190 Width = 400 HorzScrollBar.Page = 399 VertScrollBar.Page = 299 ActiveControl = MCode Caption = 'Generated code' ClientHeight = 300 ClientWidth = 400 object MCode: TSynMemo Cursor = crIBeam Height = 256 Width = 400 Align = alClient Font.Height = 14 Font.Name = '-adobe-courier-medium-r-normal-*-*-*-*-*-*-*-iso10646-1' ParentColor = False TabOrder = 0 BookMarkOptions.Xoffset = 17 ExtraLineSpacing = 2 Gutter.DigitCount = 3 Gutter.LeftOffset = 4 Gutter.ShowLineNumbers = True Gutter.CodeFoldingWidth = 14 Highlighter = SynFreePascalSyn1 Keystrokes = < item Command = 3 ShortCut = 38 end item Command = 103 ShortCut = 8230 end item Command = 211 ShortCut = 16422 end item Command = 4 ShortCut = 40 end item Command = 104 ShortCut = 8232 end item Command = 212 ShortCut = 16424 end item Command = 1 ShortCut = 37 end item Command = 101 ShortCut = 8229 end item Command = 5 ShortCut = 16421 end item Command = 105 ShortCut = 24613 end item Command = 2 ShortCut = 39 end item Command = 102 ShortCut = 8231 end item Command = 6 ShortCut = 16423 end item Command = 106 ShortCut = 24615 end item Command = 10 ShortCut = 34 end item Command = 110 ShortCut = 8226 end item Command = 14 ShortCut = 16418 end item Command = 114 ShortCut = 24610 end item Command = 9 ShortCut = 33 end item Command = 109 ShortCut = 8225 end item Command = 13 ShortCut = 16417 end item Command = 113 ShortCut = 24609 end item Command = 7 ShortCut = 36 end item Command = 107 ShortCut = 8228 end item Command = 15 ShortCut = 16420 end item Command = 115 ShortCut = 24612 end item Command = 8 ShortCut = 35 end item Command = 108 ShortCut = 8227 end item Command = 16 ShortCut = 16419 end item Command = 116 ShortCut = 24611 end item Command = 223 ShortCut = 45 end item Command = 201 ShortCut = 16429 end item Command = 604 ShortCut = 8237 end item Command = 502 ShortCut = 46 end item Command = 603 ShortCut = 8238 end item Command = 501 ShortCut = 8 end item Command = 501 ShortCut = 8200 end item Command = 504 ShortCut = 16392 end item Command = 601 ShortCut = 32776 end item Command = 602 ShortCut = 40968 end item Command = 509 ShortCut = 13 end item Command = 199 ShortCut = 16449 end item Command = 201 ShortCut = 16451 end item Command = 610 ShortCut = 24649 end item Command = 509 ShortCut = 16461 end item Command = 510 ShortCut = 16462 end item Command = 503 ShortCut = 16468 end item Command = 611 ShortCut = 24661 end item Command = 604 ShortCut = 16470 end item Command = 603 ShortCut = 16472 end item Command = 507 ShortCut = 16473 end item Command = 506 ShortCut = 24665 end item Command = 601 ShortCut = 16474 end item Command = 602 ShortCut = 24666 end item Command = 301 ShortCut = 16432 end item Command = 302 ShortCut = 16433 end item Command = 303 ShortCut = 16434 end item Command = 304 ShortCut = 16435 end item Command = 305 ShortCut = 16436 end item Command = 306 ShortCut = 16437 end item Command = 307 ShortCut = 16438 end item Command = 308 ShortCut = 16439 end item Command = 309 ShortCut = 16440 end item Command = 310 ShortCut = 16441 end item Command = 351 ShortCut = 24624 end item Command = 352 ShortCut = 24625 end item Command = 353 ShortCut = 24626 end item Command = 354 ShortCut = 24627 end item Command = 355 ShortCut = 24628 end item Command = 356 ShortCut = 24629 end item Command = 357 ShortCut = 24630 end item Command = 358 ShortCut = 24631 end item Command = 359 ShortCut = 24632 end item Command = 360 ShortCut = 24633 end item Command = 231 ShortCut = 24654 end item Command = 232 ShortCut = 24643 end item Command = 233 ShortCut = 24652 end item Command = 612 ShortCut = 9 end item Command = 613 ShortCut = 8201 end item Command = 250 ShortCut = 24642 end> Lines.Strings = ( '' ) end object PButtons: TPanel Height = 44 Top = 256 Width = 400 Align = alBottom ClientHeight = 44 ClientWidth = 400 TabOrder = 1 object BClose: TButton Left = 308 Height = 25 Top = 8 Width = 75 Anchors = [akTop, akRight] Caption = '&Close' ModalResult = 1 TabOrder = 0 end object BSave: TButton Left = 16 Height = 25 Top = 8 Width = 75 Caption = '&Save' OnClick = BSaveClick TabOrder = 1 end end object SynFreePascalSyn1: TSynFreePascalSyn Enabled = False NestedComments = True left = 106 top = 27 end object SDCode: TSaveDialog Title = 'Save file as' DefaultExt = '.pp' Filter = 'Pascal files|*.pp;*.pas;*.inc|All files|*.*' Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail] left = 144 top = 263 end end