Acentuar em maiúsculo

[evertonlb]

Boa tarde pessoal, olha tenho alguns get´s que ficam com os caracteres em maiúsculo, porém quando se acentua as letras acentuadas ficam em minúsculo.

ex.. ACENTUAçãO

Tenho a picture "@!", como faço para que as letras acentuadas fiquem também em maiúsculo?

Att.

Everton

[kapiaba]

REQUEST HB_LANG_PT

REQUEST HB_CODEPAGE_PT850


function Principal()


   PRIVATE SELF


   SET DATE BRITISH

   SET EPOCH TO 1950

   SET CENTURY ON

   SET SOFTSEEK OFF

   SET WRAP ON

   SETCANCEL( .F. )

   SET CONFIRM OFF

   SET DELETED ON

   SET ESCAPE OFF

   SET EXACT ON

   SET EXCLUSIVE OFF

   SET MULTIPLE OFF


   HB_LANGSELECT( 'PT' )         // Default language is now Portuguese

   HB_SETCODEPAGE( "PT850" )

   echo $(HBDIR)\lib\codepage.lib + >> b32.bc

[evertonlb]

100%... Obrigado!

Att.

Everton