Control List Inherits Listbox
ControlInstance List Inherits Listbox
EventHandler Sub DoubleClick()
MsgBox List.cell(List.ListIndex,0)+EndOfLine+EndOfLine+List.cell(List.ListIndex,1)
End EventHandler
EventHandler Sub ExpandRow(row As Integer)
dim id as variant = List.Celltag(row,0)
if id isa CLPlatformMBS then
// Platform
dim platform as CLPlatformMBS = id
Add platform.Profile, "Profile"
Add platform.Version, "Version"
Add platform.Name, "Name"
Add platform.Vendor, "Vendor"
Add platform.Extensions, "Extensions"
dim Devices(-1) as CLDeviceMBS = platform.Devices(CLDeviceMBS.kDeviceTypeAll)
for each d as CLDeviceMBS in Devices
AddDevice d
next
elseif id isa CLDeviceMBS then
// Device
dim device as CLDeviceMBS = id
Add device.Name, "Name"
Add device.Vendor, "Vendor"
Add device.Profile, "Profile"
Add device.DriverVersion, "DriverVersion"
Add device.DeviceVersion, "DeviceVersion"
Add device.Extensions, "Extensions"
Add device.VendorId,"VendorId"
Add device.MaxComputeUnits,"MaxComputeUnits"
Add device.MaxWorkItemDimensions,"MaxWorkItemDimensions"
Add device.MaxWorkGroupSize,"MaxWorkGroupSize"
Add device.PreferredVectorWidthChar,"PreferredVectorWidthChar"
Add device.PreferredVectorWidthShort,"PreferredVectorWidthShort"
Add device.PreferredVectorWidthInt,"PreferredVectorWidthInt"
Add device.PreferredVectorWidthLong,"PreferredVectorWidthLong"
Add device.PreferredVectorWidthFloat,"PreferredVectorWidthFloat"
Add device.PreferredVectorWidthDouble,"PreferredVectorWidthDouble"
Add device.MaxClockFrequency,"MaxClockFrequency"
Add device.AddressBits,"AddressBits"
Add device.MaxMemoryAllocSize,"MaxMemoryAllocSize"
Add device.ImageSupport,"ImageSupport"
Add device.MaxReadImageArgs,"MaxReadImageArgs"
Add device.MaxWriteImageArgs,"MaxWriteImageArgs"
Add device.Image2dMaxWidth,"Image2dMaxWidth"
Add device.Image2dMaxHeight,"Image2dMaxHeight"
Add device.Image3dMaxWidth,"Image3dMaxWidth"
Add device.Image3dMaxHeight,"Image3dMaxHeight"
Add device.Image3dMaxDepth,"Image3dMaxDepth"
Add device.MaxSamplers,"MaxSamplers"
Add device.MaxParameterSize,"MaxParameterSize"
Add device.MemoryBaseAddressAlign,"MemoryBaseAddressAlign"
Add device.MinDataTypeAlignSize,"MinDataTypeAlignSize"
Add device.GlobalMemoryCachelineSize,"GlobalMemoryCachelineSize"
Add device.GlobalMemoryCacheSize,"GlobalMemoryCacheSize"
Add device.GlobalMemorySize,"GlobalMemorySize"
Add device.MaxConstantBufferSize,"MaxConstantBufferSize"
Add device.MaxConstantArgs,"MaxConstantArgs"
Add device.LocalMemorySize,"LocalMemorySize"
Add device.ErrorCorrectionSupport,"ErrorCorrectionSupport"
Add device.ProfilingTimerResolution,"ProfilingTimerResolution"
Add device.EndianLittle,"EndianLittle"
Add device.Available,"Available"
Add device.CompilerAvailable,"CompilerAvailable"
end if
End EventHandler
End Control