{{tag>category:"OpenInsight 32-Bit" author:"Michael Matthews" author:"[url=http://www.sprezzatura.com]The Sprezzatura Group[/url]"}}

[[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]]


==== Forcing uppercase (OpenInsight 32-Bit) ====
=== At 25 MAY 2010 05:19:42PM Michael Matthews wrote: ===
 
 
<QUOTE>
Has anyone had any success forcing an edit control (editline, combobox, editbox) to uppercase programatically?  I'm setting the bits for all the edit controls in a window at the Create event, but it's not working for me.



Here's the code:



fixcase:

style=get_property(object,'STYLE')

if style1,2 _eqc '0x' then

  convert @lower.case to @upper.case in style

 MX')

end

if then sty=0x2000 else sty=0x0008

style=bitor(style,sty)

call set_property(object,'STYLE',style)

return



Gracias!
</QUOTE>
----

=== At 25 MAY 2010 06:33PM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:  ===

<QUOTE>Michael



As we discussed earlier this horrible hack worked for me





pre.code {

    background-color: #E5E5E5;

    border: 1px solid #000000;

    width: 450px;

    padding: 5px;

    font-family: courier, verdana, arial, serif;

    margin: 0px 10px auto;

}


<code>

  S=.Editline_2-]Style
  s=iconv(s3,99,'MX')

  S=bitor(s, 0x8)
  .editline_2-]Style=S

</code>




So all I can suggest is that you abbreviate the 0x8



[url=http://www.sprezzatura.com]The Sprezzatura Group[/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>


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