object MainForm: TMainForm Left = 187 Height = 421 Top = 68 Width = 735 Caption = 'Graphic test' ClientHeight = 421 ClientWidth = 735 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '0.9.31' object PageControl1: TPageControl Left = 384 Height = 401 Top = 16 Width = 348 ActivePage = TabSheet1 Anchors = [akTop, akRight, akBottom] TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'TImage' ClientHeight = 375 ClientWidth = 340 object Image1: TImage Left = 6 Height = 307 Top = 7 Width = 330 Anchors = [akTop, akLeft, akRight, akBottom] end end object TabSheet2: TTabSheet Caption = 'TPaintBox' ClientHeight = 346 ClientWidth = 361 object PaintBox1: TPaintBox Left = 6 Height = 279 Top = 7 Width = 350 Anchors = [akTop, akLeft, akRight, akBottom] end end object TabSheet3: TTabSheet Caption = 'OpenGL' end end object ListViewMethods: TListView Left = 8 Height = 345 Top = 8 Width = 368 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Method' Width = 200 end item Caption = 'Duration [ms]' Width = 80 end item Caption = 'FPS' Width = 75 end item Caption = 'Step duration [ms]' Width = 80 end item Caption = 'Step FPS' Width = 75 end> OwnerData = True ReadOnly = True RowSelect = True TabOrder = 1 ViewStyle = vsReport OnData = ListViewMethodsData OnSelectItem = ListViewMethodsSelectItem end object ButtonSingleTest: TButton Left = 8 Height = 25 Top = 360 Width = 115 Anchors = [akLeft, akBottom] Caption = 'Test one method' OnClick = ButtonSingleTestClick TabOrder = 2 end object ButtonBenchmark: TButton Left = 136 Height = 25 Top = 360 Width = 112 Anchors = [akLeft, akBottom] Caption = 'Test all methods' OnClick = ButtonBenchmarkClick TabOrder = 3 end object FloatSpinEdit1: TFloatSpinEdit Left = 88 Height = 21 Top = 392 Width = 58 Anchors = [akLeft, akBottom] Increment = 1 MaxValue = 100 MinValue = 0 TabOrder = 4 Value = 1 end object ButtonStop: TButton Left = 256 Height = 25 Top = 360 Width = 75 Anchors = [akLeft, akBottom] Caption = 'Stop' OnClick = ButtonStopClick TabOrder = 5 end object Label1: TLabel Left = 8 Height = 14 Top = 395 Width = 70 Anchors = [akLeft, akBottom] Caption = 'Step duration:' ParentColor = False end object Label2: TLabel Left = 152 Height = 14 Top = 395 Width = 6 Anchors = [akLeft, akBottom] Caption = 's' ParentColor = False end object Timer1: TTimer Interval = 500 OnTimer = Timer1Timer left = 238 top = 136 end end