+ added h2paschk structure checker files for the DirectDraw and DirectInput

header translations, used by PTCPas.

git-svn-id: trunk@41887 -
This commit is contained in:
nickysn 2019-04-16 16:45:54 +00:00
parent b9ddddf9b1
commit d9c109a4dd
3 changed files with 974 additions and 0 deletions

2
.gitattributes vendored
View File

@ -7321,6 +7321,8 @@ packages/ptc/src/win32/base/win32windowd.inc svneol=native#text/plain
packages/ptc/src/win32/base/windows.ico -text
packages/ptc/src/win32/directx/p_ddraw.pp svneol=native#text/plain
packages/ptc/src/win32/directx/p_dinput.pp svneol=native#text/plain
packages/ptc/src/win32/directx/t_ddraw.h2paschk svneol=native#text/plain
packages/ptc/src/win32/directx/t_dinput.h2paschk svneol=native#text/plain
packages/ptc/src/win32/directx/win32directxcheck.inc svneol=native#text/plain
packages/ptc/src/win32/directx/win32directxconsoled.inc svneol=native#text/plain
packages/ptc/src/win32/directx/win32directxconsolei.inc svneol=native#text/plain

View File

@ -0,0 +1,497 @@
@Pascal uses p_ddraw;
@Pascal begin
@C #include <ddraw.h>
@C #include <stdio.h>
@C #include <stddef.h>
@C #include <tchar.h>
@C int _tmain(int argc, _TCHAR* argv[])
@C {
@record TDDARGB,DDARGB
.blue
.green
.red
.alpha
@record TDDRGBA,DDRGBA
.red
.green
.blue
.alpha
@record TDDCOLORKEY,DDCOLORKEY
.dwColorSpaceLowValue
.dwColorSpaceHighValue
@record TDDBLTFX,DDBLTFX
.dwSize
.dwDDFX
.dwROP
.dwDDROP
.dwRotationAngle
.dwZBufferOpCode
.dwZBufferLow
.dwZBufferHigh
.dwZBufferBaseDest
.dwZDestConstBitDepth
.dwZDestConst
.lpDDSZBufferDest
.dwZSrcConstBitDepth
.dwZSrcConst
.lpDDSZBufferSrc
.dwAlphaEdgeBlendBitDepth
.dwAlphaEdgeBlend
.dwReserved
.dwAlphaDestConstBitDepth
.dwAlphaDestConst
.lpDDSAlphaDest
.dwAlphaSrcConstBitDepth
.dwAlphaSrcConst
.lpDDSAlphaSrc
.dwFillColor
.dwFillDepth
.dwFillPixel
.lpDDSPattern
.ddckDestColorkey
.ddckSrcColorkey
@record TDDSCAPS,DDSCAPS
.dwCaps
@record TDDOSCAPS,DDOSCAPS
.dwCaps
@record TDDSCAPSEX,DDSCAPSEX
.dwCaps2
.dwCaps3
.dwCaps4
.dwVolumeDepth
@record TDDSCAPS2,DDSCAPS2
.dwCaps
.dwCaps2
.dwCaps3
.dwCaps4
.dwVolumeDepth
@record TDDCAPS_DX1,DDCAPS_DX1
.dwSize
.dwCaps
.dwCaps2
.dwCKeyCaps
.dwFXCaps
.dwFXAlphaCaps
.dwPalCaps
.dwSVCaps
.dwAlphaBltConstBitDepths
.dwAlphaBltPixelBitDepths
.dwAlphaBltSurfaceBitDepths
.dwAlphaOverlayConstBitDepths
.dwAlphaOverlayPixelBitDepths
.dwAlphaOverlaySurfaceBitDepths
.dwZBufferBitDepths
.dwVidMemTotal
.dwVidMemFree
.dwMaxVisibleOverlays
.dwCurrVisibleOverlays
.dwNumFourCCCodes
.dwAlignBoundarySrc
.dwAlignSizeSrc
.dwAlignBoundaryDest
.dwAlignSizeDest
.dwAlignStrideAlign
.dwRops
.ddsCaps
.dwMinOverlayStretch
.dwMaxOverlayStretch
.dwMinLiveVideoStretch
.dwMaxLiveVideoStretch
.dwMinHwCodecStretch
.dwMaxHwCodecStretch
.dwReserved1
.dwReserved2
.dwReserved3
@record TDDCAPS_DX3,DDCAPS_DX3
.dwSize
.dwCaps
.dwCaps2
.dwCKeyCaps
.dwFXCaps
.dwFXAlphaCaps
.dwPalCaps
.dwSVCaps
.dwAlphaBltConstBitDepths
.dwAlphaBltPixelBitDepths
.dwAlphaBltSurfaceBitDepths
.dwAlphaOverlayConstBitDepths
.dwAlphaOverlayPixelBitDepths
.dwAlphaOverlaySurfaceBitDepths
.dwZBufferBitDepths
.dwVidMemTotal
.dwVidMemFree
.dwMaxVisibleOverlays
.dwCurrVisibleOverlays
.dwNumFourCCCodes
.dwAlignBoundarySrc
.dwAlignSizeSrc
.dwAlignBoundaryDest
.dwAlignSizeDest
.dwAlignStrideAlign
.dwRops
.ddsCaps
.dwMinOverlayStretch
.dwMaxOverlayStretch
.dwMinLiveVideoStretch
.dwMaxLiveVideoStretch
.dwMinHwCodecStretch
.dwMaxHwCodecStretch
.dwReserved1
.dwReserved2
.dwReserved3
.dwSVBCaps
.dwSVBCKeyCaps
.dwSVBFXCaps
.dwSVBRops
.dwVSBCaps
.dwVSBCKeyCaps
.dwVSBFXCaps
.dwVSBRops
.dwSSBCaps
.dwSSBCKeyCaps
.dwSSBFXCaps
.dwSSBRops
.dwReserved4
.dwReserved5
.dwReserved6
@record TDDCAPS_DX5,DDCAPS_DX5
.dwSize
.dwCaps
.dwCaps2
.dwCKeyCaps
.dwFXCaps
.dwFXAlphaCaps
.dwPalCaps
.dwSVCaps
.dwAlphaBltConstBitDepths
.dwAlphaBltPixelBitDepths
.dwAlphaBltSurfaceBitDepths
.dwAlphaOverlayConstBitDepths
.dwAlphaOverlayPixelBitDepths
.dwAlphaOverlaySurfaceBitDepths
.dwZBufferBitDepths
.dwVidMemTotal
.dwVidMemFree
.dwMaxVisibleOverlays
.dwCurrVisibleOverlays
.dwNumFourCCCodes
.dwAlignBoundarySrc
.dwAlignSizeSrc
.dwAlignBoundaryDest
.dwAlignSizeDest
.dwAlignStrideAlign
.dwRops
.ddsCaps
.dwMinOverlayStretch
.dwMaxOverlayStretch
.dwMinLiveVideoStretch
.dwMaxLiveVideoStretch
.dwMinHwCodecStretch
.dwMaxHwCodecStretch
.dwReserved1
.dwReserved2
.dwReserved3
.dwSVBCaps
.dwSVBCKeyCaps
.dwSVBFXCaps
.dwSVBRops
.dwVSBCaps
.dwVSBCKeyCaps
.dwVSBFXCaps
.dwVSBRops
.dwSSBCaps
.dwSSBCKeyCaps
.dwSSBFXCaps
.dwSSBRops
.dwMaxVideoPorts
.dwCurrVideoPorts
.dwSVBCaps2
.dwNLVBCaps
.dwNLVBCaps2
.dwNLVBCKeyCaps
.dwNLVBFXCaps
.dwNLVBRops
@record TDDCAPS_DX6,DDCAPS_DX6
.dwSize
.dwCaps
.dwCaps2
.dwCKeyCaps
.dwFXCaps
.dwFXAlphaCaps
.dwPalCaps
.dwSVCaps
.dwAlphaBltConstBitDepths
.dwAlphaBltPixelBitDepths
.dwAlphaBltSurfaceBitDepths
.dwAlphaOverlayConstBitDepths
.dwAlphaOverlayPixelBitDepths
.dwAlphaOverlaySurfaceBitDepths
.dwZBufferBitDepths
.dwVidMemTotal
.dwVidMemFree
.dwMaxVisibleOverlays
.dwCurrVisibleOverlays
.dwNumFourCCCodes
.dwAlignBoundarySrc
.dwAlignSizeSrc
.dwAlignBoundaryDest
.dwAlignSizeDest
.dwAlignStrideAlign
.dwRops
.ddsOldCaps
.dwMinOverlayStretch
.dwMaxOverlayStretch
.dwMinLiveVideoStretch
.dwMaxLiveVideoStretch
.dwMinHwCodecStretch
.dwMaxHwCodecStretch
.dwReserved1
.dwReserved2
.dwReserved3
.dwSVBCaps
.dwSVBCKeyCaps
.dwSVBFXCaps
.dwSVBRops
.dwVSBCaps
.dwVSBCKeyCaps
.dwVSBFXCaps
.dwVSBRops
.dwSSBCaps
.dwSSBCKeyCaps
.dwSSBFXCaps
.dwSSBRops
.dwMaxVideoPorts
.dwCurrVideoPorts
.dwSVBCaps2
.dwNLVBCaps
.dwNLVBCaps2
.dwNLVBCKeyCaps
.dwNLVBFXCaps
.dwNLVBRops
.ddsCaps
@record TDDCAPS_DX7,DDCAPS_DX7
.dwSize
.dwCaps
.dwCaps2
.dwCKeyCaps
.dwFXCaps
.dwFXAlphaCaps
.dwPalCaps
.dwSVCaps
.dwAlphaBltConstBitDepths
.dwAlphaBltPixelBitDepths
.dwAlphaBltSurfaceBitDepths
.dwAlphaOverlayConstBitDepths
.dwAlphaOverlayPixelBitDepths
.dwAlphaOverlaySurfaceBitDepths
.dwZBufferBitDepths
.dwVidMemTotal
.dwVidMemFree
.dwMaxVisibleOverlays
.dwCurrVisibleOverlays
.dwNumFourCCCodes
.dwAlignBoundarySrc
.dwAlignSizeSrc
.dwAlignBoundaryDest
.dwAlignSizeDest
.dwAlignStrideAlign
.dwRops
.ddsOldCaps
.dwMinOverlayStretch
.dwMaxOverlayStretch
.dwMinLiveVideoStretch
.dwMaxLiveVideoStretch
.dwMinHwCodecStretch
.dwMaxHwCodecStretch
.dwReserved1
.dwReserved2
.dwReserved3
.dwSVBCaps
.dwSVBCKeyCaps
.dwSVBFXCaps
.dwSVBRops
.dwVSBCaps
.dwVSBCKeyCaps
.dwVSBFXCaps
.dwVSBRops
.dwSSBCaps
.dwSSBCKeyCaps
.dwSSBFXCaps
.dwSSBRops
.dwMaxVideoPorts
.dwCurrVideoPorts
.dwSVBCaps2
.dwNLVBCaps
.dwNLVBCaps2
.dwNLVBCKeyCaps
.dwNLVBFXCaps
.dwNLVBRops
.ddsCaps
@record TDDPIXELFORMAT,DDPIXELFORMAT
.dwSize
.dwFlags
.dwFourCC
.dwRGBBitCount
.dwYUVBitCount
.dwZBufferBitDepth
.dwAlphaBitDepth
.dwLuminanceBitCount
.dwBumpBitCount
.dwPrivateFormatBitCount
.dwRBitMask
.dwYBitMask
.dwStencilBitDepth
.dwLuminanceBitMask
.dwBumpDuBitMask
.dwOperations
.dwGBitMask
.dwUBitMask
.dwZBitMask
.dwBumpDvBitMask
.MultiSampleCaps
.MultiSampleCaps.wFlipMSTypes
.MultiSampleCaps.wBltMSTypes
.dwBBitMask
.dwVBitMask
.dwStencilBitMask
.dwBumpLuminanceBitMask
.dwRGBAlphaBitMask
.dwYUVAlphaBitMask
.dwLuminanceAlphaBitMask
.dwRGBZBitMask
.dwYUVZBitMask
@record TDDOVERLAYFX,DDOVERLAYFX
.dwSize
.dwAlphaEdgeBlendBitDepth
.dwAlphaEdgeBlend
.dwReserved
.dwAlphaDestConstBitDepth
.dwAlphaDestConst
.lpDDSAlphaDest
.dwAlphaSrcConstBitDepth
.dwAlphaSrcConst
.lpDDSAlphaSrc
.dckDestColorkey
.dckSrcColorkey
.dwDDFX
.dwFlags
@record TDDBLTBATCH,DDBLTBATCH
.lprDest
.lpDDSSrc
.lprSrc
.dwFlags
.lpDDBltFx
@record TDDGAMMARAMP,DDGAMMARAMP
.red
.green
.blue
@record TDDDEVICEIDENTIFIER,DDDEVICEIDENTIFIER
.szDriver
.szDescription
.liDriverVersion
.dwVendorId
.dwDeviceId
.dwSubSysId
.dwRevision
.guidDeviceIdentifier
@record TDDDEVICEIDENTIFIER2,DDDEVICEIDENTIFIER2
.szDriver
.szDescription
.liDriverVersion
.dwVendorId
.dwDeviceId
.dwSubSysId
.dwRevision
.guidDeviceIdentifier
.dwWHQLLevel
@record TDDSURFACEDESC,DDSURFACEDESC
.dwSize
.dwFlags
.dwHeight
.dwWidth
.lPitch
.dwLinearSize
.dwBackBufferCount
.dwMipMapCount
.dwZBufferBitDepth
.dwRefreshRate
.dwAlphaBitDepth
.dwReserved
.lpSurface
.ddckCKDestOverlay
.ddckCKDestBlt
.ddckCKSrcOverlay
.ddckCKSrcBlt
.ddpfPixelFormat
.ddsCaps
@record TDDSURFACEDESC2,DDSURFACEDESC2
.dwSize
.dwFlags
.dwHeight
.dwWidth
.lPitch
.dwLinearSize
.dwBackBufferCount
.dwDepth
.dwMipMapCount
.dwRefreshRate
.dwSrcVBHandle
.dwAlphaBitDepth
.dwReserved
.lpSurface
.dwEmptyFaceColor
.ddckCKDestOverlay
.ddckCKDestBlt
.ddckCKSrcOverlay
.ddckCKSrcBlt
.dwFVF
.ddpfPixelFormat
.ddsCaps
.dwTextureStage
@record TDDOPTSURFACEDESC,DDOPTSURFACEDESC
.dwSize
.dwFlags
.ddSCaps
.ddOSCaps
.guid
.dwCompressionRatio
@record TDDCOLORCONTROL,DDCOLORCONTROL
.dwSize
.dwFlags
.lBrightness
.lContrast
.lHue
.lSaturation
.lSharpness
.lGamma
.lColorEnable
.dwReserved1
@C return 0;
@C }
@Pascal end.

View File

@ -0,0 +1,475 @@
@Pascal uses p_dinput;
@Pascal begin
@C #include <dinput.h>
@C #include <stdio.h>
@C #include <stddef.h>
@C #include <tchar.h>
@C int _tmain(int argc, _TCHAR* argv[])
@C {
@record TDICONSTANTFORCE,DICONSTANTFORCE
.lMagnitude
@record TDIRAMPFORCE,DIRAMPFORCE
.lStart
.lEnd
@record TDIPERIODIC,DIPERIODIC
.dwMagnitude
.lOffset
.dwPhase
.dwPeriod
@record TDICONDITION,DICONDITION
.lOffset
.lPositiveCoefficient
.lNegativeCoefficient
.dwPositiveSaturation
.dwNegativeSaturation
.lDeadBand
@record TDICUSTOMFORCE,DICUSTOMFORCE
.cChannels
.dwSamplePeriod
.cSamples
.rglForceData
@record TDIENVELOPE,DIENVELOPE
.dwSize
.dwAttackLevel
.dwAttackTime
.dwFadeLevel
.dwFadeTime
@record TDIEFFECT_DX5,DIEFFECT_DX5
.dwSize
.dwFlags
.dwDuration
.dwSamplePeriod
.dwGain
.dwTriggerButton
.dwTriggerRepeatInterval
.cAxes
.rgdwAxes
.rglDirection
.lpEnvelope
.cbTypeSpecificParams
.lpvTypeSpecificParams
@record TDIEFFECT,DIEFFECT
.dwSize
.dwFlags
.dwDuration
.dwSamplePeriod
.dwGain
.dwTriggerButton
.dwTriggerRepeatInterval
.cAxes
.rgdwAxes
.rglDirection
.lpEnvelope
.cbTypeSpecificParams
.lpvTypeSpecificParams
.dwStartDelay
@record TDIFILEEFFECT,DIFILEEFFECT
.dwSize
.GuidEffect
.lpDiEffect
.szFriendlyName
@record TDIEFFESCAPE,DIEFFESCAPE
.dwSize
.dwCommand
.lpvInBuffer
.cbInBuffer
.lpvOutBuffer
.cbOutBuffer
@record TDIDEVCAPS_DX3,DIDEVCAPS_DX3
.dwSize
.dwFlags
.dwDevType
.dwAxes
.dwButtons
.dwPOVs
@record TDIDEVCAPS,DIDEVCAPS
.dwSize
.dwFlags
.dwDevType
.dwAxes
.dwButtons
.dwPOVs
.dwFFSamplePeriod
.dwFFMinTimeResolution
.dwFirmwareRevision
.dwHardwareRevision
.dwFFDriverVersion
@record TDIOBJECTDATAFORMAT,DIOBJECTDATAFORMAT
.pguid
.dwOfs
.dwType
.dwFlags
@record TDIDATAFORMAT,DIDATAFORMAT
.dwSize
.dwObjSize
.dwFlags
.dwDataSize
.dwNumObjs
.rgodf
@record TDIACTIONA,DIACTIONA
.uAppData
.dwSemantic
.dwFlags
.lptszActionName
.guidInstance
.dwObjID
.dwHow
.uResIdString
@record TDIACTIONW,DIACTIONW
.uAppData
.dwSemantic
.dwFlags
.lptszActionName
.guidInstance
.dwObjID
.dwHow
.uResIdString
@record TDIACTIONFORMATA,DIACTIONFORMATA
.dwSize
.dwActionSize
.dwDataSize
.dwNumActions
.rgoAction
.guidActionMap
.dwGenre
.dwBufferSize
.lAxisMin
.lAxisMax
.hInstString
.ftTimeStamp
.dwCRC
.tszActionMap
@record TDIACTIONFORMATW,DIACTIONFORMATW
.dwSize
.dwActionSize
.dwDataSize
.dwNumActions
.rgoAction
.guidActionMap
.dwGenre
.dwBufferSize
.lAxisMin
.lAxisMax
.hInstString
.ftTimeStamp
.dwCRC
.tszActionMap
@record TDICOLORSET,DICOLORSET
.dwSize
.cTextFore
.cTextHighlight
.cCalloutLine
.cCalloutHighlight
.cBorder
.cControlFill
.cHighlightFill
.cAreaFill
@record TDICONFIGUREDEVICESPARAMSA,DICONFIGUREDEVICESPARAMSA
.dwSize
.dwcUsers
.lptszUserNames
.dwcFormats
.lprgFormats
.hwnd
.dics
.lpUnkDDSTarget
@record TDICONFIGUREDEVICESPARAMSW,DICONFIGUREDEVICESPARAMSW
.dwSize
.dwcUsers
.lptszUserNames
.dwcFormats
.lprgFormats
.hwnd
.dics
.lpUnkDDSTarget
@record TDIDEVICEIMAGEINFOA,DIDEVICEIMAGEINFOA
.tszImagePath
.dwFlags
.dwViewID
.rcOverlay
.dwObjID
.dwcValidPts
.rgptCalloutLine
.rcCalloutRect
.dwTextAlign
@record TDIDEVICEIMAGEINFOW,DIDEVICEIMAGEINFOW
.tszImagePath
.dwFlags
.dwViewID
.rcOverlay
.dwObjID
.dwcValidPts
.rgptCalloutLine
.rcCalloutRect
.dwTextAlign
@record TDIDEVICEIMAGEINFOHEADERA,DIDEVICEIMAGEINFOHEADERA
.dwSize
.dwSizeImageInfo
.dwcViews
.dwcButtons
.dwcAxes
.dwcPOVs
.dwBufferSize
.dwBufferUsed
.lprgImageInfoArray
@record TDIDEVICEIMAGEINFOHEADERW,DIDEVICEIMAGEINFOHEADERW
.dwSize
.dwSizeImageInfo
.dwcViews
.dwcButtons
.dwcAxes
.dwcPOVs
.dwBufferSize
.dwBufferUsed
.lprgImageInfoArray
@record TDIDEVICEOBJECTINSTANCE_DX3A,DIDEVICEOBJECTINSTANCE_DX3A
.dwSize
.guidType
.dwOfs
.dwType
.dwFlags
.tszName
@record TDIDEVICEOBJECTINSTANCE_DX3W,DIDEVICEOBJECTINSTANCE_DX3W
.dwSize
.guidType
.dwOfs
.dwType
.dwFlags
.tszName
@record TDIDEVICEOBJECTINSTANCEA,DIDEVICEOBJECTINSTANCEA
.dwSize
.guidType
.dwOfs
.dwType
.dwFlags
.tszName
.dwFFMaxForce
.dwFFForceResolution
.wCollectionNumber
.wDesignatorIndex
.wUsagePage
.wUsage
.dwDimension
.wExponent
.wReportId
@record TDIDEVICEOBJECTINSTANCEW,DIDEVICEOBJECTINSTANCEW
.dwSize
.guidType
.dwOfs
.dwType
.dwFlags
.tszName
.dwFFMaxForce
.dwFFForceResolution
.wCollectionNumber
.wDesignatorIndex
.wUsagePage
.wUsage
.dwDimension
.wExponent
.wReportId
@record TDIPROPHEADER,DIPROPHEADER
.dwSize
.dwHeaderSize
.dwObj
.dwHow
@record TDIPROPDWORD,DIPROPDWORD
.diph
.dwData
@record TDIPROPPOINTER,DIPROPPOINTER
.diph
.uData
@record TDIPROPRANGE,DIPROPRANGE
.diph
.lMin
.lMax
@record TDIPROPCAL,DIPROPCAL
.diph
.lMin
.lCenter
.lMax
@record TDIPROPCALPOV,DIPROPCALPOV
.diph
.lMin
.lMax
@record TDIPROPGUIDANDPATH,DIPROPGUIDANDPATH
.diph
.guidClass
.wszPath
@record TDIPROPSTRING,DIPROPSTRING
.diph
.wsz
@record TCPOINT,CPOINT
.lP
.dwLog
@record TDIPROPCPOINTS,DIPROPCPOINTS
.diph
.dwCPointsNum
.cp
@record TDIDEVICEOBJECTDATA_DX3,DIDEVICEOBJECTDATA_DX3
.dwOfs
.dwData
.dwTimeStamp
.dwSequence
@record TDIDEVICEOBJECTDATA,DIDEVICEOBJECTDATA
.dwOfs
.dwData
.dwTimeStamp
.dwSequence
.uAppData
@record TDIDEVICEINSTANCE_DX3A,DIDEVICEINSTANCE_DX3A
.dwSize
.guidInstance
.guidProduct
.dwDevType
.tszInstanceName
.tszProductName
@record TDIDEVICEINSTANCE_DX3W,DIDEVICEINSTANCE_DX3W
.dwSize
.guidInstance
.guidProduct
.dwDevType
.tszInstanceName
.tszProductName
@record TDIDEVICEINSTANCEA,DIDEVICEINSTANCEA
.dwSize
.guidInstance
.guidProduct
.dwDevType
.tszInstanceName
.tszProductName
.guidFFDriver
.wUsagePage
.wUsage
@record TDIDEVICEINSTANCEW,DIDEVICEINSTANCEW
.dwSize
.guidInstance
.guidProduct
.dwDevType
.tszInstanceName
.tszProductName
.guidFFDriver
.wUsagePage
.wUsage
@record TDIEFFECTINFOA,DIEFFECTINFOA
.dwSize
.guid
.dwEffType
.dwStaticParams
.dwDynamicParams
.tszName
@record TDIEFFECTINFOW,DIEFFECTINFOW
.dwSize
.guid
.dwEffType
.dwStaticParams
.dwDynamicParams
.tszName
@record TDIMOUSESTATE,DIMOUSESTATE
.lX
.lY
.lZ
.rgbButtons
@record TDIMOUSESTATE2,DIMOUSESTATE2
.lX
.lY
.lZ
.rgbButtons
@record TDIJOYSTATE,DIJOYSTATE
.lX
.lY
.lZ
.lRx
.lRy
.lRz
.rglSlider
.rgdwPOV
.rgbButtons
@record TDIJOYSTATE2,DIJOYSTATE2
.lX
.lY
.lZ
.lRx
.lRy
.lRz
.rglSlider
.rgdwPOV
.rgbButtons
.lVX
.lVY
.lVZ
.lVRx
.lVRy
.lVRz
.rglVSlider
.lAX
.lAY
.lAZ
.lARx
.lARy
.lARz
.rglASlider
.lFX
.lFY
.lFZ
.lFRx
.lFRy
.lFRz
.rglFSlider
@C return 0;
@C }
@Pascal end.