topic-32324

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sat Apr 23, 2016 12:46 PM

Hi,

There is no option PICTURE in TMultiGet. How can i simulate it like PICTURE "@!"?

Thanks,

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sat Apr 23, 2016 12:54 PM

In the New() method you need to add ES_UPPERCASE to the Style

Regards

G. N. Rao.

Hyderabad, India

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sat Apr 23, 2016 01:04 PM

Hi Mr. Nages,

You mean change the TMultiget class source and compile it with my application.

Is there any method to set it changing source?

Thanks,

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sat Apr 23, 2016 03:13 PM

If you create the Get from resources, you can add ES_UPPERCASE while creating the resource.
If you create the Get from source code

Add this code after creating the Get

Code (fw): Select all Collapse

   if Empty( oGet:hWnd )
      oGet:nStyle := nOr( oGet:nStyle, ES_UPPERCASE )
   else
      oGet:WinStyle( ES_UPPERCASE, .t. )
   endif

Note: Value of ES_UPPERCASE is 8

Regards

G. N. Rao.

Hyderabad, India

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sat Apr 23, 2016 04:21 PM

Thank you Mr. Nages,

It works but there is also problem like TGet class.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32326

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sun Apr 24, 2016 09:36 AM

Hi,

I think it should an addition to KeyChar Method like TGet class.

Code (fw): Select all Collapse

   if ! Empty( ::cPicture ) .and. '@!' $ ::cPicture
      nKey = Asc(Upper(Chr(nKey)))
   endif

But I dont know how to determine ES_UPPERCASE have in ::Style variable.

Thanks,

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sun Apr 24, 2016 09:58 AM

If we use ES_UPPERCASE style, the conversion to upper case is done by Windows. The key that the Get object receives itself is the converted key. Windows conversion depends on the language set on the PC.

Regards

G. N. Rao.

Hyderabad, India

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sun Apr 24, 2016 09:59 AM

Hi,

I found.

KeyChar Method In mGet.prg.

Code (fw): Select all Collapse

   local lAccept

   if ::WinStyle( ES_UPPERCASE )            // Horizon 24.04.2016 12:53:50
      nKey = Asc(Upper(Chr(nKey)))
   endif
   
   if bKeyAction != nil .and. lAnd( nFlags, 16777216 ) // function Key

and

define section.

Code (fw): Select all Collapse

#define ES_UPPERCASE 8

It is working good now.

or alternatif solution.

It can be add a UPPERCASE option in MULTIGET ch command description.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: GET (MEMO, MULTILINE, TEXT) UpperCase
Posted: Sun Apr 24, 2016 10:27 AM

Hakan,

very good

Implemented for next FWH version

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion