/components/datadict/frmgeneratedcode.lfm
Unknown | 653 lines | 653 code | 0 blank | 0 comment | 0 complexity | fe5d9c3cfd071a60d523bcd685430c00 MD5 | raw file
1object CodeForm: TCodeForm 2 Left = 350 3 Height = 300 4 Top = 194 5 Width = 400 6 ActiveControl = MCode 7 Caption = 'Generated code' 8 ClientHeight = 300 9 ClientWidth = 400 10 OnCreate = FormCreate 11 LCLVersion = '0.9.27' 12 object MCode: TSynMemo 13 Cursor = crIBeam 14 Left = 0 15 Height = 256 16 Top = 0 17 Width = 400 18 Align = alClient 19 Font.Height = 14 20 Font.Name = '-adobe-courier-medium-r-normal-*-*-*-*-*-*-*-iso10646-1' 21 Font.Pitch = fpFixed 22 Font.Quality = fqNonAntialiased 23 ParentColor = False 24 ParentFont = False 25 TabOrder = 0 26 BookMarkOptions.Xoffset = 17 27 BookMarkOptions.OnChange = nil 28 ExtraLineSpacing = 2 29 Gutter.LeftOffset = 4 30 Gutter.Width = 65 31 Gutter.MouseActions = < 32 item 33 Shift = [] 34 ShiftMask = [] 35 Button = mbLeft 36 ClickCount = ccAny 37 ClickDir = cdDown 38 Command = 13 39 MoveCaret = False 40 Option = 0 41 Priority = 0 42 end 43 item 44 Shift = [] 45 ShiftMask = [] 46 Button = mbRight 47 ClickCount = ccSingle 48 ClickDir = cdUp 49 Command = 12 50 MoveCaret = False 51 Option = 0 52 Priority = 0 53 end> 54 Highlighter = SynFreePascalSyn1 55 Keystrokes = < 56 item 57 Command = ecUp 58 ShortCut = 38 59 end 60 item 61 Command = ecSelUp 62 ShortCut = 8230 63 end 64 item 65 Command = ecScrollUp 66 ShortCut = 16422 67 end 68 item 69 Command = ecDown 70 ShortCut = 40 71 end 72 item 73 Command = ecSelDown 74 ShortCut = 8232 75 end 76 item 77 Command = ecScrollDown 78 ShortCut = 16424 79 end 80 item 81 Command = ecLeft 82 ShortCut = 37 83 end 84 item 85 Command = ecSelLeft 86 ShortCut = 8229 87 end 88 item 89 Command = ecWordLeft 90 ShortCut = 16421 91 end 92 item 93 Command = ecSelWordLeft 94 ShortCut = 24613 95 end 96 item 97 Command = ecRight 98 ShortCut = 39 99 end 100 item 101 Command = ecSelRight 102 ShortCut = 8231 103 end 104 item 105 Command = ecWordRight 106 ShortCut = 16423 107 end 108 item 109 Command = ecSelWordRight 110 ShortCut = 24615 111 end 112 item 113 Command = ecPageDown 114 ShortCut = 34 115 end 116 item 117 Command = ecSelPageDown 118 ShortCut = 8226 119 end 120 item 121 Command = ecPageBottom 122 ShortCut = 16418 123 end 124 item 125 Command = ecSelPageBottom 126 ShortCut = 24610 127 end 128 item 129 Command = ecPageUp 130 ShortCut = 33 131 end 132 item 133 Command = ecSelPageUp 134 ShortCut = 8225 135 end 136 item 137 Command = ecPageTop 138 ShortCut = 16417 139 end 140 item 141 Command = ecSelPageTop 142 ShortCut = 24609 143 end 144 item 145 Command = ecLineStart 146 ShortCut = 36 147 end 148 item 149 Command = ecSelLineStart 150 ShortCut = 8228 151 end 152 item 153 Command = ecEditorTop 154 ShortCut = 16420 155 end 156 item 157 Command = ecSelEditorTop 158 ShortCut = 24612 159 end 160 item 161 Command = ecLineEnd 162 ShortCut = 35 163 end 164 item 165 Command = ecSelLineEnd 166 ShortCut = 8227 167 end 168 item 169 Command = ecEditorBottom 170 ShortCut = 16419 171 end 172 item 173 Command = ecSelEditorBottom 174 ShortCut = 24611 175 end 176 item 177 Command = ecToggleMode 178 ShortCut = 45 179 end 180 item 181 Command = ecCopy 182 ShortCut = 16429 183 end 184 item 185 Command = ecPaste 186 ShortCut = 8237 187 end 188 item 189 Command = ecDeleteChar 190 ShortCut = 46 191 end 192 item 193 Command = ecCut 194 ShortCut = 8238 195 end 196 item 197 Command = ecDeleteLastChar 198 ShortCut = 8 199 end 200 item 201 Command = ecDeleteLastChar 202 ShortCut = 8200 203 end 204 item 205 Command = ecDeleteLastWord 206 ShortCut = 16392 207 end 208 item 209 Command = ecUndo 210 ShortCut = 32776 211 end 212 item 213 Command = ecRedo 214 ShortCut = 40968 215 end 216 item 217 Command = ecLineBreak 218 ShortCut = 13 219 end 220 item 221 Command = ecSelectAll 222 ShortCut = 16449 223 end 224 item 225 Command = ecCopy 226 ShortCut = 16451 227 end 228 item 229 Command = ecBlockIndent 230 ShortCut = 24649 231 end 232 item 233 Command = ecLineBreak 234 ShortCut = 16461 235 end 236 item 237 Command = ecInsertLine 238 ShortCut = 16462 239 end 240 item 241 Command = ecDeleteWord 242 ShortCut = 16468 243 end 244 item 245 Command = ecBlockUnindent 246 ShortCut = 24661 247 end 248 item 249 Command = ecPaste 250 ShortCut = 16470 251 end 252 item 253 Command = ecCut 254 ShortCut = 16472 255 end 256 item 257 Command = ecDeleteLine 258 ShortCut = 16473 259 end 260 item 261 Command = ecDeleteEOL 262 ShortCut = 24665 263 end 264 item 265 Command = ecUndo 266 ShortCut = 16474 267 end 268 item 269 Command = ecRedo 270 ShortCut = 24666 271 end 272 item 273 Command = ecGotoMarker0 274 ShortCut = 16432 275 end 276 item 277 Command = ecGotoMarker1 278 ShortCut = 16433 279 end 280 item 281 Command = ecGotoMarker2 282 ShortCut = 16434 283 end 284 item 285 Command = ecGotoMarker3 286 ShortCut = 16435 287 end 288 item 289 Command = ecGotoMarker4 290 ShortCut = 16436 291 end 292 item 293 Command = ecGotoMarker5 294 ShortCut = 16437 295 end 296 item 297 Command = ecGotoMarker6 298 ShortCut = 16438 299 end 300 item 301 Command = ecGotoMarker7 302 ShortCut = 16439 303 end 304 item 305 Command = ecGotoMarker8 306 ShortCut = 16440 307 end 308 item 309 Command = ecGotoMarker9 310 ShortCut = 16441 311 end 312 item 313 Command = ecSetMarker0 314 ShortCut = 24624 315 end 316 item 317 Command = ecSetMarker1 318 ShortCut = 24625 319 end 320 item 321 Command = ecSetMarker2 322 ShortCut = 24626 323 end 324 item 325 Command = ecSetMarker3 326 ShortCut = 24627 327 end 328 item 329 Command = ecSetMarker4 330 ShortCut = 24628 331 end 332 item 333 Command = ecSetMarker5 334 ShortCut = 24629 335 end 336 item 337 Command = ecSetMarker6 338 ShortCut = 24630 339 end 340 item 341 Command = ecSetMarker7 342 ShortCut = 24631 343 end 344 item 345 Command = ecSetMarker8 346 ShortCut = 24632 347 end 348 item 349 Command = ecSetMarker9 350 ShortCut = 24633 351 end 352 item 353 Command = ecNormalSelect 354 ShortCut = 24654 355 end 356 item 357 Command = ecColumnSelect 358 ShortCut = 24643 359 end 360 item 361 Command = ecLineSelect 362 ShortCut = 24652 363 end 364 item 365 Command = ecTab 366 ShortCut = 9 367 end 368 item 369 Command = ecShiftTab 370 ShortCut = 8201 371 end 372 item 373 Command = ecMatchBracket 374 ShortCut = 24642 375 end> 376 MouseActions = < 377 item 378 Shift = [] 379 ShiftMask = [ssShift, ssAlt] 380 Button = mbLeft 381 ClickCount = ccSingle 382 ClickDir = cdDown 383 Command = 1 384 MoveCaret = True 385 Option = 0 386 Priority = 0 387 end 388 item 389 Shift = [ssShift] 390 ShiftMask = [ssShift, ssAlt] 391 Button = mbLeft 392 ClickCount = ccSingle 393 ClickDir = cdDown 394 Command = 1 395 MoveCaret = True 396 Option = 1 397 Priority = 0 398 end 399 item 400 Shift = [ssAlt] 401 ShiftMask = [ssShift, ssAlt] 402 Button = mbLeft 403 ClickCount = ccSingle 404 ClickDir = cdDown 405 Command = 3 406 MoveCaret = True 407 Option = 0 408 Priority = 0 409 end 410 item 411 Shift = [ssShift, ssAlt] 412 ShiftMask = [ssShift, ssAlt] 413 Button = mbLeft 414 ClickCount = ccSingle 415 ClickDir = cdDown 416 Command = 3 417 MoveCaret = True 418 Option = 1 419 Priority = 0 420 end 421 item 422 Shift = [] 423 ShiftMask = [] 424 Button = mbRight 425 ClickCount = ccSingle 426 ClickDir = cdUp 427 Command = 12 428 MoveCaret = False 429 Option = 0 430 Priority = 0 431 end 432 item 433 Shift = [] 434 ShiftMask = [] 435 Button = mbLeft 436 ClickCount = ccDouble 437 ClickDir = cdDown 438 Command = 6 439 MoveCaret = True 440 Option = 0 441 Priority = 0 442 end 443 item 444 Shift = [] 445 ShiftMask = [] 446 Button = mbLeft 447 ClickCount = ccTriple 448 ClickDir = cdDown 449 Command = 7 450 MoveCaret = True 451 Option = 0 452 Priority = 0 453 end 454 item 455 Shift = [] 456 ShiftMask = [] 457 Button = mbLeft 458 ClickCount = ccQuad 459 ClickDir = cdDown 460 Command = 8 461 MoveCaret = True 462 Option = 0 463 Priority = 0 464 end 465 item 466 Shift = [] 467 ShiftMask = [] 468 Button = mbMiddle 469 ClickCount = ccSingle 470 ClickDir = cdDown 471 Command = 10 472 MoveCaret = True 473 Option = 0 474 Priority = 0 475 end 476 item 477 Shift = [ssCtrl] 478 ShiftMask = [ssShift, ssAlt, ssCtrl] 479 Button = mbLeft 480 ClickCount = ccSingle 481 ClickDir = cdUp 482 Command = 11 483 MoveCaret = False 484 Option = 0 485 Priority = 0 486 end> 487 MouseSelActions = < 488 item 489 Shift = [] 490 ShiftMask = [] 491 Button = mbLeft 492 ClickCount = ccSingle 493 ClickDir = cdDown 494 Command = 9 495 MoveCaret = False 496 Option = 0 497 Priority = 0 498 end> 499 Lines.Strings = ( 500 '' 501 ) 502 object TSynGutterPartList 503 object TSynGutterMarks 504 Width = 23 505 end 506 object TSynGutterLineNumber 507 Width = 21 508 MouseActions = <> 509 MarkupInfo.Background = clBtnFace 510 MarkupInfo.Foreground = clNone 511 DigitCount = 2 512 ShowOnlyLineNumbersMultiplesOf = 1 513 ZeroStart = False 514 LeadingZeros = False 515 end 516 object TSynGutterChanges 517 Width = 4 518 ModifiedColor = 59900 519 SavedColor = clGreen 520 end 521 object TSynGutterSeparator 522 Width = 2 523 end 524 object TSynGutterCodeFolding 525 MouseActions = < 526 item 527 Shift = [] 528 ShiftMask = [] 529 Button = mbRight 530 ClickCount = ccSingle 531 ClickDir = cdUp 532 Command = 16 533 MoveCaret = False 534 Option = 0 535 Priority = 0 536 end 537 item 538 Shift = [] 539 ShiftMask = [ssShift] 540 Button = mbMiddle 541 ClickCount = ccAny 542 ClickDir = cdDown 543 Command = 14 544 MoveCaret = False 545 Option = 0 546 Priority = 0 547 end 548 item 549 Shift = [ssShift] 550 ShiftMask = [ssShift] 551 Button = mbMiddle 552 ClickCount = ccAny 553 ClickDir = cdDown 554 Command = 14 555 MoveCaret = False 556 Option = 1 557 Priority = 0 558 end 559 item 560 Shift = [] 561 ShiftMask = [] 562 Button = mbLeft 563 ClickCount = ccAny 564 ClickDir = cdDown 565 Command = 0 566 MoveCaret = False 567 Option = 0 568 Priority = 0 569 end> 570 MarkupInfo.Background = clNone 571 MarkupInfo.Foreground = clGray 572 MouseActionsExpanded = < 573 item 574 Shift = [] 575 ShiftMask = [] 576 Button = mbLeft 577 ClickCount = ccAny 578 ClickDir = cdDown 579 Command = 14 580 MoveCaret = False 581 Option = 0 582 Priority = 0 583 end> 584 MouseActionsCollapsed = < 585 item 586 Shift = [ssCtrl] 587 ShiftMask = [ssCtrl] 588 Button = mbLeft 589 ClickCount = ccAny 590 ClickDir = cdDown 591 Command = 15 592 MoveCaret = False 593 Option = 0 594 Priority = 0 595 end 596 item 597 Shift = [] 598 ShiftMask = [ssCtrl] 599 Button = mbLeft 600 ClickCount = ccAny 601 ClickDir = cdDown 602 Command = 15 603 MoveCaret = False 604 Option = 1 605 Priority = 0 606 end> 607 end 608 end 609 end 610 object PButtons: TPanel 611 Left = 0 612 Height = 44 613 Top = 256 614 Width = 400 615 Align = alBottom 616 ClientHeight = 44 617 ClientWidth = 400 618 TabOrder = 1 619 object BClose: TButton 620 Left = 312 621 Height = 25 622 Top = 8 623 Width = 75 624 Anchors = [akTop, akRight] 625 Caption = '&Close' 626 ModalResult = 1 627 TabOrder = 0 628 end 629 object BSave: TButton 630 Left = 8 631 Height = 25 632 Top = 8 633 Width = 75 634 Caption = '&Save' 635 OnClick = BSaveClick 636 TabOrder = 1 637 end 638 end 639 object SynFreePascalSyn1: TSynFreePascalSyn 640 Enabled = False 641 CompilerMode = pcmObjFPC 642 NestedComments = True 643 left = 106 644 top = 27 645 end 646 object SDCode: TSaveDialog 647 DefaultExt = '.pp' 648 Filter = 'Pascal files|*.pp;*.pas;*.inc|All files|*.*' 649 Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail] 650 left = 144 651 top = 263 652 end 653end