Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Move placement of field based on length of another field
Message
From
26/09/2006 14:34:22
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
 
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Environment versions
Visual FoxPro:
VFP 8 SP1
Miscellaneous
Thread ID:
01157231
Message ID:
01157312
Views:
14
Did you ever get a solution on it? I didn't see any messages in the thread with stars.

>Here is the thread Re: Part of the string - in Bold Thread #461366
>
>>>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 :)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform