You've already forked lazarus-ccr
added blend file to create test frames improve TFileCache.GetData speed, fixed bug (function result) git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2283 8e941d3f-bd1b-0410-a28a-d453659cc2b4
90 lines
1.8 KiB
Plaintext
90 lines
1.8 KiB
Plaintext
object Form1: TForm1
|
|
Left = 342
|
|
Height = 555
|
|
Top = 135
|
|
Width = 569
|
|
Caption = 'Form1'
|
|
ClientHeight = 535
|
|
ClientWidth = 569
|
|
Menu = MainMenu1
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
LCLVersion = '0.9.31'
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Height = 535
|
|
Top = 0
|
|
Width = 362
|
|
ActivePage = ImageTabSheet
|
|
Align = alClient
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
object ImageTabSheet: TTabSheet
|
|
Caption = 'TImage'
|
|
ClientHeight = 509
|
|
ClientWidth = 354
|
|
object Image1: TImage
|
|
Left = 0
|
|
Height = 509
|
|
Top = 0
|
|
Width = 354
|
|
Align = alClient
|
|
end
|
|
end
|
|
end
|
|
object ListView1: TListView
|
|
Left = 367
|
|
Height = 535
|
|
Top = 0
|
|
Width = 202
|
|
Align = alRight
|
|
Columns = <
|
|
item
|
|
Caption = 'Method'
|
|
Width = 100
|
|
end
|
|
item
|
|
Caption = 'FPS'
|
|
Width = 100
|
|
end>
|
|
TabOrder = 1
|
|
ViewStyle = vsReport
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 362
|
|
Height = 535
|
|
Top = 0
|
|
Width = 5
|
|
Align = alRight
|
|
ResizeAnchor = akRight
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
left = 447
|
|
top = 88
|
|
object MenuItem1: TMenuItem
|
|
Caption = 'Cache'
|
|
object MenuItem9: TMenuItem
|
|
Caption = 'Use cache'
|
|
object mnuHD50: TMenuItem
|
|
Caption = '50% HD (940x540)'
|
|
Checked = True
|
|
RadioItem = True
|
|
OnClick = mnuHD50Click
|
|
end
|
|
object mnuHD: TMenuItem
|
|
Caption = 'HD (1920x1050)'
|
|
RadioItem = True
|
|
OnClick = mnuHDClick
|
|
end
|
|
end
|
|
end
|
|
object MenuItem2: TMenuItem
|
|
Caption = 'Run tests'
|
|
object mnuTImage: TMenuItem
|
|
Caption = 'TImage'
|
|
OnClick = mnuTImageClick
|
|
end
|
|
end
|
|
end
|
|
end
|