1object FormMessagesComposer: TFormMessagesComposer 2 AnchorSideLeft.Side = asrBottom 3 Left = 658 4 Height = 539 5 Top = 123 6 Width = 580 7 ActiveControl = KindMessageComboBox 8 BorderIcons = [biSystemMenu] 9 Caption = 'Messages Composer' 10 ClientHeight = 539 11 ClientWidth = 580 12 OnCreate = MessagesInitExecute 13 OnShow = FormShow 14 Position = poScreenCenter 15 LCLVersion = '2.1.0.0' 16 object CaptionLabel: TLabel 17 AnchorSideLeft.Control = KindMessageComboBox 18 AnchorSideTop.Control = KindMessageComboBox 19 AnchorSideTop.Side = asrBottom 20 Left = 8 21 Height = 15 22 Top = 64 23 Width = 70 24 BorderSpacing.Top = 16 25 Caption = 'CaptionLabel' 26 ParentColor = False 27 end 28 object MsgLabel: TLabel 29 AnchorSideLeft.Control = CaptionEdit 30 AnchorSideTop.Control = CaptionEdit 31 AnchorSideTop.Side = asrBottom 32 Left = 8 33 Height = 15 34 Top = 117 35 Width = 51 36 BorderSpacing.Top = 12 37 Caption = 'MsgLabel' 38 ParentColor = False 39 end 40 object DlgTypeLabel: TLabel 41 AnchorSideLeft.Control = DlgTypeComboBox 42 AnchorSideTop.Control = CaptionLabel 43 Left = 152 44 Height = 15 45 Top = 64 46 Width = 42 47 Caption = 'DlgType' 48 ParentColor = False 49 end 50 object HelpContextLabel: TLabel 51 AnchorSideLeft.Control = MsgMemo 52 AnchorSideTop.Side = asrBottom 53 AnchorSideBottom.Control = HelpContextSpinEdit 54 Left = 8 55 Height = 15 56 Top = 281 57 Width = 70 58 Anchors = [akLeft, akBottom] 59 Caption = 'Help Context' 60 ParentColor = False 61 end 62 object HelpKeyWordLabel: TLabel 63 AnchorSideLeft.Control = YLabel 64 AnchorSideTop.Control = HelpContextLabel 65 AnchorSideTop.Side = asrCenter 66 AnchorSideRight.Side = asrBottom 67 Left = 101 68 Height = 15 69 Top = 281 70 Width = 76 71 Caption = 'Help KeyWord' 72 ParentColor = False 73 end 74 object XLabel: TLabel 75 AnchorSideLeft.Control = MsgMemo 76 AnchorSideTop.Control = XSpinEdit 77 AnchorSideTop.Side = asrCenter 78 Left = 8 79 Height = 15 80 Top = 241 81 Width = 7 82 Caption = 'X' 83 ParentColor = False 84 end 85 object YLabel: TLabel 86 AnchorSideLeft.Control = XSpinEdit 87 AnchorSideLeft.Side = asrBottom 88 AnchorSideTop.Control = YSpinEdit 89 AnchorSideTop.Side = asrCenter 90 Left = 101 91 Height = 15 92 Top = 241 93 Width = 7 94 BorderSpacing.Left = 16 95 Caption = 'Y' 96 ParentColor = False 97 end 98 object HelpFileNameLabel: TLabel 99 AnchorSideLeft.Control = MsgMemo 100 AnchorSideTop.Side = asrBottom 101 AnchorSideBottom.Control = HelpFileNameEdit 102 Left = 8 103 Height = 15 104 Top = 328 105 Width = 78 106 Anchors = [akLeft, akBottom] 107 BorderSpacing.Top = 6 108 Caption = 'Help FileName' 109 ParentColor = False 110 end 111 object PromptLabel: TLabel 112 AnchorSideLeft.Control = MsgMemo 113 AnchorSideTop.Control = Bevel2 114 AnchorSideTop.Side = asrBottom 115 AnchorSideBottom.Control = PromptEdit 116 Left = 8 117 Height = 15 118 Top = 394 119 Width = 68 120 Anchors = [akLeft, akBottom] 121 Caption = 'PromptLabel' 122 ParentColor = False 123 end 124 object ValueLabel: TLabel 125 AnchorSideLeft.Control = PromptEdit 126 AnchorSideTop.Control = PromptEdit 127 AnchorSideTop.Side = asrBottom 128 AnchorSideBottom.Control = ValueEdit 129 Left = 8 130 Height = 15 131 Top = 447 132 Width = 55 133 Anchors = [akLeft, akBottom] 134 BorderSpacing.Top = 12 135 Caption = 'Value (var)' 136 ParentColor = False 137 end 138 object DefaultValue: TLabel 139 AnchorSideLeft.Control = DefaultEdit 140 AnchorSideTop.Control = ValueLabel 141 Left = 152 142 Height = 15 143 Top = 447 144 Width = 38 145 Caption = 'Default' 146 ParentColor = False 147 end 148 object PositionBevel: TBevel 149 AnchorSideLeft.Control = MsgMemo 150 AnchorSideTop.Side = asrBottom 151 AnchorSideRight.Control = MsgMemo 152 AnchorSideRight.Side = asrBottom 153 AnchorSideBottom.Control = XSpinEdit 154 Left = 8 155 Height = 9 156 Top = 222 157 Width = 273 158 Anchors = [akLeft, akRight, akBottom] 159 Shape = bsTopLine 160 end 161 object Bevel2: TBevel 162 AnchorSideLeft.Control = MsgMemo 163 AnchorSideTop.Side = asrBottom 164 AnchorSideRight.Control = MsgMemo 165 AnchorSideRight.Side = asrBottom 166 AnchorSideBottom.Control = PromptLabel 167 Left = 8 168 Height = 9 169 Top = 385 170 Width = 273 171 Anchors = [akLeft, akRight, akBottom] 172 BorderSpacing.Top = 16 173 Shape = bsTopLine 174 end 175 object HelpCtxBevel: TBevel 176 AnchorSideLeft.Control = MsgMemo 177 AnchorSideTop.Side = asrBottom 178 AnchorSideRight.Control = MsgMemo 179 AnchorSideRight.Side = asrBottom 180 AnchorSideBottom.Control = HelpContextLabel 181 Left = 8 182 Height = 9 183 Top = 272 184 Width = 273 185 Anchors = [akLeft, akRight, akBottom] 186 Shape = bsTopLine 187 end 188 object KindMessageLabel: TLabel 189 AnchorSideLeft.Control = Owner 190 AnchorSideTop.Control = Owner 191 Left = 8 192 Height = 15 193 Top = 6 194 Width = 98 195 BorderSpacing.Left = 8 196 BorderSpacing.Top = 6 197 BorderSpacing.Right = 6 198 Caption = 'KindMessageLabel' 199 ParentColor = False 200 end 201 object CaptionEdit: TEdit 202 AnchorSideLeft.Control = CaptionLabel 203 AnchorSideTop.Control = CaptionLabel 204 AnchorSideTop.Side = asrBottom 205 AnchorSideRight.Control = HCenterBevel1 206 Left = 8 207 Height = 23 208 Top = 82 209 Width = 128 210 Anchors = [akTop, akLeft, akRight] 211 BorderSpacing.Top = 3 212 TabOrder = 0 213 Text = 'CaptionEdit' 214 end 215 object DlgTypeComboBox: TComboBox 216 AnchorSideLeft.Control = HCenterBevel1 217 AnchorSideLeft.Side = asrBottom 218 AnchorSideTop.Control = CaptionEdit 219 AnchorSideRight.Control = HCenterBevel 220 Left = 152 221 Height = 23 222 Top = 82 223 Width = 129 224 Anchors = [akTop, akLeft, akRight] 225 DropDownCount = 24 226 ItemHeight = 15 227 ItemIndex = 0 228 Items.Strings = ( 229 'mtWarning' 230 'mtError' 231 'mtInformation' 232 'mtConfirmation' 233 'mtCustom' 234 ) 235 Style = csDropDownList 236 TabOrder = 1 237 Text = 'mtWarning' 238 end 239 object HelpContextSpinEdit: TSpinEdit 240 AnchorSideLeft.Control = HelpContextLabel 241 AnchorSideTop.Side = asrBottom 242 AnchorSideRight.Control = XSpinEdit 243 AnchorSideRight.Side = asrBottom 244 AnchorSideBottom.Control = HelpFileNameLabel 245 Left = 8 246 Height = 23 247 Top = 299 248 Width = 77 249 Anchors = [akLeft, akRight, akBottom] 250 BorderSpacing.Top = 3 251 MaxValue = 9999 252 TabOrder = 2 253 end 254 object HelpKeyWordEdit: TEdit 255 AnchorSideLeft.Control = HelpKeyWordLabel 256 AnchorSideTop.Control = HelpContextSpinEdit 257 AnchorSideRight.Control = MsgMemo 258 AnchorSideRight.Side = asrBottom 259 Left = 101 260 Height = 23 261 Top = 299 262 Width = 180 263 Anchors = [akTop, akLeft, akRight] 264 TabOrder = 3 265 Text = 'HelpKeyWordEdit' 266 end 267 object XSpinEdit: TSpinEdit 268 AnchorSideLeft.Control = XLabel 269 AnchorSideLeft.Side = asrBottom 270 AnchorSideTop.Control = PositionBevel 271 AnchorSideTop.Side = asrBottom 272 AnchorSideBottom.Control = HelpCtxBevel 273 Left = 19 274 Height = 23 275 Top = 237 276 Width = 66 277 Anchors = [akLeft, akBottom] 278 BorderSpacing.Left = 4 279 BorderSpacing.Top = 6 280 BorderSpacing.Bottom = 12 281 TabOrder = 4 282 end 283 object YSpinEdit: TSpinEdit 284 AnchorSideLeft.Control = YLabel 285 AnchorSideLeft.Side = asrBottom 286 AnchorSideTop.Control = XSpinEdit 287 AnchorSideTop.Side = asrCenter 288 Left = 112 289 Height = 23 290 Top = 237 291 Width = 66 292 BorderSpacing.Left = 4 293 TabOrder = 5 294 end 295 object HelpFileNameEdit: TFileNameEdit 296 AnchorSideLeft.Control = MsgMemo 297 AnchorSideTop.Side = asrBottom 298 AnchorSideRight.Control = MsgMemo 299 AnchorSideRight.Side = asrBottom 300 AnchorSideBottom.Control = Bevel2 301 Left = 8 302 Height = 23 303 Top = 346 304 Width = 273 305 DialogOptions = [] 306 FilterIndex = 0 307 HideDirectories = False 308 ButtonWidth = 23 309 NumGlyphs = 1 310 Anchors = [akLeft, akRight, akBottom] 311 BorderSpacing.Top = 3 312 MaxLength = 0 313 TabOrder = 6 314 end 315 object PromptEdit: TEdit 316 AnchorSideLeft.Control = PromptLabel 317 AnchorSideTop.Side = asrBottom 318 AnchorSideRight.Control = MaskInputCheckBox 319 AnchorSideBottom.Control = ValueLabel 320 Left = 8 321 Height = 23 322 Top = 412 323 Width = 181 324 Anchors = [akLeft, akRight, akBottom] 325 BorderSpacing.Top = 3 326 TabOrder = 7 327 Text = 'PromptEdit' 328 end 329 object MaskInputCheckBox: TCheckBox 330 AnchorSideTop.Control = PromptEdit 331 AnchorSideTop.Side = asrCenter 332 AnchorSideRight.Control = MsgMemo 333 AnchorSideRight.Side = asrBottom 334 Left = 205 335 Height = 19 336 Top = 414 337 Width = 76 338 Anchors = [akTop, akRight] 339 BorderSpacing.Left = 16 340 Caption = 'MaskInput' 341 TabOrder = 8 342 end 343 object ValueEdit: TEdit 344 AnchorSideLeft.Control = ValueLabel 345 AnchorSideTop.Side = asrBottom 346 AnchorSideRight.Control = HCenterBevel1 347 AnchorSideBottom.Control = ButtonPanel 348 Left = 8 349 Height = 23 350 Top = 465 351 Width = 128 352 Anchors = [akLeft, akRight, akBottom] 353 BorderSpacing.Top = 3 354 TabOrder = 9 355 Text = 'ValueEdit' 356 end 357 object DefaultEdit: TEdit 358 AnchorSideLeft.Control = HCenterBevel1 359 AnchorSideLeft.Side = asrBottom 360 AnchorSideTop.Control = ValueEdit 361 AnchorSideRight.Control = MsgMemo 362 AnchorSideRight.Side = asrBottom 363 Left = 152 364 Height = 23 365 Top = 465 366 Width = 129 367 Anchors = [akTop, akLeft, akRight] 368 TabOrder = 10 369 Text = 'DefaultEdit' 370 end 371 object SourceWrapperGroupBox: TGroupBox 372 AnchorSideLeft.Control = ButtonsNotebook 373 AnchorSideTop.Control = ButtonsNotebook 374 AnchorSideTop.Side = asrBottom 375 AnchorSideRight.Control = ButtonsNotebook 376 AnchorSideRight.Side = asrBottom 377 AnchorSideBottom.Control = DefaultEdit 378 AnchorSideBottom.Side = asrBottom 379 Left = 300 380 Height = 243 381 Top = 245 382 Width = 272 383 Anchors = [akTop, akLeft, akRight, akBottom] 384 BorderSpacing.Top = 16 385 Caption = 'SourceWrapperGroupBox' 386 ClientHeight = 223 387 ClientWidth = 268 388 TabOrder = 12 389 object IfThenRadioButton: TRadioButton 390 AnchorSideLeft.Control = SourceWrapperGroupBox 391 Left = 8 392 Height = 19 393 Top = 8 394 Width = 69 395 BorderSpacing.Left = 8 396 Caption = 'if...then...' 397 Checked = True 398 OnClick = SetIfOrCaseExecute 399 TabOrder = 0 400 TabStop = True 401 end 402 object IfThenElseRadioButton: TRadioButton 403 AnchorSideLeft.Control = IfThenRadioButton 404 AnchorSideTop.Control = IfThenRadioButton 405 AnchorSideTop.Side = asrBottom 406 Left = 8 407 Height = 19 408 Top = 29 409 Width = 101 410 BorderSpacing.Top = 2 411 Caption = 'if...then...else ...' 412 OnClick = SetIfOrCaseExecute 413 TabOrder = 1 414 end 415 object CaseOfEndRadioButton: TRadioButton 416 AnchorSideLeft.Control = IfThenElseRadioButton 417 AnchorSideLeft.Side = asrBottom 418 AnchorSideTop.Control = IfThenRadioButton 419 Left = 125 420 Height = 19 421 Top = 10 422 Width = 107 423 BorderSpacing.Left = 16 424 BorderSpacing.Top = 2 425 Caption = 'case ... of ... end;' 426 OnClick = SetIfOrCaseExecute 427 TabOrder = 2 428 end 429 object CaseOfEndElseRadioButton: TRadioButton 430 AnchorSideLeft.Control = CaseOfEndRadioButton 431 AnchorSideTop.Control = CaseOfEndRadioButton 432 AnchorSideTop.Side = asrBottom 433 Left = 125 434 Height = 19 435 Top = 31 436 Width = 116 437 BorderSpacing.Top = 2 438 Caption = 'case ... of ... else ...' 439 OnClick = SetIfOrCaseExecute 440 TabOrder = 3 441 end 442 object BeginEndCheckBox: TCheckBox 443 AnchorSideLeft.Control = IfThenRadioButton 444 AnchorSideTop.Control = IfThenElseRadioButton 445 AnchorSideTop.Side = asrBottom 446 Left = 8 447 Height = 19 448 Top = 54 449 Width = 85 450 BorderSpacing.Top = 6 451 Caption = 'begin ... end' 452 TabOrder = 4 453 end 454 object SourceNotebook: TNotebook 455 AnchorSideLeft.Control = SourceWrapperGroupBox 456 AnchorSideTop.Control = BeginEndCheckBox 457 AnchorSideTop.Side = asrBottom 458 AnchorSideRight.Control = SourceWrapperGroupBox 459 AnchorSideRight.Side = asrBottom 460 Left = 8 461 Height = 142 462 Top = 81 463 Width = 252 464 PageIndex = 0 465 Align = alBottom 466 Anchors = [akTop, akLeft, akRight, akBottom] 467 BorderSpacing.Left = 8 468 BorderSpacing.Top = 8 469 BorderSpacing.Right = 8 470 TabOrder = 5 471 TabStop = True 472 object PageIf: TPage 473 object Label1: TLabel 474 AnchorSideLeft.Control = PageIf 475 AnchorSideTop.Control = PageIf 476 Left = 0 477 Height = 15 478 Top = 0 479 Width = 58 480 Caption = '"if" RESULT' 481 ParentColor = False 482 end 483 object IfResultComboBox: TComboBox 484 AnchorSideLeft.Control = PageIf 485 AnchorSideTop.Control = Label1 486 AnchorSideTop.Side = asrBottom 487 AnchorSideRight.Control = PageIf 488 AnchorSideRight.Side = asrBottom 489 Left = 0 490 Height = 23 491 Top = 18 492 Width = 252 493 Anchors = [akTop, akLeft, akRight] 494 BorderSpacing.Top = 3 495 DropDownCount = 24 496 ItemHeight = 15 497 ItemIndex = 0 498 Items.Strings = ( 499 'mbOK' 500 'mbCancel' 501 ) 502 Style = csDropDownList 503 TabOrder = 0 504 Text = 'mbOK' 505 end 506 end 507 object PageCase: TPage 508 object CaseResultCheckGroup: TCheckGroup 509 AnchorSideLeft.Control = PageCase 510 AnchorSideTop.Control = PageCase 511 AnchorSideRight.Control = PageCase 512 AnchorSideRight.Side = asrBottom 513 Left = 0 514 Height = 51 515 Top = 0 516 Width = 271 517 Anchors = [akTop, akLeft, akRight] 518 AutoFill = True 519 AutoSize = True 520 Caption = '"case" RESULT' 521 ChildSizing.LeftRightSpacing = 16 522 ChildSizing.TopBottomSpacing = 6 523 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 524 ChildSizing.EnlargeVertical = crsHomogenousChildResize 525 ChildSizing.ShrinkHorizontal = crsScaleChilds 526 ChildSizing.ShrinkVertical = crsScaleChilds 527 ChildSizing.Layout = cclLeftToRightThenTopToBottom 528 ChildSizing.ControlsPerLine = 3 529 ClientHeight = 51 530 ClientWidth = 271 531 Columns = 3 532 Items.Strings = ( 533 'mbOK' 534 'mbCancel' 535 ) 536 TabOrder = 0 537 Data = { 538 020000000302 539 } 540 end 541 end 542 object PageString: TPage 543 object StringResultLabel: TLabel 544 AnchorSideLeft.Control = PageString 545 AnchorSideTop.Control = PageString 546 Left = 0 547 Height = 15 548 Top = 8 549 Width = 72 550 BorderSpacing.Top = 8 551 Caption = 'String RESULT' 552 ParentColor = False 553 end 554 object StringResultEdit: TEdit 555 AnchorSideLeft.Control = PageString 556 AnchorSideTop.Control = StringResultLabel 557 AnchorSideTop.Side = asrBottom 558 AnchorSideRight.Control = PageString 559 AnchorSideRight.Side = asrBottom 560 Left = 0 561 Height = 23 562 Top = 26 563 Width = 252 564 Anchors = [akTop, akLeft, akRight] 565 BorderSpacing.Top = 3 566 TabOrder = 0 567 Text = 'StringResultEdit' 568 end 569 end 570 end 571 end 572 object KindMessageComboBox: TComboBox 573 AnchorSideLeft.Control = KindMessageLabel 574 AnchorSideTop.Control = KindMessageLabel 575 AnchorSideTop.Side = asrBottom 576 AnchorSideRight.Control = Owner 577 AnchorSideRight.Side = asrBottom 578 Left = 8 579 Height = 23 580 Top = 25 581 Width = 564 582 Anchors = [akTop, akLeft, akRight] 583 BorderSpacing.Top = 4 584 BorderSpacing.Right = 8 585 DropDownCount = 24 586 ItemHeight = 15 587 Items.Strings = ( 588 '{Filled @runtime}' 589 ) 590 OnChange = MessageSetupExecute 591 Style = csDropDownList 592 TabOrder = 14 593 end 594 object MsgMemo: TMemo 595 AnchorSideLeft.Control = MsgLabel 596 AnchorSideTop.Control = MsgLabel 597 AnchorSideTop.Side = asrBottom 598 AnchorSideRight.Control = HCenterBevel 599 AnchorSideBottom.Control = PositionBevel 600 Left = 8 601 Height = 75 602 Top = 135 603 Width = 273 604 Anchors = [akTop, akLeft, akRight, akBottom] 605 BorderSpacing.Top = 3 606 BorderSpacing.Bottom = 12 607 Lines.Strings = ( 608 'MsgLabel' 609 ) 610 OnChange = GetParamsFmtExecute 611 OnEditingDone = GetParamsFmtExecute 612 ScrollBars = ssAutoVertical 613 TabOrder = 11 614 WordWrap = False 615 end 616 object ButtonsNotebook: TNotebook 617 AnchorSideLeft.Control = HCenterBevel 618 AnchorSideLeft.Side = asrBottom 619 AnchorSideTop.Control = CaptionLabel 620 AnchorSideRight.Control = KindMessageComboBox 621 AnchorSideRight.Side = asrBottom 622 AnchorSideBottom.Side = asrBottom 623 Left = 300 624 Height = 165 625 Top = 64 626 Width = 272 627 PageIndex = 0 628 Anchors = [akTop, akLeft, akRight] 629 TabOrder = 13 630 TabStop = True 631 object Page1: TPage 632 object ButtonsCheckGroup: TCheckGroup 633 AnchorSideLeft.Side = asrBottom 634 Left = 0 635 Height = 165 636 Top = 0 637 Width = 272 638 Align = alClient 639 AutoFill = True 640 Caption = 'BUTTONS (TMsgDlgButtons)' 641 ChildSizing.LeftRightSpacing = 16 642 ChildSizing.TopBottomSpacing = 6 643 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 644 ChildSizing.EnlargeVertical = crsHomogenousChildResize 645 ChildSizing.ShrinkHorizontal = crsScaleChilds 646 ChildSizing.ShrinkVertical = crsScaleChilds 647 ChildSizing.Layout = cclLeftToRightThenTopToBottom 648 ChildSizing.ControlsPerLine = 2 649 ClientHeight = 145 650 ClientWidth = 268 651 Columns = 2 652 Items.Strings = ( 653 'mbYes' 654 'mbNo' 655 'mbOK' 656 'mbCancel' 657 'mbAbort' 658 'mbRetry' 659 'mbIgnore' 660 'mbAll' 661 'mbNoToAll' 662 'mbYesToAll' 663 'mbHelp' 664 'mbClose' 665 ) 666 OnItemClick = ButtonsCheckGroupItemClick 667 TabOrder = 0 668 Data = { 669 0C000000020203030202020202020202 670 } 671 end 672 end 673 object Page2: TPage 674 object ButtonsPanel: TPanel 675 Left = 0 676 Height = 173 677 Top = 0 678 Width = 296 679 Align = alClient 680 ClientHeight = 173 681 ClientWidth = 296 682 TabOrder = 0 683 object ButtonsStringGrid: TStringGrid 684 Left = 1 685 Height = 134 686 Top = 1 687 Width = 294 688 Align = alClient 689 AutoFillColumns = True 690 ColCount = 2 691 FixedCols = 0 692 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll] 693 RowCount = 4 694 TabOrder = 0 695 OnPickListSelect = UpdateQuestioDlgResultExecute 696 OnSelectEditor = ButtonsStringGridSelectEditor 697 ColWidths = ( 698 147 699 147 700 ) 701 Cells = ( 702 8 703 0 704 0 705 'BUTTONS (array of const)' 706 0 707 1 708 'Yes' 709 0 710 2 711 'No' 712 0 713 3 714 'Cancel' 715 1 716 0 717 'Modal Result' 718 1 719 1 720 'mrYes' 721 1 722 2 723 'mrNo' 724 1 725 3 726 'mrCancel' 727 ) 728 end 729 object Panel2: TPanel 730 Left = 1 731 Height = 37 732 Top = 135 733 Width = 294 734 Align = alBottom 735 BevelInner = bvLowered 736 BevelOuter = bvSpace 737 ClientHeight = 37 738 ClientWidth = 294 739 TabOrder = 1 740 object BitBtn1: TBitBtn 741 AnchorSideLeft.Control = Panel2 742 AnchorSideRight.Control = HCenterBevel2 743 Left = 2 744 Height = 33 745 Top = 2 746 Width = 143 747 Action = AddConst 748 Align = alLeft 749 Anchors = [akTop, akLeft, akRight, akBottom] 750 AutoSize = True 751 TabOrder = 0 752 end 753 object BitBtn2: TBitBtn 754 AnchorSideLeft.Control = HCenterBevel2 755 AnchorSideLeft.Side = asrBottom 756 AnchorSideRight.Control = Panel2 757 Left = 149 758 Height = 33 759 Top = 2 760 Width = 143 761 Action = DelConst 762 Align = alRight 763 Anchors = [akTop, akLeft, akRight, akBottom] 764 AutoSize = True 765 TabOrder = 1 766 end 767 object HCenterBevel2: TBevel 768 AnchorSideLeft.Control = Panel2 769 AnchorSideLeft.Side = asrCenter 770 Left = 145 771 Height = 34 772 Top = 1 773 Width = 4 774 Shape = bsSpacer 775 end 776 end 777 end 778 end 779 end 780 object ButtonPanel: TPanel 781 AnchorSideLeft.Control = Owner 782 AnchorSideTop.Control = ValueEdit 783 AnchorSideTop.Side = asrBottom 784 AnchorSideRight.Control = Owner 785 AnchorSideRight.Side = asrBottom 786 AnchorSideBottom.Control = Owner 787 AnchorSideBottom.Side = asrBottom 788 Left = 0 789 Height = 43 790 Top = 496 791 Width = 580 792 Anchors = [akLeft, akRight, akBottom] 793 AutoSize = True 794 BorderSpacing.Top = 8 795 BevelOuter = bvNone 796 ClientHeight = 43 797 ClientWidth = 580 798 TabOrder = 15 799 object TestButton: TButton 800 AnchorSideLeft.Control = ButtonPanel 801 AnchorSideTop.Control = CancelButton 802 AnchorSideBottom.Control = CancelButton 803 AnchorSideBottom.Side = asrBottom 804 Left = 8 805 Height = 26 806 Top = 9 807 Width = 55 808 Action = Test 809 Anchors = [akTop, akLeft, akBottom] 810 AutoSize = True 811 BorderSpacing.Left = 8 812 BorderSpacing.InnerBorder = 4 813 TabOrder = 0 814 end 815 object OkButton: TBitBtn 816 AnchorSideTop.Control = CancelButton 817 AnchorSideRight.Control = CancelButton 818 Left = 420 819 Height = 26 820 Top = 9 821 Width = 62 822 Anchors = [akTop, akRight] 823 AutoSize = True 824 BorderSpacing.Right = 8 825 Caption = '&OK' 826 Kind = bkOK 827 ModalResult = 1 828 TabOrder = 1 829 end 830 object CancelButton: TBitBtn 831 AnchorSideLeft.Control = OkButton 832 AnchorSideLeft.Side = asrBottom 833 AnchorSideTop.Control = PositionBevel1 834 AnchorSideTop.Side = asrBottom 835 AnchorSideRight.Control = ButtonPanel 836 AnchorSideRight.Side = asrBottom 837 Left = 490 838 Height = 26 839 Top = 9 840 Width = 82 841 Anchors = [akTop, akRight] 842 AutoSize = True 843 BorderSpacing.Right = 8 844 BorderSpacing.Bottom = 8 845 Cancel = True 846 Caption = 'Cancel' 847 Kind = bkCancel 848 ModalResult = 2 849 TabOrder = 2 850 end 851 object PositionBevel1: TBevel 852 AnchorSideLeft.Control = ButtonPanel 853 AnchorSideTop.Control = ButtonPanel 854 AnchorSideRight.Control = ButtonPanel 855 AnchorSideRight.Side = asrBottom 856 Left = 4 857 Height = 9 858 Top = 0 859 Width = 572 860 Anchors = [akTop, akLeft, akRight] 861 BorderSpacing.Left = 4 862 BorderSpacing.Right = 4 863 Shape = bsTopLine 864 end 865 end 866 object HCenterBevel: TBevel 867 AnchorSideLeft.Control = Owner 868 AnchorSideLeft.Side = asrCenter 869 Left = 281 870 Height = 50 871 Top = 7 872 Width = 19 873 Shape = bsSpacer 874 end 875 object HCenterBevel1: TBevel 876 AnchorSideLeft.Control = MsgMemo 877 AnchorSideLeft.Side = asrCenter 878 Left = 136 879 Height = 41 880 Top = 478 881 Width = 16 882 Shape = bsSpacer 883 end 884 object ActionList1: TActionList 885 left = 504 886 top = 376 887 object AddConst: TAction 888 Caption = 'AddConst' 889 OnExecute = AddConstExecute 890 end 891 object DelConst: TAction 892 Caption = 'DelConst' 893 OnExecute = DelConstExecute 894 end 895 object MessageSetup: TAction 896 Caption = 'MessageSetup' 897 OnExecute = MessageSetupExecute 898 end 899 object MessagesInit: TAction 900 Caption = 'MessagesInit' 901 OnExecute = MessagesInitExecute 902 end 903 object Test: TAction 904 Caption = 'Test' 905 OnExecute = TestExecute 906 end 907 object GetMessageForSource: TAction 908 Caption = 'GetMessageForSource' 909 OnExecute = GetMessageForSourceExecute 910 end 911 object GetParamsFmt: TAction 912 Caption = 'GetParamsFmt' 913 OnExecute = GetParamsFmtExecute 914 end 915 object SetIfOrCase: TAction 916 Caption = 'SetIfOrCase' 917 OnExecute = SetIfOrCaseExecute 918 end 919 object UpdateQuestioDlgResult: TAction 920 Caption = 'UpdateQuestioDlgResult' 921 OnExecute = UpdateQuestioDlgResultExecute 922 end 923 end 924end 925