x1="oLine"+TRANSFORM(m.i) *thisform.aScale[m.I].AddObject("Line") &&& = CREATEOBJECT("Line") thisform.AddObject(x1,"line") thisform.&x1..width=10can that be done without macro substitution?
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 >>>>>>>>