, ,

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:

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!

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

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;

} 

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

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

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

The Sprezzatura Group

The Sprezzatura Blog

World leaders in all things RevSoft

View this thread on the Works forum...