ShowPcxHead proc mypcx:PcxFileHeader
invoke wsprintf,addr info,CTXT(13,10,"====================PCX信息头====================",13,10)
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("标记:%X",13,10), mypcx.flag
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("版本号:%d",13,10), mypcx.version
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("编码方式:%d",13,10), mypcx.encodeing
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("平面像素位数:%d",13,10), mypcx.bitsPrePixel
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("最小X:%d",13,10), mypcx.xMin
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("最小Y:%d",13,10), mypcx.yMin
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("最大X:%d",13,10), mypcx.xMax
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("最大Y:%d",13,10), mypcx.yMax
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("水平分辨率:%d",13,10), mypcx.hRes
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("垂直分辨率:%d",13,10), mypcx.vRes
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("保留:%d",13,10), mypcx.reserved
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("平面数:%d",13,10), mypcx.iplanes
invoke StdOut,addr info
invoke wsprintf,addr info,CTXT("每行字节数:%d",13,10), mypcx.bytesPreLine
invoke StdOut,addr info
.if pcx.paletteType==1
invoke wsprintf,addr info,CTXT("调色板类型:彩色或黑白",13,10)
.else
invoke wsprintf,addr info,CTXT("调色板类型:灰度",13,10)
.endif
invoke StdOut,addr info
ret
ShowPcxHead endp