object MainForm: TMainForm Left = 561 Height = 577 Top = 310 Width = 998 Caption = 'Graphic test' ClientHeight = 548 ClientWidth = 998 Menu = MainMenu1 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '1.5' object PageControl1: TPageControl Left = 600 Height = 548 Top = 0 Width = 398 ActivePage = TabSheet1 Align = alRight TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Description' ClientHeight = 505 ClientWidth = 392 object Memo1: TMemo Left = 0 Height = 505 Top = 0 Width = 392 Align = alClient ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 0 end end object TabSheet2: TTabSheet Caption = 'Code' ClientHeight = 505 ClientWidth = 392 inline SynMemo1: TSynMemo Cursor = crIBeam Left = 0 Height = 386 Top = 0 Width = 394 Align = alClient Font.Height = -13 Font.Name = 'Courier New' Font.Pitch = fpFixed Font.Quality = fqNonAntialiased ParentColor = False ParentFont = False TabOrder = 0 Gutter.Width = 57 Gutter.MouseActions = <> Highlighter = SynPasSyn1 Keystrokes = < item Command = ecUp ShortCut = 38 end item Command = ecSelUp ShortCut = 8230 end item Command = ecScrollUp ShortCut = 16422 end item Command = ecDown ShortCut = 40 end item Command = ecSelDown ShortCut = 8232 end item Command = ecScrollDown ShortCut = 16424 end item Command = ecLeft ShortCut = 37 end item Command = ecSelLeft ShortCut = 8229 end item Command = ecWordLeft ShortCut = 16421 end item Command = ecSelWordLeft ShortCut = 24613 end item Command = ecRight ShortCut = 39 end item Command = ecSelRight ShortCut = 8231 end item Command = ecWordRight ShortCut = 16423 end item Command = ecSelWordRight ShortCut = 24615 end item Command = ecPageDown ShortCut = 34 end item Command = ecSelPageDown ShortCut = 8226 end item Command = ecPageBottom ShortCut = 16418 end item Command = ecSelPageBottom ShortCut = 24610 end item Command = ecPageUp ShortCut = 33 end item Command = ecSelPageUp ShortCut = 8225 end item Command = ecPageTop ShortCut = 16417 end item Command = ecSelPageTop ShortCut = 24609 end item Command = ecLineStart ShortCut = 36 end item Command = ecSelLineStart ShortCut = 8228 end item Command = ecEditorTop ShortCut = 16420 end item Command = ecSelEditorTop ShortCut = 24612 end item Command = ecLineEnd ShortCut = 35 end item Command = ecSelLineEnd ShortCut = 8227 end item Command = ecEditorBottom ShortCut = 16419 end item Command = ecSelEditorBottom ShortCut = 24611 end item Command = ecToggleMode ShortCut = 45 end item Command = ecCopy ShortCut = 16429 end item Command = ecPaste ShortCut = 8237 end item Command = ecDeleteChar ShortCut = 46 end item Command = ecCut ShortCut = 8238 end item Command = ecDeleteLastChar ShortCut = 8 end item Command = ecDeleteLastChar ShortCut = 8200 end item Command = ecDeleteLastWord ShortCut = 16392 end item Command = ecUndo ShortCut = 32776 end item Command = ecRedo ShortCut = 40968 end item Command = ecLineBreak ShortCut = 13 end item Command = ecSelectAll ShortCut = 16449 end item Command = ecCopy ShortCut = 16451 end item Command = ecBlockIndent ShortCut = 24649 end item Command = ecLineBreak ShortCut = 16461 end item Command = ecInsertLine ShortCut = 16462 end item Command = ecDeleteWord ShortCut = 16468 end item Command = ecBlockUnindent ShortCut = 24661 end item Command = ecPaste ShortCut = 16470 end item Command = ecCut ShortCut = 16472 end item Command = ecDeleteLine ShortCut = 16473 end item Command = ecDeleteEOL ShortCut = 24665 end item Command = ecUndo ShortCut = 16474 end item Command = ecRedo ShortCut = 24666 end item Command = ecGotoMarker0 ShortCut = 16432 end item Command = ecGotoMarker1 ShortCut = 16433 end item Command = ecGotoMarker2 ShortCut = 16434 end item Command = ecGotoMarker3 ShortCut = 16435 end item Command = ecGotoMarker4 ShortCut = 16436 end item Command = ecGotoMarker5 ShortCut = 16437 end item Command = ecGotoMarker6 ShortCut = 16438 end item Command = ecGotoMarker7 ShortCut = 16439 end item Command = ecGotoMarker8 ShortCut = 16440 end item Command = ecGotoMarker9 ShortCut = 16441 end item Command = ecSetMarker0 ShortCut = 24624 end item Command = ecSetMarker1 ShortCut = 24625 end item Command = ecSetMarker2 ShortCut = 24626 end item Command = ecSetMarker3 ShortCut = 24627 end item Command = ecSetMarker4 ShortCut = 24628 end item Command = ecSetMarker5 ShortCut = 24629 end item Command = ecSetMarker6 ShortCut = 24630 end item Command = ecSetMarker7 ShortCut = 24631 end item Command = ecSetMarker8 ShortCut = 24632 end item Command = ecSetMarker9 ShortCut = 24633 end item Command = EcFoldLevel1 ShortCut = 41009 end item Command = EcFoldLevel2 ShortCut = 41010 end item Command = EcFoldLevel1 ShortCut = 41011 end item Command = EcFoldLevel1 ShortCut = 41012 end item Command = EcFoldLevel1 ShortCut = 41013 end item Command = EcFoldLevel6 ShortCut = 41014 end item Command = EcFoldLevel7 ShortCut = 41015 end item Command = EcFoldLevel8 ShortCut = 41016 end item Command = EcFoldLevel9 ShortCut = 41017 end item Command = EcFoldLevel0 ShortCut = 41008 end item Command = EcFoldCurrent ShortCut = 41005 end item Command = EcUnFoldCurrent ShortCut = 41003 end item Command = EcToggleMarkupWord ShortCut = 32845 end item Command = ecNormalSelect ShortCut = 24654 end item Command = ecColumnSelect ShortCut = 24643 end item Command = ecLineSelect ShortCut = 24652 end item Command = ecTab ShortCut = 9 end item Command = ecShiftTab ShortCut = 8201 end item Command = ecMatchBracket ShortCut = 24642 end item Command = ecColSelUp ShortCut = 40998 end item Command = ecColSelDown ShortCut = 41000 end item Command = ecColSelLeft ShortCut = 40997 end item Command = ecColSelRight ShortCut = 40999 end item Command = ecColSelPageDown ShortCut = 40994 end item Command = ecColSelPageBottom ShortCut = 57378 end item Command = ecColSelPageUp ShortCut = 40993 end item Command = ecColSelPageTop ShortCut = 57377 end item Command = ecColSelLineStart ShortCut = 40996 end item Command = ecColSelLineEnd ShortCut = 40995 end item Command = ecColSelEditorTop ShortCut = 57380 end item Command = ecColSelEditorBottom ShortCut = 57379 end> MouseActions = <> MouseTextActions = <> MouseSelActions = <> VisibleSpecialChars = [vscSpace, vscTabAtLast] SelectedColor.BackPriority = 50 SelectedColor.ForePriority = 50 SelectedColor.FramePriority = 50 SelectedColor.BoldPriority = 50 SelectedColor.ItalicPriority = 50 SelectedColor.UnderlinePriority = 50 SelectedColor.StrikeOutPriority = 50 inline SynLeftGutterPartList1: TSynGutterPartList object SynGutterMarks1: TSynGutterMarks Width = 24 MouseActions = <> end object SynGutterLineNumber1: TSynGutterLineNumber Width = 17 MouseActions = <> MarkupInfo.Background = clBtnFace MarkupInfo.Foreground = clNone DigitCount = 2 ShowOnlyLineNumbersMultiplesOf = 1 ZeroStart = False LeadingZeros = False end object SynGutterChanges1: TSynGutterChanges Width = 4 MouseActions = <> ModifiedColor = 59900 SavedColor = clGreen end object SynGutterSeparator1: TSynGutterSeparator Width = 2 MouseActions = <> MarkupInfo.Background = clWhite MarkupInfo.Foreground = clGray end object SynGutterCodeFolding1: TSynGutterCodeFolding MouseActions = <> MarkupInfo.Background = clNone MarkupInfo.Foreground = clGray MouseActionsExpanded = <> MouseActionsCollapsed = <> end end end end end object Panel1: TPanel Left = 0 Height = 548 Top = 0 Width = 595 Align = alClient BevelOuter = bvNone ClientHeight = 548 ClientWidth = 595 TabOrder = 1 object ListViewMethods: TListView Left = 4 Height = 423 Top = 4 Width = 589 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Method' Width = 200 end item Caption = 'FPS' Width = 75 end item Caption = 'Duration [ms]' Width = 80 end item Caption = 'Draw FPS' Width = 75 end item Caption = 'Draw duration [ms]' Width = 80 end item Caption = 'Step FPS' Width = 75 end item Caption = 'Step duration [ms]' Width = 80 end> OwnerData = True PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListViewMethodsData OnSelectItem = ListViewMethodsSelectItem end object ButtonSingleTest: TButton Left = 232 Height = 32 Top = 468 Width = 160 Action = ATestOneMethod Anchors = [akLeft, akBottom] TabOrder = 1 end object ButtonBenchmark: TButton Left = 232 Height = 33 Top = 432 Width = 160 Action = ATestAllMethods Anchors = [akLeft, akBottom] TabOrder = 2 end object FloatSpinEdit1: TFloatSpinEdit Left = 152 Height = 35 Top = 472 Width = 58 Anchors = [akLeft, akBottom] Increment = 1 MaxValue = 100 MinValue = 0 TabOrder = 3 Value = 1 end object ButtonStop: TButton Left = 312 Height = 33 Top = 502 Width = 75 Action = ATestStop Anchors = [akLeft, akBottom] TabOrder = 4 end object Label1: TLabel Left = 8 Height = 25 Top = 473 Width = 131 Anchors = [akLeft, akBottom] Caption = 'Step duration:' ParentColor = False end object Label2: TLabel Left = 216 Height = 25 Top = 473 Width = 9 Anchors = [akLeft, akBottom] Caption = 's' ParentColor = False end object SpinEditWidth: TSpinEdit Left = 72 Height = 35 Top = 432 Width = 58 Anchors = [akLeft, akBottom] MaxValue = 1000 OnChange = SpinEditWidthChange TabOrder = 5 Value = 320 end object SpinEditHeight: TSpinEdit Left = 152 Height = 35 Top = 432 Width = 58 Anchors = [akLeft, akBottom] MaxValue = 1000 OnChange = SpinEditHeightChange TabOrder = 6 Value = 240 end object Label3: TLabel Left = 8 Height = 25 Top = 436 Width = 42 Anchors = [akLeft, akBottom] Caption = 'Size:' ParentColor = False end object Label4: TLabel Left = 136 Height = 25 Top = 442 Width = 10 Anchors = [akLeft, akBottom] Caption = 'x' ParentColor = False end object CheckBoxDoubleBuffered: TCheckBox Left = 400 Height = 27 Top = 436 Width = 174 Anchors = [akLeft, akBottom] Caption = 'Double buffered' OnChange = CheckBoxDoubleBufferedChange TabOrder = 7 end object CheckBoxEraseBackground: TCheckBox Left = 400 Height = 27 Top = 468 Width = 188 Anchors = [akLeft, akBottom] Caption = 'Erase background' OnChange = CheckBoxEraseBackgroundChange TabOrder = 8 end object CheckBoxOpaque: TCheckBox Left = 400 Height = 27 Top = 503 Width = 96 Anchors = [akLeft, akBottom] Caption = 'Opaque' OnChange = CheckBoxOpaqueChange TabOrder = 9 end object Label5: TLabel Left = 8 Height = 25 Top = 510 Width = 118 Anchors = [akLeft, akBottom] Caption = 'Pixel format:' ParentColor = False end object ComboBoxPixelFormat: TComboBox Left = 136 Height = 37 Top = 508 Width = 144 Anchors = [akLeft, akBottom] ItemHeight = 0 OnChange = ComboBoxPixelFormatChange Style = csDropDownList TabOrder = 10 end end object Splitter1: TSplitter Left = 595 Height = 548 Top = 0 Width = 5 Align = alRight ResizeAnchor = akRight end object SynPasSyn1: TSynPasSyn Enabled = False CompilerMode = pcmDelphi NestedComments = False left = 649 top = 86 end object TimerUpdateList: TTimer Interval = 500 OnTimer = TimerUpdateListTimer left = 266 top = 164 end object ActionList1: TActionList left = 104 top = 168 object AExportAsWikiText: TAction Caption = 'Export as Wiki text' Hint = 'Export as Wiki text' OnExecute = AExportAsWikiTextExecute end object ATestOneMethod: TAction Caption = 'Test one method' OnExecute = ATestOneMethodExecute ShortCut = 113 end object FileExit1: TFileExit Category = 'File' Caption = '&Exit' Hint = 'Exit' ShortCut = 32883 end object ATestStop: TAction Caption = 'Stop' Hint = 'Stop' OnExecute = ATestStopExecute ShortCut = 114 end object ATestAllMethods: TAction Caption = 'Test all methods' Hint = 'Test all methods' OnExecute = ATestAllMethodsExecute ShortCut = 114 end object AShowDrawForm: TAction Caption = 'Draw form' OnExecute = AShowDrawFormExecute end end object MainMenu1: TMainMenu left = 160 top = 80 object MenuItem1: TMenuItem Caption = 'General' object MenuItem2: TMenuItem Action = AExportAsWikiText end object MenuItem3: TMenuItem Action = FileExit1 end end object MenuItemTest: TMenuItem Caption = 'Test' object MenuItem5: TMenuItem Action = ATestOneMethod end object MenuItem6: TMenuItem Action = ATestAllMethods end object MenuItem7: TMenuItem Action = ATestStop end end object MenuItem4: TMenuItem Caption = 'View' object MenuItem8: TMenuItem Action = AShowDrawForm end end end object SaveDialog1: TSaveDialog DefaultExt = '.txt' left = 308 top = 76 end object PopupMenu1: TPopupMenu left = 401 top = 176 object MenuItem9: TMenuItem Action = ATestOneMethod end object MenuItem10: TMenuItem Action = ATestAllMethods end object MenuItem11: TMenuItem Action = ATestStop end end object TimerUpdateSettings: TTimer OnTimer = TimerUpdateSettingsTimer left = 272 top = 264 end end