>*thisform.&x1..width=10 >store 10 to ('thisform.' + x1 + '.width')>
x1="oLine"+TRANSFORM(m.i) >> *thisform.aScale[m.I].AddObject("Line") &&& = CREATEOBJECT("Line") >> thisform.AddObject(x1,"line") >> thisform.&x1..width=10 >>>>
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 >>>>>>>>>>>>