Changeset 447 for GraphicTest/UMainForm.lfm
- Timestamp:
- Nov 22, 2012, 2:32:10 PM (12 years ago)
- File:
-
- 1 edited
-
GraphicTest/UMainForm.lfm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
GraphicTest/UMainForm.lfm
r446 r447 1 1 object MainForm: TMainForm 2 Left = 3363 Height = 3084 Top = 1 945 Width = 5542 Left = 165 3 Height = 411 4 Top = 117 5 Width = 846 6 6 Caption = 'Graphic test' 7 ClientHeight = 3088 ClientWidth = 5547 ClientHeight = 411 8 ClientWidth = 846 9 9 OnClose = FormClose 10 10 OnCreate = FormCreate … … 12 12 OnShow = FormShow 13 13 LCLVersion = '1.1' 14 object ListViewMethods: TListView 15 Left = 8 16 Height = 232 17 Top = 8 18 Width = 542 19 Anchors = [akTop, akLeft, akRight, akBottom] 20 Columns = < 21 item 22 Caption = 'Method' 23 Width = 200 24 end 25 item 26 Caption = 'Step draw duration [ms]' 27 Width = 80 28 end 29 item 30 Caption = 'FPS' 31 Width = 75 32 end 33 item 34 Caption = 'Total step duration [ms]' 35 Width = 80 36 end 37 item 38 Caption = 'Step FPS' 39 Width = 75 40 end> 41 OwnerData = True 42 ReadOnly = True 43 RowSelect = True 14 object PageControl1: TPageControl 15 Left = 544 16 Height = 411 17 Top = 0 18 Width = 302 19 ActivePage = TabSheet1 20 Align = alRight 21 TabIndex = 0 44 22 TabOrder = 0 45 ViewStyle = vsReport 46 OnData = ListViewMethodsData 47 OnSelectItem = ListViewMethodsSelectItem 23 object TabSheet1: TTabSheet 24 Caption = 'Description' 25 ClientHeight = 385 26 ClientWidth = 294 27 object Memo1: TMemo 28 Left = 0 29 Height = 385 30 Top = 0 31 Width = 294 32 Align = alClient 33 ReadOnly = True 34 ScrollBars = ssAutoBoth 35 TabOrder = 0 36 end 37 end 38 object TabSheet2: TTabSheet 39 Caption = 'Code' 40 ClientHeight = 385 41 ClientWidth = 294 42 inline SynMemo1: TSynMemo 43 Cursor = crIBeam 44 Left = 0 45 Height = 385 46 Top = 0 47 Width = 294 48 Align = alClient 49 Font.Height = -13 50 Font.Name = 'Courier New' 51 Font.Pitch = fpFixed 52 Font.Quality = fqNonAntialiased 53 ParentColor = False 54 ParentFont = False 55 TabOrder = 0 56 Gutter.Width = 57 57 Gutter.MouseActions = <> 58 Highlighter = SynPasSyn1 59 Keystrokes = < 60 item 61 Command = ecUp 62 ShortCut = 38 63 end 64 item 65 Command = ecSelUp 66 ShortCut = 8230 67 end 68 item 69 Command = ecScrollUp 70 ShortCut = 16422 71 end 72 item 73 Command = ecDown 74 ShortCut = 40 75 end 76 item 77 Command = ecSelDown 78 ShortCut = 8232 79 end 80 item 81 Command = ecScrollDown 82 ShortCut = 16424 83 end 84 item 85 Command = ecLeft 86 ShortCut = 37 87 end 88 item 89 Command = ecSelLeft 90 ShortCut = 8229 91 end 92 item 93 Command = ecWordLeft 94 ShortCut = 16421 95 end 96 item 97 Command = ecSelWordLeft 98 ShortCut = 24613 99 end 100 item 101 Command = ecRight 102 ShortCut = 39 103 end 104 item 105 Command = ecSelRight 106 ShortCut = 8231 107 end 108 item 109 Command = ecWordRight 110 ShortCut = 16423 111 end 112 item 113 Command = ecSelWordRight 114 ShortCut = 24615 115 end 116 item 117 Command = ecPageDown 118 ShortCut = 34 119 end 120 item 121 Command = ecSelPageDown 122 ShortCut = 8226 123 end 124 item 125 Command = ecPageBottom 126 ShortCut = 16418 127 end 128 item 129 Command = ecSelPageBottom 130 ShortCut = 24610 131 end 132 item 133 Command = ecPageUp 134 ShortCut = 33 135 end 136 item 137 Command = ecSelPageUp 138 ShortCut = 8225 139 end 140 item 141 Command = ecPageTop 142 ShortCut = 16417 143 end 144 item 145 Command = ecSelPageTop 146 ShortCut = 24609 147 end 148 item 149 Command = ecLineStart 150 ShortCut = 36 151 end 152 item 153 Command = ecSelLineStart 154 ShortCut = 8228 155 end 156 item 157 Command = ecEditorTop 158 ShortCut = 16420 159 end 160 item 161 Command = ecSelEditorTop 162 ShortCut = 24612 163 end 164 item 165 Command = ecLineEnd 166 ShortCut = 35 167 end 168 item 169 Command = ecSelLineEnd 170 ShortCut = 8227 171 end 172 item 173 Command = ecEditorBottom 174 ShortCut = 16419 175 end 176 item 177 Command = ecSelEditorBottom 178 ShortCut = 24611 179 end 180 item 181 Command = ecToggleMode 182 ShortCut = 45 183 end 184 item 185 Command = ecCopy 186 ShortCut = 16429 187 end 188 item 189 Command = ecPaste 190 ShortCut = 8237 191 end 192 item 193 Command = ecDeleteChar 194 ShortCut = 46 195 end 196 item 197 Command = ecCut 198 ShortCut = 8238 199 end 200 item 201 Command = ecDeleteLastChar 202 ShortCut = 8 203 end 204 item 205 Command = ecDeleteLastChar 206 ShortCut = 8200 207 end 208 item 209 Command = ecDeleteLastWord 210 ShortCut = 16392 211 end 212 item 213 Command = ecUndo 214 ShortCut = 32776 215 end 216 item 217 Command = ecRedo 218 ShortCut = 40968 219 end 220 item 221 Command = ecLineBreak 222 ShortCut = 13 223 end 224 item 225 Command = ecSelectAll 226 ShortCut = 16449 227 end 228 item 229 Command = ecCopy 230 ShortCut = 16451 231 end 232 item 233 Command = ecBlockIndent 234 ShortCut = 24649 235 end 236 item 237 Command = ecLineBreak 238 ShortCut = 16461 239 end 240 item 241 Command = ecInsertLine 242 ShortCut = 16462 243 end 244 item 245 Command = ecDeleteWord 246 ShortCut = 16468 247 end 248 item 249 Command = ecBlockUnindent 250 ShortCut = 24661 251 end 252 item 253 Command = ecPaste 254 ShortCut = 16470 255 end 256 item 257 Command = ecCut 258 ShortCut = 16472 259 end 260 item 261 Command = ecDeleteLine 262 ShortCut = 16473 263 end 264 item 265 Command = ecDeleteEOL 266 ShortCut = 24665 267 end 268 item 269 Command = ecUndo 270 ShortCut = 16474 271 end 272 item 273 Command = ecRedo 274 ShortCut = 24666 275 end 276 item 277 Command = ecGotoMarker0 278 ShortCut = 16432 279 end 280 item 281 Command = ecGotoMarker1 282 ShortCut = 16433 283 end 284 item 285 Command = ecGotoMarker2 286 ShortCut = 16434 287 end 288 item 289 Command = ecGotoMarker3 290 ShortCut = 16435 291 end 292 item 293 Command = ecGotoMarker4 294 ShortCut = 16436 295 end 296 item 297 Command = ecGotoMarker5 298 ShortCut = 16437 299 end 300 item 301 Command = ecGotoMarker6 302 ShortCut = 16438 303 end 304 item 305 Command = ecGotoMarker7 306 ShortCut = 16439 307 end 308 item 309 Command = ecGotoMarker8 310 ShortCut = 16440 311 end 312 item 313 Command = ecGotoMarker9 314 ShortCut = 16441 315 end 316 item 317 Command = ecSetMarker0 318 ShortCut = 24624 319 end 320 item 321 Command = ecSetMarker1 322 ShortCut = 24625 323 end 324 item 325 Command = ecSetMarker2 326 ShortCut = 24626 327 end 328 item 329 Command = ecSetMarker3 330 ShortCut = 24627 331 end 332 item 333 Command = ecSetMarker4 334 ShortCut = 24628 335 end 336 item 337 Command = ecSetMarker5 338 ShortCut = 24629 339 end 340 item 341 Command = ecSetMarker6 342 ShortCut = 24630 343 end 344 item 345 Command = ecSetMarker7 346 ShortCut = 24631 347 end 348 item 349 Command = ecSetMarker8 350 ShortCut = 24632 351 end 352 item 353 Command = ecSetMarker9 354 ShortCut = 24633 355 end 356 item 357 Command = EcFoldLevel1 358 ShortCut = 41009 359 end 360 item 361 Command = EcFoldLevel2 362 ShortCut = 41010 363 end 364 item 365 Command = EcFoldLevel1 366 ShortCut = 41011 367 end 368 item 369 Command = EcFoldLevel1 370 ShortCut = 41012 371 end 372 item 373 Command = EcFoldLevel1 374 ShortCut = 41013 375 end 376 item 377 Command = EcFoldLevel6 378 ShortCut = 41014 379 end 380 item 381 Command = EcFoldLevel7 382 ShortCut = 41015 383 end 384 item 385 Command = EcFoldLevel8 386 ShortCut = 41016 387 end 388 item 389 Command = EcFoldLevel9 390 ShortCut = 41017 391 end 392 item 393 Command = EcFoldLevel0 394 ShortCut = 41008 395 end 396 item 397 Command = EcFoldCurrent 398 ShortCut = 41005 399 end 400 item 401 Command = EcUnFoldCurrent 402 ShortCut = 41003 403 end 404 item 405 Command = EcToggleMarkupWord 406 ShortCut = 32845 407 end 408 item 409 Command = ecNormalSelect 410 ShortCut = 24654 411 end 412 item 413 Command = ecColumnSelect 414 ShortCut = 24643 415 end 416 item 417 Command = ecLineSelect 418 ShortCut = 24652 419 end 420 item 421 Command = ecTab 422 ShortCut = 9 423 end 424 item 425 Command = ecShiftTab 426 ShortCut = 8201 427 end 428 item 429 Command = ecMatchBracket 430 ShortCut = 24642 431 end 432 item 433 Command = ecColSelUp 434 ShortCut = 40998 435 end 436 item 437 Command = ecColSelDown 438 ShortCut = 41000 439 end 440 item 441 Command = ecColSelLeft 442 ShortCut = 40997 443 end 444 item 445 Command = ecColSelRight 446 ShortCut = 40999 447 end 448 item 449 Command = ecColSelPageDown 450 ShortCut = 40994 451 end 452 item 453 Command = ecColSelPageBottom 454 ShortCut = 57378 455 end 456 item 457 Command = ecColSelPageUp 458 ShortCut = 40993 459 end 460 item 461 Command = ecColSelPageTop 462 ShortCut = 57377 463 end 464 item 465 Command = ecColSelLineStart 466 ShortCut = 40996 467 end 468 item 469 Command = ecColSelLineEnd 470 ShortCut = 40995 471 end 472 item 473 Command = ecColSelEditorTop 474 ShortCut = 57380 475 end 476 item 477 Command = ecColSelEditorBottom 478 ShortCut = 57379 479 end> 480 MouseActions = <> 481 MouseSelActions = <> 482 SelectedColor.BackPriority = 50 483 SelectedColor.ForePriority = 50 484 SelectedColor.FramePriority = 50 485 SelectedColor.BoldPriority = 50 486 SelectedColor.ItalicPriority = 50 487 SelectedColor.UnderlinePriority = 50 488 inline SynLeftGutterPartList1: TSynGutterPartList 489 object SynGutterMarks1: TSynGutterMarks 490 Width = 24 491 MouseActions = <> 492 end 493 object SynGutterLineNumber1: TSynGutterLineNumber 494 Width = 17 495 MouseActions = <> 496 MarkupInfo.Background = clBtnFace 497 MarkupInfo.Foreground = clNone 498 DigitCount = 2 499 ShowOnlyLineNumbersMultiplesOf = 1 500 ZeroStart = False 501 LeadingZeros = False 502 end 503 object SynGutterChanges1: TSynGutterChanges 504 Width = 4 505 MouseActions = <> 506 ModifiedColor = 59900 507 SavedColor = clGreen 508 end 509 object SynGutterSeparator1: TSynGutterSeparator 510 Width = 2 511 MouseActions = <> 512 end 513 object SynGutterCodeFolding1: TSynGutterCodeFolding 514 MouseActions = <> 515 MarkupInfo.Background = clNone 516 MarkupInfo.Foreground = clGray 517 MouseActionsExpanded = <> 518 MouseActionsCollapsed = <> 519 end 520 end 521 end 522 end 48 523 end 49 object ButtonSingleTest: TButton 50 Left = 8 51 Height = 25 52 Top = 247 53 Width = 115 54 Anchors = [akLeft, akBottom] 55 Caption = 'Test one method' 56 OnClick = ButtonSingleTestClick 524 object Panel1: TPanel 525 Left = 0 526 Height = 411 527 Top = 0 528 Width = 539 529 Align = alClient 530 BevelOuter = bvNone 531 ClientHeight = 411 532 ClientWidth = 539 57 533 TabOrder = 1 534 object ListViewMethods: TListView 535 Left = 8 536 Height = 335 537 Top = 8 538 Width = 528 539 Anchors = [akTop, akLeft, akRight, akBottom] 540 Columns = < 541 item 542 Caption = 'Method' 543 Width = 200 544 end 545 item 546 Caption = 'Step draw duration [ms]' 547 Width = 80 548 end 549 item 550 Caption = 'FPS' 551 Width = 75 552 end 553 item 554 Caption = 'Total step duration [ms]' 555 Width = 80 556 end 557 item 558 Caption = 'Step FPS' 559 Width = 75 560 end> 561 OwnerData = True 562 ReadOnly = True 563 RowSelect = True 564 TabOrder = 0 565 ViewStyle = vsReport 566 OnData = ListViewMethodsData 567 OnSelectItem = ListViewMethodsSelectItem 568 end 569 object ButtonSingleTest: TButton 570 Left = 8 571 Height = 25 572 Top = 350 573 Width = 115 574 Anchors = [akLeft, akBottom] 575 Caption = 'Test one method' 576 OnClick = ButtonSingleTestClick 577 TabOrder = 1 578 end 579 object ButtonBenchmark: TButton 580 Left = 136 581 Height = 25 582 Top = 350 583 Width = 112 584 Anchors = [akLeft, akBottom] 585 Caption = 'Test all methods' 586 OnClick = ButtonBenchmarkClick 587 TabOrder = 2 588 end 589 object FloatSpinEdit1: TFloatSpinEdit 590 Left = 88 591 Height = 21 592 Top = 382 593 Width = 58 594 Anchors = [akLeft, akBottom] 595 Increment = 1 596 MaxValue = 100 597 MinValue = 0 598 TabOrder = 3 599 Value = 1 600 end 601 object ButtonStop: TButton 602 Left = 256 603 Height = 25 604 Top = 350 605 Width = 75 606 Anchors = [akLeft, akBottom] 607 Caption = 'Stop' 608 OnClick = ButtonStopClick 609 TabOrder = 4 610 end 611 object Label1: TLabel 612 Left = 8 613 Height = 13 614 Top = 386 615 Width = 69 616 Anchors = [akLeft, akBottom] 617 Caption = 'Step duration:' 618 ParentColor = False 619 end 620 object Label2: TLabel 621 Left = 152 622 Height = 13 623 Top = 386 624 Width = 5 625 Anchors = [akLeft, akBottom] 626 Caption = 's' 627 ParentColor = False 628 end 629 object SpinEditWidth: TSpinEdit 630 Left = 219 631 Height = 21 632 Top = 382 633 Width = 58 634 Anchors = [akLeft, akBottom] 635 MaxValue = 1000 636 OnChange = SpinEditWidthChange 637 TabOrder = 5 638 Value = 320 639 end 640 object SpinEditHeight: TSpinEdit 641 Left = 288 642 Height = 21 643 Top = 382 644 Width = 58 645 Anchors = [akLeft, akBottom] 646 MaxValue = 1000 647 OnChange = SpinEditHeightChange 648 TabOrder = 6 649 Value = 240 650 end 651 object Label3: TLabel 652 Left = 184 653 Height = 13 654 Top = 387 655 Width = 23 656 Anchors = [akLeft, akBottom] 657 Caption = 'Size:' 658 ParentColor = False 659 end 660 object Label4: TLabel 661 Left = 280 662 Height = 13 663 Top = 386 664 Width = 6 665 Anchors = [akLeft, akBottom] 666 Caption = 'x' 667 ParentColor = False 668 end 669 object CheckBoxDoubleBuffered: TCheckBox 670 Left = 408 671 Height = 17 672 Top = 350 673 Width = 98 674 Anchors = [akLeft, akBottom] 675 Caption = 'Double buffered' 676 OnChange = CheckBoxDoubleBufferedChange 677 TabOrder = 7 678 end 679 object CheckBoxEraseBackground: TCheckBox 680 Left = 408 681 Height = 17 682 Top = 367 683 Width = 106 684 Anchors = [akLeft, akBottom] 685 Caption = 'Erase background' 686 OnChange = CheckBoxEraseBackgroundChange 687 TabOrder = 8 688 end 58 689 end 59 object ButtonBenchmark: TButton 60 Left = 136 61 Height = 25 62 Top = 247 63 Width = 112 64 Anchors = [akLeft, akBottom] 65 Caption = 'Test all methods' 66 OnClick = ButtonBenchmarkClick 67 TabOrder = 2 690 object Splitter1: TSplitter 691 Left = 539 692 Height = 411 693 Top = 0 694 Width = 5 695 Align = alRight 696 ResizeAnchor = akRight 68 697 end 69 object FloatSpinEdit1: TFloatSpinEdit 70 Left = 88 71 Height = 21 72 Top = 279 73 Width = 58 74 Anchors = [akLeft, akBottom] 75 Increment = 1 76 MaxValue = 100 77 MinValue = 0 78 TabOrder = 3 79 Value = 1 80 end 81 object ButtonStop: TButton 82 Left = 256 83 Height = 25 84 Top = 247 85 Width = 75 86 Anchors = [akLeft, akBottom] 87 Caption = 'Stop' 88 OnClick = ButtonStopClick 89 TabOrder = 4 90 end 91 object Label1: TLabel 92 Left = 8 93 Height = 13 94 Top = 283 95 Width = 69 96 Anchors = [akLeft, akBottom] 97 Caption = 'Step duration:' 98 ParentColor = False 99 end 100 object Label2: TLabel 101 Left = 152 102 Height = 13 103 Top = 283 104 Width = 5 105 Anchors = [akLeft, akBottom] 106 Caption = 's' 107 ParentColor = False 108 end 109 object SpinEditWidth: TSpinEdit 110 Left = 219 111 Height = 21 112 Top = 279 113 Width = 58 114 Anchors = [akLeft, akBottom] 115 MaxValue = 1000 116 OnChange = SpinEditWidthChange 117 TabOrder = 5 118 Value = 320 119 end 120 object SpinEditHeight: TSpinEdit 121 Left = 288 122 Height = 21 123 Top = 279 124 Width = 58 125 Anchors = [akLeft, akBottom] 126 MaxValue = 1000 127 OnChange = SpinEditHeightChange 128 TabOrder = 6 129 Value = 240 130 end 131 object Label3: TLabel 132 Left = 184 133 Height = 13 134 Top = 284 135 Width = 23 136 Anchors = [akLeft, akBottom] 137 Caption = 'Size:' 138 ParentColor = False 139 end 140 object Label4: TLabel 141 Left = 280 142 Height = 13 143 Top = 283 144 Width = 6 145 Anchors = [akLeft, akBottom] 146 Caption = 'x' 147 ParentColor = False 148 end 149 object CheckBoxDoubleBuffered: TCheckBox 150 Left = 408 151 Height = 17 152 Top = 247 153 Width = 98 154 Anchors = [akLeft, akBottom] 155 Caption = 'Double buffered' 156 OnChange = CheckBoxDoubleBufferedChange 157 TabOrder = 7 158 end 159 object CheckBoxEraseBackground: TCheckBox 160 Left = 408 161 Height = 17 162 Top = 264 163 Width = 106 164 Anchors = [akLeft, akBottom] 165 Caption = 'Erase background' 166 OnChange = CheckBoxEraseBackgroundChange 167 TabOrder = 8 698 object SynPasSyn1: TSynPasSyn 699 Enabled = False 700 AsmAttri.FrameEdges = sfeAround 701 CommentAttri.FrameEdges = sfeAround 702 IDEDirectiveAttri.FrameEdges = sfeAround 703 IdentifierAttri.FrameEdges = sfeAround 704 KeyAttri.FrameEdges = sfeAround 705 NumberAttri.FrameEdges = sfeAround 706 SpaceAttri.FrameEdges = sfeAround 707 StringAttri.FrameEdges = sfeAround 708 SymbolAttri.FrameEdges = sfeAround 709 CaseLabelAttri.FrameEdges = sfeAround 710 DirectiveAttri.FrameEdges = sfeAround 711 CompilerMode = pcmDelphi 712 NestedComments = False 713 left = 649 714 top = 86 168 715 end 169 716 object TimerUpdateList: TTimer 170 717 Interval = 500 171 718 OnTimer = TimerUpdateListTimer 172 left = 2 38173 top = 1 36719 left = 266 720 top = 164 174 721 end 175 722 end
Note:
See TracChangeset
for help on using the changeset viewer.
