{{tag>category:"OpenInsight 32-bit" author:"John Bouley" author:"Colin Rule" author:"john bouley" author:"Carl Pates" author:"Bob Orsini" author:"Dave Harmacek"}}

[[https://www.revelation.com/the-works|Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community]]


==== oipi TEXTXY and fonts (OpenInsight 32-bit) ====
=== At 03 DEC 2012 04:28:35PM John Bouley wrote: ===
 
 
<QUOTE>
It appears the following commnd does not work as expected.  It places the text left justified. Does the TEXTXY message use the font parameter?



Equate BaseFont$ to "Times New Roman":@fm:"12":@fm:"L":@fm:"0"

Equate BaseFontR$ to "Times New Roman":@fm:"12":@fm:"R":@fm:"0"



x = set_printer("FONT",BaseFont$)

x = set_printer("TEXTXY",Oconv(Check_Amount,"MD2,$"),6.8-LeftMargin$:@fm:4.9,BaseFontR$,0)



Thanks,

John
</QUOTE>
----

=== At 03 DEC 2012 06:52PM Colin Rule wrote:  ===

<QUOTE>I have found this an issue for years, but not sure if it is still an issue, I just do it differently always as a result.

Use CALCTEXT to calculate the length, then based on the alignment, you can adjust the position coordinates.





TEXT_WIDTH=""

IF JUST#"L" THEN

	CALL SET_PRINTER("CALCTEXT",TEXT)

	TEXT_SIZES=GET_PRINTER("CALCTEXT")

	TEXT_WIDTH =TEXT_SIZES<1>

	TEXT_HEIGHT=TEXT_SIZES<2>

END

BEGIN CASE

	CASE NOT(NUM(TEXT_WIDTH))

	CASE JUST="L"

	CASE JUST="R" ;COORDS<1>=COORDS<1>-TEXT_WIDTH

	CASE JUST="C" ;COORDS<1>=COORDS<1>-(TEXT_WIDTH/2)

END CASE

ERROR=SET_PRINTER("TEXTXY",TEXT,COORDS,"",0)

</QUOTE>

----

=== At 03 DEC 2012 07:42PM john bouley wrote:  ===

<QUOTE>Thanks for the confirmation.  I will adjust my coding.

</QUOTE>

----

=== At 05 DEC 2012 10:09AM Carl Pates wrote:  ===

<QUOTE>John,



I don't think that's a bug - TEXTXY allow you to put the text at the precise X and Y coordinates you specify - justification only really applies if you're in a situation where you are using just a Y coordinate, like the normal TEXT function. 



[email=cpates@sprezzatura.com]Carl Pates[/email]

[url=http://www.sprezzatura.com]Sprezzatura[/url]

[url=http://www.sprezzatura.com/blog]The Sprezzatura Blog[/url]

[i]World leaders in all things RevSoft[/i]

[img]http://www.sprezzatura.com/zz.gif[/img]

</QUOTE>

----

=== At 04 DEC 2012 06:32PM John Bouley wrote:  ===

<QUOTE>Understood.  I just "thought" that if the font passed in the textxy was right justified the text would end at that possision.



Thanks,

John

</QUOTE>

----

=== At 04 DEC 2012 06:34PM John Bouley wrote:  ===

<QUOTE>Should be position. :)

</QUOTE>

----

=== At 05 DEC 2012 10:00AM Bob Orsini wrote:  ===

<QUOTE>John, right now the TEXTXY command does not use the justification part of the font. Not sure what we would right justify it to. 

</QUOTE>

----

=== At 05 DEC 2012 10:34AM Dave Harmacek wrote:  ===

<QUOTE>John, I consider using ADDTABLE since it has column justification.



Dave Harmacek

Harmacek Database Systems

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=WORKS_READ&SUMMARY=1&KEY=51F857539C50DF2F2E9A2B813|View this thread on the Works forum...]]