Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Move placement of field based on length of another field
Message
 
 
To
26/09/2006 11:16:37
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Environment versions
Visual FoxPro:
VFP 8 SP1
Miscellaneous
Thread ID:
01157231
Message ID:
01157272
Views:
21
Me too, but I had some mixed results with this approach. In other words, it was almost perfect, but not precise.

Let me try to find my old thread.

>>Step 1: Change FIELD02's left to be the same as FIELD01's left
>>Step 2: Change FIELD02's width to match its original right edge
>>Step 3: Change FIELD02's expression to be something like this:
>>
>>    PADL(FIELD02, ExtraSpaces(FIELD01))
>>
>>Step 4: Create an ExtraSpaces( ) function:
>>
>>FUNCTION ExtraSpaces(lcField1Value)
>>   ** Font info for field 1
>>   lcName1 = "Arial"
>>   lcSize1 = 12
>>   lcStyle1 = "B"
>>
>>   ** Font info for field 2
>>   lcName2 = "Arial"
>>   lcSize2 = 10
>>   lcStyle2 = "N"
>>
>>   lnTextWidth = TXTWIDTH(lcField1Value,lcName1,lcSize1,lcStyle1)*;
>>            FONTMETRIC(6,lcName1,lcSize1,lcStyle1)
>>
>>   lnSpaceWidth = TXTWIDTH(SPACE(1),lcName2,lcSize2,lcStyle2)*;
>>            FONTMETRIC(6,lcName2,lcSize2,lcStyle2)
>>
>>   lnSpaces = CEILING(lnTextWidth/lnSpaceWidth)
>>
>>   RETURN lnSpaces
>>ENDFUNC
>>
>>
>>I hope this makes sense. I can send you a sample if you need it.
>
>Exactly what I had in mind, and actually with all the details I meant to leave to him as homework. You saved me a few minutes :)
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform