thisform.aScale[m.I].AddObject("Line") &&& = CREATEOBJECT("Line")>
>>>LOCAL lnWidth,lnNumTicks,lnStratTick,lnTickLen,I >>>lnWidth = thisform.grd1.Width >>>lnNumTicks = 17 >>>lnStratTick = 7 >>>lnTickLen = lnWidth/lnNumTicks >>>DIMENSION thisform.aScale[lnNumTicks+1] >>>DIMENSION thisform.aTicksLabel[lnNumTicks+1] >>>FOR I = 1 TO lnNumTicks+1 >>> thisform.aScale[m.I] = CREATEOBJECT("Line") >>> thisform.aScale[m.I].top = 262 >>> thisform.aScale[m.I].height = 12 >>> thisform.aScale[m.I].width = 1 >>> thisform.aScale[m.I].left = 3+(m.I-1)*lnTickLen >>> thisform.aScale[m.I].visible= .t. >>> >>> thisform.aTicksLabel[m.I] = CREATEOBJECT("Label") >>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i) >>> thisform.aTicksLabel[m.I].height = 15 >>> thisform.aTicksLabel[m.I].fontname = 'Arial' >>> thisform.aTicksLabel[m.I].fontsize = 8 >>> thisform.aTicksLabel[m.I].fontitalic= .t. >>> DO CASE >>> CASE m.I = lnStratTick >>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i)+" am" >>> >>> CASE m.I = 12-(lnStratTick+2) >>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i)+" Noon" >>> >>> CASE m.I = 12-(lnStratTick+2)+ 1 >>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i)+" pm" >>> >>> CASE m.I = lnNumTicks + 1 >>> thisform.aTicksLabel[m.I].caption = TRANSFORM(6+m.i)+" pm" >>> >>> OTHERWISE >>> >>> ENDCASE >>> thisform.aTicksLabel[m.I].left = 3+(m.I-1)*lnTickLen >>> thisform.aTicksLabel[m.I].visible = .t. >>> >>>ENDFOR >>>thisform.AddObject (oScaleLine,"LIne") >>>WITH thisform.oScaleLine >>> .top = 276 >>> .height = 1 >>> .width = lnWidth >>> .left = 3 >>> .visible= .t. >>>ENDWITH >>>>>>