object fmMain: TfmMain
Left = 558
Top = 202
Width = 865
Height = 709
Caption = 'FreeFrame Delphi Host Test Container'
Color = clTeal
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object lAPIversion: TLabel
Left = 7
Top = 629
Width = 51
Height = 13
Caption = 'APIversion'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object previewpanel: TPanel
Left = 8
Top = 8
Width = 465
Height = 201
Color = clMoneyGreen
TabOrder = 0
object lbAviStatus: TLabel
Left = 240
Top = 40
Width = 101
Height = 13
Caption = 'AviStatus: not loaded'
end
object Label7: TLabel
Left = 8
Top = 8
Width = 46
Height = 13
Caption = 'Video File'
end
object ebAVIFilename: TEdit
Left = 59
Top = 6
Width = 289
Height = 21
TabOrder = 0
OnChange = ebAVIFilenameChange
end
object bBrowse: TButton
Left = 360
Top = 5
Width = 75
Height = 25
Caption = '0 - Browse'
TabOrder = 1
OnClick = bBrowseClick
end
object GroupBox2: TGroupBox
Left = 240
Top = 64
Width = 113
Height = 87
Caption = ' VideoInfoStruct '
TabOrder = 2
object lVideoWidth: TLabel
Left = 13
Top = 16
Width = 28
Height = 13
Caption = 'Width'
end
object lVideoHeight: TLabel
Left = 13
Top = 32
Width = 31
Height = 13
Caption = 'Height'
end
object lBitDepth: TLabel
Left = 13
Top = 48
Width = 44
Height = 13
Caption = 'Bit Depth'
end
object lOrientation: TLabel
Left = 13
Top = 64
Width = 51
Height = 13
Caption = 'Orientation'
end
end
object Panel3: TPanel
Left = 16
Top = 32
Width = 209
Height = 161
Caption = 'dib panel'
TabOrder = 3
object PaintBox1: TPaintBox
Left = 8
Top = 7
Width = 192
Height = 144
end
end
end
object pnInfo: TPanel
Left = 480
Top = 8
Width = 369
Height = 665
Color = clMoneyGreen
TabOrder = 1
object lProfile: TLabel
Left = 124
Top = 488
Width = 29
Height = 13
Caption = 'Profile'
end
object Label3: TLabel
Left = 13
Top = 488
Width = 108
Height = 13
Caption = 'Plugin processing time:'
end
object lbpname: TLabel
Left = 8
Top = 616
Width = 40
Height = 13
Caption = 'lbpname'
end
object lbpvalue: TLabel
Left = 96
Top = 640
Width = 40
Height = 13
Caption = 'lbpvalue'
end
object Label2: TLabel
Left = 3
Top = 4
Width = 350
Height = 13
Caption =
'Plugins must be in a plugins subdirectory of the directory wher' +
'e this .exe is'
end
object lbTime: TLabel
Left = 200
Top = 416
Width = 115
Height = 13
Caption = 'Time Acceleration (1.00)'
end
object Label8: TLabel
Left = 223
Top = 376
Width = 113
Height = 13
Caption = '(Time Controls: Do NOT'
end
object Label9: TLabel
Left = 215
Top = 392
Width = 128
Height = 13
Caption = 'effect Video in this testbed)'
end
object cbPlugins: TComboBox
Left = 16
Top = 28
Width = 337
Height = 21
Style = csDropDownList
DropDownCount = 25
ItemHeight = 13
TabOrder = 0
OnChange = cbPluginsChange
end
object bProcessFrame: TButton
Left = 8
Top = 426
Width = 137
Height = 25
Caption = 'Step Frame Process'
TabOrder = 1
OnClick = bProcessFrameClick
end
object bPlayAndProcess: TButton
Left = 8
Top = 368
Width = 137
Height = 25
Caption = 'Play and Process'
TabOrder = 2
OnClick = bPlayAndProcessClick
end
object cbPluginProcessFrames: TCheckBox
Left = 8
Top = 349
Width = 129
Height = 17
Caption = 'Plugin Process Frames'
Checked = True
State = cbChecked
TabOrder = 3
end
object bDeInitPlugin: TButton
Left = 8
Top = 455
Width = 137
Height = 25
Caption = 'Shutdown Plugin'
TabOrder = 4
OnClick = bDeInitPluginClick
end
object bStop: TButton
Left = 8
Top = 397
Width = 139
Height = 25
Caption = 'Stop'
TabOrder = 5
OnClick = bStopClick
end
object Memo1: TMemo
Left = 16
Top = 104
Width = 337
Height = 241
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Memo1')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 6
end
object lbParams: TListBox
Left = 16
Top = 512
Width = 345
Height = 97
ItemHeight = 13
TabOrder = 7
OnClick = lbParamsClick
end
object sbParam: TScrollBar
Left = 96
Top = 616
Width = 145
Height = 16
PageSize = 0
TabOrder = 8
OnChange = sbParamChange
end
object btnReload: TButton
Left = 232
Top = 65
Width = 123
Height = 25
Caption = 'Reload Plugin'
TabOrder = 9
OnClick = btnReloadClick
end
object cbVerify: TCheckBox
Left = 256
Top = 616
Width = 97
Height = 17
Caption = 'Verify'
Checked = True
State = cbChecked
TabOrder = 10
OnClick = cbVerifyClick
end
object cbTest32Bit: TCheckBox
Left = 224
Top = 349
Width = 121
Height = 17
Caption = 'Test 32bit'
TabOrder = 11
OnClick = cbTest32BitClick
end
object sbTime: TScrollBar
Left = 200
Top = 432
Width = 161
Height = 16
Min = -100
PageSize = 0
TabOrder = 12
OnChange = sbTimeChange
end
object sbATime: TScrollBar
Left = 200
Top = 480
Width = 161
Height = 16
Max = 10000
PageSize = 0
TabOrder = 13
end
object cbATime: TCheckBox
Left = 200
Top = 456
Width = 161
Height = 17
Caption = 'Enable Abs Time (0>10 secs)'
TabOrder = 14
end
end
object Panel1: TPanel
Left = 8
Top = 216
Width = 465
Height = 177
Color = clMoneyGreen
TabOrder = 2
object Label1: TLabel
Left = 240
Top = 8
Width = 49
Height = 13
Caption = 'GL Output'
end
object cbCheckers: TCheckBox
Left = 240
Top = 32
Width = 97
Height = 17
Caption = 'Checker Board'
TabOrder = 0
OnClick = cbCheckersClick
end
object btnGrabFrame: TButton
Left = 240
Top = 64
Width = 89
Height = 25
Caption = 'Grab Frame'
TabOrder = 1
OnClick = btnGrabFrameClick
end
object Panel4: TPanel
Left = 16
Top = 8
Width = 209
Height = 161
Caption = 'Panel4'
TabOrder = 2
object glpanel: TPanel
Left = 8
Top = 7
Width = 192
Height = 144
Caption = 'opengl panel'
TabOrder = 0
end
end
object Memo2: TMemo
Left = 240
Top = 96
Width = 209
Height = 73
Lines.Strings = (
'Plugins are only rendered to the '
'frameBuffer in this testbed, most hosts '
'will probably use a FBO and mixdown '
'onto their frameBuffers.'
'This is not currently available here.')
ReadOnly = True
TabOrder = 3
end
object Memo3: TMemo
Left = 336
Top = 8
Width = 113
Height = 81
Lines.Strings = (
'GL Output renders a '
'square section from '
'the bottom left of your '
'AVI. eg. 128x128'
'or 256x256')
ReadOnly = True
TabOrder = 4
end
end
object Panel2: TPanel
Left = 8
Top = 400
Width = 465
Height = 217
Color = clMoneyGreen
TabOrder = 3
object Label4: TLabel
Left = 104
Top = 192
Width = 23
Height = 13
Caption = 'RGB'
end
object Label5: TLabel
Left = 328
Top = 192
Width = 27
Height = 13
Caption = 'Alpha'
end
object Label6: TLabel
Left = 16
Top = 8
Width = 73
Height = 13
Caption = 'Grabbed Frame'
end
object Panel5: TPanel
Left = 16
Top = 24
Width = 209
Height = 161
Caption = 'RGB Panel'
TabOrder = 0
object pbRGB: TPaintBox
Left = 8
Top = 7
Width = 192
Height = 144
end
end
object Panel6: TPanel
Left = 240
Top = 24
Width = 209
Height = 161
Caption = 'Alpha Panel'
TabOrder = 1
object pbAlpha: TPaintBox
Left = 8
Top = 7
Width = 192
Height = 144
end
end
end
object odAVI: TOpenDialog
Left = 16
Top = 96
end
object tPlay: TTimer
Enabled = False
Interval = 40
OnTimer = tPlayTimer
Left = 16
Top = 48
end
end
