在表单上画横刻度线,有时会被冲掉,加个容器可能会好些
FOR I=0 TO 18
kd=ALLTRIM(STR(i))
THIS.AddObject('shpLine&kd.','Line') && Add a Line control to the form
THIS.shpLine&kd..Visible = .T. && 使 Line 控件可见
THIS.shpLine&kd..height=0 && 指定 Line 高度
THIS.shpLine&kd..Top = h1+i*10 && 指定 Line 控件与表单上边距
THIS.shpLine&kd..Left =20 && 指定 Line 控件与表单左边距
THIS.shpLine&kd..width=1480
ENDFOR