Mensaje
De
26/09/2006 14:34:22
Jay Johengen
Altamahaw-Ossipee, Carolina del Norte, United States
 
General information
Foro:
Visual FoxPro
Category:
Informes & Diseñador de informes
Environment versions
Visual FoxPro:
VFP 8 SP1
Miscellaneous
ID de la conversación:
01157231
ID del mensaje:
01157312
Views:
18
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
Responder
Mapa
Ver