Modification for TEdit

[AntoninoP]

Hello,

I tried to use TEdit in my application, because I want an empty edit Box with unlimited text input, and it is not possible with TGet.
The problems I saw are:

1. The font is not setted, it is only if you create the TEdit between Init Dialog and Activate Dialog as the example does, but with TWindow or using on Init it is not.
2. There is no bUpdate/bChange support
3. It works only with text, it is very minor.
4. It is not possilbe use PIXEL coordinate, It is minor too.

The 1,3 and 4 are easily resolvible, the point 2 is a little more difficult,
To maintain compatibility with TGet I split the bChange in 2 notifications, 1 is bChange that can be used for accept/discard a character, and bUpdate that is called after the value updates.

So, Here the edit.prg modified:

Code: Select all | Expand

// Class TEdit for two characters support (Chinesse, etc.)#include "FiveWin.ch"#include "constant.ch"#define DEFAULT_GUI_FONT   17#define EM_SETSEL          177#define EM_LIMITTEXT       197#define EM_SETCUEBANNER 0x1501//#define EN_SETFOCUS         0x0100//#define EN_KILLFOCUS        0x0200//#define EN_CHANGE           0x0300#define EN_UPDATE           0x0400//#define EN_ERRSPACE         0x0500//#define EN_MAXTEXT          0x0501#define EN_HSCROLL          0x0601//#define EN_VSCROLL          0x0602//----------------------------------------------------------------------------//CLASS TEdit FROM TControl   DATA cPicture, cType   DATA bHScroll, bUpdate      METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, lPixel, oFont, cPicture, ;                  bChanged, bUpdate, bHScroll) CONSTRUCTOR   METHOD ReDefine( nId, oWnd, bSetGet, cPicture, bChanged, bUpdate, bHScroll ) CONSTRUCTOR         METHOD cToChar() INLINE ::Super:cToChar( "EDIT" )      METHOD Initiate( hDlg )      METHOD MouseMove() VIRTUAL      METHOD LostFocus( hWndGetFocus )      METHOD GotFocus() INLINE ::SelectAll(), ::Super:GotFocus()   METHOD SelectAll() INLINE ::SetSel( 0, -1 )      METHOD SetSel( nStart, nEnd ) INLINE ;                  nStart := If( nStart == nil, 1, nStart ),;                  nEnd   := If( nEnd == nil, nStart, nEnd ),;                  SendMessage( ::hWnd, EM_SETSEL, nStart, nEnd )                                     METHOD Refresh() INLINE ::SetText( If( Empty( ::cPicture ), ;                                             cValToChar( Eval( ::bSetGet ) ),;                                             Transform( Eval( ::bSetGet ), ::cPicture ) ) )       METHOD Read()      METHOD SetLimitText(n) INLINE SendMessage( ::hWnd, EM_LIMITTEXT, if(valtype(n)="N",n,0), 0 )   METHOD SetCueBanner( lOnFocus, cText ) INLINE SendMessage( ::hWnd, EM_SETCUEBANNER, lOnFocus, AnsiToWide( cText ) )      METHOD KeyChar( nKey, nFlags )   METHOD Command( nWParam, nLParam )ENDCLASS//----------------------------------------------------------------------------//METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, lPixel, oFont, cPicture,;               bChanged, bUpdate, bHScroll ) CLASS TEdit   LOCAL startVal := Eval(bSetGet)   LOCAL cType :=ValType(startVal)      DEFAULT nRow := 0, nCol := 0, oWnd := GetWndDefault(), nWidth := 80,;           nHeight := 20, lPixel := .F.   if oFont == nil      oFont := TFont():New()      oFont:hFont := GetStockObject( DEFAULT_GUI_FONT )   endif   ::oWnd    = oWnd   ::nId     = ::GetNewId()   ::nStyle  = nOR( WS_CHILD, WS_VISIBLE, WS_BORDER, WS_TABSTOP, ES_AUTOHSCROLL )   ::nTop    = if( lPixel, nRow, nRow * GET_CHARPIX_H    )   ::nLeft   = if( lPixel, nCol, nCol * GET_CHARPIX_W    )   ::nBottom = ::nTop + nHeight - 1   ::nRight  = ::nLeft + nWidth   ::lDrag   = .F.                   ::bSetGet = bSetGet   ::cPicture = cPicture   ::cType = cType   ::oFont = oFont   ::bChange = bChanged   ::bUpdate = bUpdate   ::bHScroll = bHScroll   ::cCaption  = If( Empty( cPicture ), cValToChar( startVal ),;                     Transform( startVal, cPicture ) )   if ! Empty( oWnd:hWnd )      ::Create( "EDIT" )      if ::oFont != nil         ::SetFont( ::oFont )      else         ::GetFont()      endif      oWnd:AddControl( Self )   else      oWnd:DefControl( Self )   endif   return Self//----------------------------------------------------------------------------//METHOD ReDefine( nId, oWnd, bSetGet, cPicture, bChanged, bUpdate, bHScroll ) CLASS TEdit   DEFAULT oWnd := GetWndDefault()   ::nId     = nId   ::oWnd    = oWnd   ::bSetGet = bSetGet   ::cPicture = cPicture   ::bChange = bChanged   ::bUpdate = bUpdate   ::bHScroll = bHScroll   oWnd:DefControl( Self )   ::Refresh()   return Self//----------------------------------------------------------------------------//METHOD Initiate( hDlg ) CLASS TEdit   ::Super:Initiate( hDlg )      ::Refresh()   return nil     //----------------------------------------------------------------------------//    METHOD LostFocus( hWndGetFocus ) CLASS TEdit   ::Super:LostFocus( hWndGetFocus )   ::Read()   return nil //----------------------------------------------------------------------------//    METHOD Read() CLASS TEdit      if Empty( ::bSetGet )      return nil   endif      if ::cType == "C"      Eval( ::bSetGet, ::GetText() )   elseif ::cType == "N"      Eval( ::bSetGet, Val(::GetText()) )   elseif ::cType == "D"      Eval( ::bSetGet, CToD(::GetText()) )   endif   return nil//----------------------------------------------------------------------------//METHOD KeyChar( nKey, nFlags ) CLASS TEdit   LOCAL lAccept      if ::cType == "N"      if .not. (( nKey>=asc('0') .and. nKey<=asc('9')) .or. ;                  nKey==asc('-') .or. nKey==asc('.') .or. nKey<32)         return 0      endif   endif  if ::bChange != nil     lAccept = Eval( ::bChange, nKey, nFlags, Self )     if ValType( lAccept ) == "L" .and. ! lAccept        return 0      endif  endifreturn ::Super:KeyChar( nKey, nFlags )//----------------------------------------------------------------------------//METHOD Command( nWParam, nLParam ) CLASS TEdit   local nCode := nHiWord( nWParam )   if nCode == EN_UPDATE .and. ::bUpdate != nil      ::Read()      Eval( ::bUpdate, Self )   endif      if nCode == EN_HSCROLL .and. ::bHScroll != nil      Eval( ::bHScroll, Self )   endif   return nil//----------------------------------------------------------------------------//

to use this is necessary change the METHOD Command of TDialog and TWindow adding this case:

Code: Select all | Expand

      case GetClassName( hWndCtl ) == "Edit"            oCtrl :=oWndFromHwnd( hWndCtl )           if oCtrl!=nil .and. oCtrl:ClassName() == "TEDIT"               oCtrl:Command( nWParam, nLParam )               return nil           endif 

IMHO, as user, with these modification the TEdit is usable, and the cue banner works!

some comments?

Regards,
Antonino

[Antonio Linares]

Antonino,

Many thanks for your contribution, it looks very well

Do you have a little example to test the new TEdit features ? thanks!

[bpd2000]

Antonino,

Many thanks for your contribution, it looks very well

Do you have a little example to test the new TEdit features ? thanks!

+1

[AntoninoP]

Here an example:

Code: Select all | Expand

#include "FiveWin.ch"//----------------------------------------------------------------------------//function Main()   local oDlg      DEFINE DIALOG oDlg SIZE 500, 250   ACTIVATE DIALOG oDlg CENTERED ON INIT init(oDlg)return nilPROC init(oDlg)   local oSay1,oSay2,oSay3,oSay4   local oEdit1,oEdit2,oEdit3,oEdit4   local cFirst := "Start value", cLast := ""   LOCAl nVal1 := VAL("0"), nVal2 := 3.1415000      @ 8, 10 EDIT oEdit1 VAR cFirst OF oDlg SIZE 160, 20 PIXEL ON UPDATE oSay1:Refresh()   @ 40,10 SAY oSay1 VAR cFirst OF oDlg SIZE 160, 20 PIXEL    oEdit1:SetCueBanner(.T.,"Write here")   @ 72, 10 EDIT oEdit2 VAR cLast OF oDlg SIZE 160, 20 PIXEL ON UPDATE oSay2:Refresh() ON CHANGE if(nKey==asc('a'),.F.,.T.)   @ 104,10 SAY oSay2 VAR cLast OF oDlg SIZE 160, 20 PIXEL    oEdit2:SetCueBanner(.T.,"No 'a' allowed here")   @ 8, 200 EDIT nVal1 OF oDlg SIZE 160, 20 PIXEL   @ 72, 200 EDIT nVal2 OF oDlg SIZE 160, 20 PIXEL      @ 136, 110 BUTTON "Ok"  PIXEL SIZE 80,32;      ACTION MsgInfo( cFirst + ", " + cLast+ ":" +Transform(nVal1,"@E") + "; "+Transform(nVal2,"@E") )   @ 136, 210 BUTTON "Cancel" ACTION oDlg:End() PIXEL  SIZE 80,32return//----------------------------------------------------------------------------//

In this example you can see the "on update" and "on change" at work.
If you link with common control v.6 you can see the cue banner also, they can not work on TGet because it is never empty.

To compile, need to change the macro in fivewin.ch in this way:

Code: Select all | Expand

/*----------------------------------------------------------------------------//!short: EDIT  */#command @ <nRow>, <nCol> EDIT [ <oEdit> VAR ] <uVar> ;            [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;            [ SIZE <nWidth>, <nHeight> ] ;            [ <lPixel: PIXEL, PIXELS > ] ;            [ FONT <oFont> ]  ;            [ <pict: PICT, PICTURE> <cPict> ] ;            [ ON CHANGE <uChange> ] ;            [ ON UPDATE <uUpdate> ] ;            [ ON SCROLL <uScroll> ] ;       => ;          [ <oEdit> := ] TEdit():New( <nRow>, <nCol>, bSETGET(<uVar>),;            [<oWnd>], <nWidth>, <nHeight>, <.lPixel.>, <oFont>, <cPict>,;            [\{|nKey, nFlags, Self| <uChange>\}],;            [\{|Self| <uUpdate>\}],;            [\{|Self| <uScroll>\}],)#xcommand REDEFINE EDIT [ <oEdit> VAR ] <uVar> ;            [ ID <nId> ] ;            [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;            [ <pict: PICT, PICTURE> <cPict> ] ;            [ ON CHANGE <uChange> ] ;            [ ON UPDATE <uUpdate> ] ;            [ ON SCROLL <uScroll> ] ;       => ;          [ <oEdit> := ] TEdit():Redefine( <nId>, [<oWnd>],;                                           bSETGET(<uVar>), <cPict>,;            [\{|nKey, nFlags, Self| <uChange>\}],;            [\{|Self| <uUpdate>\}],;            [\{|Self| <uScroll>\}],)

[Antonio Linares]

Antonino,

many thanks! Added for next FWH version.

> If you link with common control v.6 you can see the cue banner also

Could you explain how to do it ? thanks

[AntoninoP]

> If you link with common control v.6 you can see the cue banner also

Could you explain how to do it ? thanks

It is when you add a manifest in the resources with this dependency:

Code: Select all | Expand

<dependency>    <dependentAssembly>        <assemblyIdentity            type="win32"            name="Microsoft.Windows.Common-Controls"            version="6.0.0.0"            processorArchitecture="X86"            publicKeyToken="6595b64144ccf1df"            language="*"        />    </dependentAssembly></dependency>

see: "Common controls" version "6".

How do you explain it?

[Antonio Linares]

many thanks!