>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 >>