source: GraphicTest/UMainForm.lfm@ 336

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