VFP使用 Listbox

最新推荐文章于 2024-05-23 20:18:57 发布

weixin_41999297

最新推荐文章于 2024-05-23 20:18:57 发布

阅读量823

点赞数

分类专栏： VFP

本文链接：https://blog.csdn.net/weixin_41999297/article/details/104274673

版权

PROCEDURE prdForm_Cmg
	.Top=fncT(125)
	.Left=fncL(007)
	.Width=.Parent.Width-fncW(015)
	.Height=.Parent.Height-.Top-fncH(010)
	.BackColor=.Parent.BackColor
	.BorderStyle=0
	.ButtonCount=64
	.SetAll([Height],.Height*4/.ButtonCount)
	.SetAll([Caption],SPACE(0))
	.SetAll([FontName],[Arial])
	.SetAll([SpecialEffect],2)
	FOR m.nBx=1 TO .ButtonCount
		WITH .Buttons[m.nBx]
			.Top=INT((m.nBx-1)/4)*.Height+fncT(2.5)
			.Left=ICASE(m.nBx%4=1,fncL(2.5),m.nBx%4=2,fncL(47.5),m.nBx%4=3,fncL(72.5),fncL(97.5))
			.Width=ICASE(m.nBx%4=1,fncW(045),m.nBx%4=0,fncW(035),fncW(025))
			.Alignment=IIF(m.nBx%4=1 OR m.nBx<5,2,1)
			.ForeColor=ICASE(m.nBx<5,125,m.nBx%4!=1,16711935,0)
			.FontBold=IIF(m.nBx<5,.T.,.F.)
			.FontSize=IIF(m.nBx<5,12,9)
		ENDWITH
	NEXT
	.Buttons[1].Caption=fncTran([Reminding])
	.Buttons[2].Caption=fncTran([Expired])
	.Buttons[3].Caption=fncTran([Forecast])
	.

最低0.47元/天解锁文章