source: GraphicTest/Forms/FormMain.lfm

Last change on this file was 573, checked in by chronos, 5 months ago
  • Modified: Build with Lazarus 3.4.
  • Modified: Removed U prefix from unit names.
File size: 20.6 KB
Line 
1object FormMain: TFormMain
2 Left = 315
3 Height = 721
4 Top = 64
5 Width = 1248
6 Caption = 'Graphic test'
7 ClientHeight = 696
8 ClientWidth = 1248
9 DesignTimePPI = 120
10 Menu = MainMenu1
11 OnClose = FormClose
12 OnCreate = FormCreate
13 OnDestroy = FormDestroy
14 OnShow = FormShow
15 LCLVersion = '2.0.0.4'
16 object PageControl1: TPageControl
17 Left = 750
18 Height = 696
19 Top = 0
20 Width = 498
21 ActivePage = TabSheet1
22 Align = alRight
23 ParentFont = False
24 TabIndex = 0
25 TabOrder = 0
26 object TabSheet1: TTabSheet
27 Caption = 'Description'
28 ClientHeight = 663
29 ClientWidth = 490
30 ParentFont = False
31 object Memo1: TMemo
32 Left = 0
33 Height = 663
34 Top = 0
35 Width = 490
36 Align = alClient
37 ParentFont = False
38 ReadOnly = True
39 ScrollBars = ssAutoBoth
40 TabOrder = 0
41 end
42 end
43 object TabSheet2: TTabSheet
44 Caption = 'Code'
45 ClientHeight = 505
46 ClientWidth = 392
47 ParentFont = False
48 inline SynMemo1: TSynMemo
49 Cursor = crIBeam
50 Left = 0
51 Height = 386
52 Top = 0
53 Width = 394
54 Align = alClient
55 Font.Height = -16
56 Font.Name = 'Courier New'
57 Font.Pitch = fpFixed
58 Font.Quality = fqNonAntialiased
59 ParentColor = False
60 ParentFont = False
61 TabOrder = 0
62 Gutter.Width = 72
63 Gutter.MouseActions = <>
64 Highlighter = SynPasSyn1
65 Keystrokes = <
66 item
67 Command = ecUp
68 ShortCut = 38
69 end
70 item
71 Command = ecSelUp
72 ShortCut = 8230
73 end
74 item
75 Command = ecScrollUp
76 ShortCut = 16422
77 end
78 item
79 Command = ecDown
80 ShortCut = 40
81 end
82 item
83 Command = ecSelDown
84 ShortCut = 8232
85 end
86 item
87 Command = ecScrollDown
88 ShortCut = 16424
89 end
90 item
91 Command = ecLeft
92 ShortCut = 37
93 end
94 item
95 Command = ecSelLeft
96 ShortCut = 8229
97 end
98 item
99 Command = ecWordLeft
100 ShortCut = 16421
101 end
102 item
103 Command = ecSelWordLeft
104 ShortCut = 24613
105 end
106 item
107 Command = ecRight
108 ShortCut = 39
109 end
110 item
111 Command = ecSelRight
112 ShortCut = 8231
113 end
114 item
115 Command = ecWordRight
116 ShortCut = 16423
117 end
118 item
119 Command = ecSelWordRight
120 ShortCut = 24615
121 end
122 item
123 Command = ecPageDown
124 ShortCut = 34
125 end
126 item
127 Command = ecSelPageDown
128 ShortCut = 8226
129 end
130 item
131 Command = ecPageBottom
132 ShortCut = 16418
133 end
134 item
135 Command = ecSelPageBottom
136 ShortCut = 24610
137 end
138 item
139 Command = ecPageUp
140 ShortCut = 33
141 end
142 item
143 Command = ecSelPageUp
144 ShortCut = 8225
145 end
146 item
147 Command = ecPageTop
148 ShortCut = 16417
149 end
150 item
151 Command = ecSelPageTop
152 ShortCut = 24609
153 end
154 item
155 Command = ecLineStart
156 ShortCut = 36
157 end
158 item
159 Command = ecSelLineStart
160 ShortCut = 8228
161 end
162 item
163 Command = ecEditorTop
164 ShortCut = 16420
165 end
166 item
167 Command = ecSelEditorTop
168 ShortCut = 24612
169 end
170 item
171 Command = ecLineEnd
172 ShortCut = 35
173 end
174 item
175 Command = ecSelLineEnd
176 ShortCut = 8227
177 end
178 item
179 Command = ecEditorBottom
180 ShortCut = 16419
181 end
182 item
183 Command = ecSelEditorBottom
184 ShortCut = 24611
185 end
186 item
187 Command = ecToggleMode
188 ShortCut = 45
189 end
190 item
191 Command = ecCopy
192 ShortCut = 16429
193 end
194 item
195 Command = ecPaste
196 ShortCut = 8237
197 end
198 item
199 Command = ecDeleteChar
200 ShortCut = 46
201 end
202 item
203 Command = ecCut
204 ShortCut = 8238
205 end
206 item
207 Command = ecDeleteLastChar
208 ShortCut = 8
209 end
210 item
211 Command = ecDeleteLastChar
212 ShortCut = 8200
213 end
214 item
215 Command = ecDeleteLastWord
216 ShortCut = 16392
217 end
218 item
219 Command = ecUndo
220 ShortCut = 32776
221 end
222 item
223 Command = ecRedo
224 ShortCut = 40968
225 end
226 item
227 Command = ecLineBreak
228 ShortCut = 13
229 end
230 item
231 Command = ecSelectAll
232 ShortCut = 16449
233 end
234 item
235 Command = ecCopy
236 ShortCut = 16451
237 end
238 item
239 Command = ecBlockIndent
240 ShortCut = 24649
241 end
242 item
243 Command = ecLineBreak
244 ShortCut = 16461
245 end
246 item
247 Command = ecInsertLine
248 ShortCut = 16462
249 end
250 item
251 Command = ecDeleteWord
252 ShortCut = 16468
253 end
254 item
255 Command = ecBlockUnindent
256 ShortCut = 24661
257 end
258 item
259 Command = ecPaste
260 ShortCut = 16470
261 end
262 item
263 Command = ecCut
264 ShortCut = 16472
265 end
266 item
267 Command = ecDeleteLine
268 ShortCut = 16473
269 end
270 item
271 Command = ecDeleteEOL
272 ShortCut = 24665
273 end
274 item
275 Command = ecUndo
276 ShortCut = 16474
277 end
278 item
279 Command = ecRedo
280 ShortCut = 24666
281 end
282 item
283 Command = ecGotoMarker0
284 ShortCut = 16432
285 end
286 item
287 Command = ecGotoMarker1
288 ShortCut = 16433
289 end
290 item
291 Command = ecGotoMarker2
292 ShortCut = 16434
293 end
294 item
295 Command = ecGotoMarker3
296 ShortCut = 16435
297 end
298 item
299 Command = ecGotoMarker4
300 ShortCut = 16436
301 end
302 item
303 Command = ecGotoMarker5
304 ShortCut = 16437
305 end
306 item
307 Command = ecGotoMarker6
308 ShortCut = 16438
309 end
310 item
311 Command = ecGotoMarker7
312 ShortCut = 16439
313 end
314 item
315 Command = ecGotoMarker8
316 ShortCut = 16440
317 end
318 item
319 Command = ecGotoMarker9
320 ShortCut = 16441
321 end
322 item
323 Command = ecSetMarker0
324 ShortCut = 24624
325 end
326 item
327 Command = ecSetMarker1
328 ShortCut = 24625
329 end
330 item
331 Command = ecSetMarker2
332 ShortCut = 24626
333 end
334 item
335 Command = ecSetMarker3
336 ShortCut = 24627
337 end
338 item
339 Command = ecSetMarker4
340 ShortCut = 24628
341 end
342 item
343 Command = ecSetMarker5
344 ShortCut = 24629
345 end
346 item
347 Command = ecSetMarker6
348 ShortCut = 24630
349 end
350 item
351 Command = ecSetMarker7
352 ShortCut = 24631
353 end
354 item
355 Command = ecSetMarker8
356 ShortCut = 24632
357 end
358 item
359 Command = ecSetMarker9
360 ShortCut = 24633
361 end
362 item
363 Command = EcFoldLevel1
364 ShortCut = 41009
365 end
366 item
367 Command = EcFoldLevel2
368 ShortCut = 41010
369 end
370 item
371 Command = EcFoldLevel1
372 ShortCut = 41011
373 end
374 item
375 Command = EcFoldLevel1
376 ShortCut = 41012
377 end
378 item
379 Command = EcFoldLevel1
380 ShortCut = 41013
381 end
382 item
383 Command = EcFoldLevel6
384 ShortCut = 41014
385 end
386 item
387 Command = EcFoldLevel7
388 ShortCut = 41015
389 end
390 item
391 Command = EcFoldLevel8
392 ShortCut = 41016
393 end
394 item
395 Command = EcFoldLevel9
396 ShortCut = 41017
397 end
398 item
399 Command = EcFoldLevel0
400 ShortCut = 41008
401 end
402 item
403 Command = EcFoldCurrent
404 ShortCut = 41005
405 end
406 item
407 Command = EcUnFoldCurrent
408 ShortCut = 41003
409 end
410 item
411 Command = EcToggleMarkupWord
412 ShortCut = 32845
413 end
414 item
415 Command = ecNormalSelect
416 ShortCut = 24654
417 end
418 item
419 Command = ecColumnSelect
420 ShortCut = 24643
421 end
422 item
423 Command = ecLineSelect
424 ShortCut = 24652
425 end
426 item
427 Command = ecTab
428 ShortCut = 9
429 end
430 item
431 Command = ecShiftTab
432 ShortCut = 8201
433 end
434 item
435 Command = ecMatchBracket
436 ShortCut = 24642
437 end
438 item
439 Command = ecColSelUp
440 ShortCut = 40998
441 end
442 item
443 Command = ecColSelDown
444 ShortCut = 41000
445 end
446 item
447 Command = ecColSelLeft
448 ShortCut = 40997
449 end
450 item
451 Command = ecColSelRight
452 ShortCut = 40999
453 end
454 item
455 Command = ecColSelPageDown
456 ShortCut = 40994
457 end
458 item
459 Command = ecColSelPageBottom
460 ShortCut = 57378
461 end
462 item
463 Command = ecColSelPageUp
464 ShortCut = 40993
465 end
466 item
467 Command = ecColSelPageTop
468 ShortCut = 57377
469 end
470 item
471 Command = ecColSelLineStart
472 ShortCut = 40996
473 end
474 item
475 Command = ecColSelLineEnd
476 ShortCut = 40995
477 end
478 item
479 Command = ecColSelEditorTop
480 ShortCut = 57380
481 end
482 item
483 Command = ecColSelEditorBottom
484 ShortCut = 57379
485 end>
486 MouseActions = <>
487 MouseTextActions = <>
488 MouseSelActions = <>
489 VisibleSpecialChars = [vscSpace, vscTabAtLast]
490 SelectedColor.BackPriority = 50
491 SelectedColor.ForePriority = 50
492 SelectedColor.FramePriority = 50
493 SelectedColor.BoldPriority = 50
494 SelectedColor.ItalicPriority = 50
495 SelectedColor.UnderlinePriority = 50
496 SelectedColor.StrikeOutPriority = 50
497 inline SynLeftGutterPartList1: TSynGutterPartList
498 object SynGutterMarks1: TSynGutterMarks
499 Width = 30
500 MouseActions = <>
501 end
502 object SynGutterLineNumber1: TSynGutterLineNumber
503 Width = 21
504 MouseActions = <>
505 MarkupInfo.Background = clBtnFace
506 MarkupInfo.Foreground = clNone
507 DigitCount = 2
508 ShowOnlyLineNumbersMultiplesOf = 1
509 ZeroStart = False
510 LeadingZeros = False
511 end
512 object SynGutterChanges1: TSynGutterChanges
513 Width = 5
514 MouseActions = <>
515 ModifiedColor = 59900
516 SavedColor = clGreen
517 end
518 object SynGutterSeparator1: TSynGutterSeparator
519 Width = 3
520 MouseActions = <>
521 MarkupInfo.Background = clWhite
522 MarkupInfo.Foreground = clGray
523 end
524 object SynGutterCodeFolding1: TSynGutterCodeFolding
525 Width = 13
526 MouseActions = <>
527 MarkupInfo.Background = clNone
528 MarkupInfo.Foreground = clGray
529 MouseActionsExpanded = <>
530 MouseActionsCollapsed = <>
531 end
532 end
533 end
534 end
535 end
536 object Panel1: TPanel
537 Left = 0
538 Height = 696
539 Top = 0
540 Width = 744
541 Align = alClient
542 BevelOuter = bvNone
543 ClientHeight = 696
544 ClientWidth = 744
545 ParentFont = False
546 TabOrder = 1
547 object ListViewMethods: TListView
548 Left = 5
549 Height = 540
550 Top = 5
551 Width = 737
552 Anchors = [akTop, akLeft, akRight, akBottom]
553 Columns = <
554 item
555 Caption = 'Method'
556 Width = 250
557 end
558 item
559 Caption = 'FPS'
560 Width = 94
561 end
562 item
563 Caption = 'Duration [ms]'
564 Width = 100
565 end
566 item
567 Caption = 'Draw FPS'
568 Width = 94
569 end
570 item
571 Caption = 'Draw duration [ms]'
572 Width = 100
573 end
574 item
575 Caption = 'Step FPS'
576 Width = 94
577 end
578 item
579 Caption = 'Step duration [ms]'
580 Width = 100
581 end>
582 OwnerData = True
583 ParentFont = False
584 PopupMenu = PopupMenuMethod
585 ReadOnly = True
586 RowSelect = True
587 TabOrder = 0
588 ViewStyle = vsReport
589 OnData = ListViewMethodsData
590 OnSelectItem = ListViewMethodsSelectItem
591 end
592 object ButtonSingleTest: TButton
593 Left = 290
594 Height = 40
595 Top = 596
596 Width = 200
597 Action = ATestOneMethod
598 Anchors = [akLeft, akBottom]
599 ParentFont = False
600 TabOrder = 1
601 end
602 object ButtonBenchmark: TButton
603 Left = 290
604 Height = 41
605 Top = 551
606 Width = 200
607 Action = ATestAllMethods
608 Anchors = [akLeft, akBottom]
609 ParentFont = False
610 TabOrder = 2
611 end
612 object FloatSpinEdit1: TFloatSpinEdit
613 Left = 190
614 Height = 28
615 Top = 617
616 Width = 72
617 Anchors = [akLeft, akBottom]
618 MinValue = 0
619 ParentFont = False
620 TabOrder = 3
621 Value = 1
622 end
623 object ButtonStop: TButton
624 Left = 390
625 Height = 41
626 Top = 639
627 Width = 94
628 Action = ATestStop
629 Anchors = [akLeft, akBottom]
630 ParentFont = False
631 TabOrder = 4
632 end
633 object Label1: TLabel
634 Left = 10
635 Height = 20
636 Top = 614
637 Width = 93
638 Anchors = [akLeft, akBottom]
639 Caption = 'Step duration:'
640 ParentColor = False
641 ParentFont = False
642 end
643 object Label2: TLabel
644 Left = 270
645 Height = 20
646 Top = 614
647 Width = 6
648 Anchors = [akLeft, akBottom]
649 Caption = 's'
650 ParentColor = False
651 ParentFont = False
652 end
653 object SpinEditWidth: TSpinEdit
654 Left = 90
655 Height = 28
656 Top = 567
657 Width = 72
658 Anchors = [akLeft, akBottom]
659 MaxValue = 1000
660 OnChange = SpinEditWidthChange
661 ParentFont = False
662 TabOrder = 5
663 Value = 320
664 end
665 object SpinEditHeight: TSpinEdit
666 Left = 190
667 Height = 28
668 Top = 567
669 Width = 72
670 Anchors = [akLeft, akBottom]
671 MaxValue = 1000
672 OnChange = SpinEditHeightChange
673 ParentFont = False
674 TabOrder = 6
675 Value = 240
676 end
677 object Label3: TLabel
678 Left = 10
679 Height = 20
680 Top = 567
681 Width = 30
682 Anchors = [akLeft, akBottom]
683 Caption = 'Size:'
684 ParentColor = False
685 ParentFont = False
686 end
687 object Label4: TLabel
688 Left = 170
689 Height = 20
690 Top = 575
691 Width = 7
692 Anchors = [akLeft, akBottom]
693 Caption = 'x'
694 ParentColor = False
695 ParentFont = False
696 end
697 object CheckBoxDoubleBuffered: TCheckBox
698 Left = 500
699 Height = 24
700 Top = 566
701 Width = 134
702 Anchors = [akLeft, akBottom]
703 Caption = 'Double buffered'
704 OnChange = CheckBoxDoubleBufferedChange
705 ParentFont = False
706 TabOrder = 7
707 end
708 object CheckBoxEraseBackground: TCheckBox
709 Left = 500
710 Height = 24
711 Top = 606
712 Width = 142
713 Anchors = [akLeft, akBottom]
714 Caption = 'Erase background'
715 OnChange = CheckBoxEraseBackgroundChange
716 ParentFont = False
717 TabOrder = 8
718 end
719 object CheckBoxOpaque: TCheckBox
720 Left = 500
721 Height = 24
722 Top = 650
723 Width = 77
724 Anchors = [akLeft, akBottom]
725 Caption = 'Opaque'
726 OnChange = CheckBoxOpaqueChange
727 ParentFont = False
728 TabOrder = 9
729 end
730 object Label5: TLabel
731 Left = 10
732 Height = 20
733 Top = 660
734 Width = 83
735 Anchors = [akLeft, akBottom]
736 Caption = 'Pixel format:'
737 ParentColor = False
738 ParentFont = False
739 end
740 object ComboBoxPixelFormat: TComboBox
741 Left = 170
742 Height = 28
743 Top = 664
744 Width = 180
745 Anchors = [akLeft, akBottom]
746 ItemHeight = 20
747 OnChange = ComboBoxPixelFormatChange
748 ParentFont = False
749 Style = csDropDownList
750 TabOrder = 10
751 end
752 end
753 object Splitter1: TSplitter
754 Left = 744
755 Height = 696
756 Top = 0
757 Width = 6
758 Align = alRight
759 ResizeAnchor = akRight
760 end
761 object SynPasSyn1: TSynPasSyn
762 Enabled = False
763 CompilerMode = pcmDelphi
764 NestedComments = False
765 left = 811
766 top = 108
767 end
768 object TimerUpdateList: TTimer
769 Interval = 500
770 OnTimer = TimerUpdateListTimer
771 left = 333
772 top = 205
773 end
774 object ActionList1: TActionList
775 left = 130
776 top = 210
777 object AExportAsWikiText: TAction
778 Caption = 'Export as Wiki text'
779 Hint = 'Export as Wiki text'
780 OnExecute = AExportAsWikiTextExecute
781 end
782 object ATestOneMethod: TAction
783 Caption = 'Test one method'
784 OnExecute = ATestOneMethodExecute
785 ShortCut = 113
786 end
787 object FileExit1: TFileExit
788 Category = 'File'
789 Caption = '&Exit'
790 Hint = 'Exit'
791 ShortCut = 32883
792 end
793 object ATestAllMethods: TAction
794 Caption = 'Test all methods'
795 Hint = 'Test all methods'
796 OnExecute = ATestAllMethodsExecute
797 ShortCut = 114
798 end
799 object ATestStop: TAction
800 Caption = 'Stop'
801 Hint = 'Stop'
802 OnExecute = ATestStopExecute
803 ShortCut = 114
804 end
805 object AFormDrawShow: TAction
806 Caption = 'Draw form'
807 OnExecute = AFormDrawShowExecute
808 end
809 end
810 object MainMenu1: TMainMenu
811 left = 200
812 top = 100
813 object MenuItem1: TMenuItem
814 Caption = 'General'
815 object MenuItem2: TMenuItem
816 Action = AExportAsWikiText
817 end
818 object MenuItem3: TMenuItem
819 Action = FileExit1
820 end
821 end
822 object MenuItemTest: TMenuItem
823 Caption = 'Test'
824 object MenuItem5: TMenuItem
825 Action = ATestOneMethod
826 end
827 object MenuItem6: TMenuItem
828 Action = ATestAllMethods
829 end
830 object MenuItem7: TMenuItem
831 Action = ATestStop
832 end
833 end
834 object MenuItem4: TMenuItem
835 Caption = 'View'
836 object MenuItem8: TMenuItem
837 Action = AFormDrawShow
838 end
839 end
840 end
841 object SaveDialog1: TSaveDialog
842 DefaultExt = '.txt'
843 left = 385
844 top = 95
845 end
846 object PopupMenuMethod: TPopupMenu
847 left = 501
848 top = 220
849 object MenuItem9: TMenuItem
850 Action = ATestOneMethod
851 end
852 object MenuItem10: TMenuItem
853 Action = ATestAllMethods
854 end
855 object MenuItem11: TMenuItem
856 Action = ATestStop
857 ShortCut = 115
858 end
859 end
860 object TimerUpdateSettings: TTimer
861 OnTimer = TimerUpdateSettingsTimer
862 left = 340
863 top = 330
864 end
865end
Note: See TracBrowser for help on using the repository browser.