Losing TAB and ENTER key Navigation

Losing TAB and ENTER key Navigation

Postby fraxzi » Wed Feb 15, 2012 2:23 am

Dear All,

After changing parent from dialog to mdichild window.. TAB and ENTER key no longer functioning, if not all, but to some objects..

Any idea?


in Dialog..
Code: Select all  Expand view

...
ON INIT uChangeParent( oDlg, oMDiChild )
...

FUNCTION uChangeParent( oDlg, oChild )
 LOCAL i

 FOR i := 1 TO Len( oDlg:aControls )

     SetParent( oDlg:aControls[ i ]:hWnd, oChild:hWnd )
     AAdd( oChild:aControls, oDlg:aControls[ i ] )

     oDlg:aControls[ i ]:oWnd := oChild

 NEXT

RETURN NIL

 
Kind Regards,
Frances

Fivewin for xHarbour v18.07
xHarbour v1.2.3.x
BCC 7.3 + PellesC8 ( Resource Compiler only)
ADS 10.1 / MariaDB
Crystal Reports 8.5/9.23 DE
xMate v1.15
User avatar
fraxzi
 
Posts: 811
Joined: Tue May 06, 2008 4:28 am
Location: Philippines

Re: Losing TAB and ENTER key Navigation

Postby Antonio Linares » Wed Feb 15, 2012 9:26 am

Frances,

A MdiChild window does not use the same built-in window API procedure as a dialog, thats why there are differences.

If you post a small example of some of those differences, we may implement them in the Class TMdiChild :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42098
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Losing TAB and ENTER key Navigation

Postby fraxzi » Wed Feb 15, 2012 1:37 pm

Dear Mr. Antonio,

Yes I will post simplified sample later..
Kind Regards,
Frances

Fivewin for xHarbour v18.07
xHarbour v1.2.3.x
BCC 7.3 + PellesC8 ( Resource Compiler only)
ADS 10.1 / MariaDB
Crystal Reports 8.5/9.23 DE
xMate v1.15
User avatar
fraxzi
 
Posts: 811
Joined: Tue May 06, 2008 4:28 am
Location: Philippines

Re: Losing TAB and ENTER key Navigation

Postby frose » Tue Feb 21, 2012 12:19 pm

Hi,

for me the TAB key is ok, but as Antonio already stated...

Here is a sample:
Code: Select all  Expand view
#include "FiveWin.ch"

FUNCTION Main()
   LOCAL oWnd

   USE Customer

   DEFINE WINDOW oWnd TITLE "Test" MDI

   ACTIVATE WINDOW oWnd ON INIT BuildChild()

RETURN nil

FUNCTION BuildChild()
   LOCAL oChild

   DEFINE WINDOW oChild TITLE "A Child Window" MDICHILD COLOR 0

   ACTIVATE WINDOW oChild ON INIT BuildDialog( oChild ) VALID ( .T. )

RETURN nil

FUNCTION BuildDialog( oChild )
   LOCAL oDlg
   LOCAL oGroup
   LOCAL oBrw
   LOCAL oGet
   LOCAL oGet2
   LOCAL nID
   LOCAL cNotes
   LOCAL oText
   LOCAL oBtn
   
   LOCAL lExit := .F.
   LOCAL cAlias := "CUSTOMER"

   SetDlgGradient( { { 1, RGB( 199, 150, 237 ), RGB( 237, 242, 248 ) } } )
   
   DEFINE DIALOG oDlg FROM 50, 50 TO 600, 1400 TITLE "A Dialog Box" PIXEL
   
   //@ 1, 5 GROUP oGroup TO 250, 250 PROMPT "This is a GROUP for some dialog elements:" OF oDlg PIXEL TRANSPARENT

   @ 1,  2 CHECKBOX lExit PROMPT "This is a first  CHECKBOX with a long text description" OF oDlg COLOR CLR_BLUE, CLR_BLACK
   @ 2,  2 CHECKBOX lExit PROMPT "This is a second CHECKBOX with a long text description" OF oDlg

   @ 4,  2 SAY "First:" OF oDlg
   @ 4, 10 GET oGet VAR ( cAlias )->FIRST OF oDlg
   @ 5,  2 SAY "Last:" OF oDlg
   @ 5, 10 GET oGet VAR ( cAlias )->LAST OF oDlg

   @ 7, 2 SAY oText PROMPT "Street: " + ( cAlias )->STREET OF oDlg COLOR CLR_BLACK, CLR_WHITE
   oText:bGet := { || "Street: " + ( cAlias )->STREET }
   
   @ 8, 2 SAY oText PROMPT "City: " + ( cAlias )->CITY OF oDlg COLOR CLR_BLACK, CLR_WHITE
   oText:bGet := { || "City: " + ( cAlias )->CITY }
   
   // GET field with memory variable
   @ 10,  2 SAY "Notes:" OF oDlg
   cNotes := ( cAlias )->NOTES
   @ 13,  0 GET oGet2 VAR cNotes OF oDlg
   //oGet2:bSetGet := { || ( cAlias )->NOTES }
   nID := oGet2:nID

   oBrw := TXBrowse():New( oDlg )
   oBrw:CreateFromCode()
   oBrw:nTop      := 3
   oBrw:nLeft     := 255
   oBrw:nBottom   := 250
   oBrw:nRight    := 600
   oBrw:cAlias    := cAlias
   oBrw:bChange   := { ||  Refresh_Dialog( oChild, nID ) }
   oBrw:SetRDD()

   @  12,  2 BUTTON "&Ok" OF oDlg SIZE 40, 12 ACTION( Save_Changes( oChild ) ) DEFAULT
   @  12, 10 BUTTON oBtn PROMPT "&Cancel" OF oDlg SIZE 40, 12 ACTION( oChild:End() )
   @  12, 18 BUTTON "&Back" OF oDlg SIZE 40, 12 ACTION( ( cAlias )->( DbSkip( - 1 ) ), Refresh_Dialog( oChild, nID ) )
   @  12, 26 BUTTON "&Next" OF oDlg SIZE 40, 12 ACTION( ( cAlias )->( DbSkip( 1 ) ), Refresh_Dialog( oChild, nID ) )

   ACTIVATE DIALOG oDlg NOWAIT ON INIT ChangeParent( oDlg, oChild )
   //ACTIVATE DIALOG oDlg

   oDlg:End()

RETURN NIL

FUNCTION ChangeParent( oDlg, oChild )
   LOCAL i
   
   FOR i := 1 TO Len( oDlg:aControls )
    
      SetParent( oDlg:aControls[ n ] :hWnd, oChild:hWnd )
      AAdd( oChild:aControls, oDlg:aControls[ n ] )
     
      oDlg:aControls[ n ] :oWnd := oChild
   NEXT

RETURN NIL

FUNCTION Refresh_Dialog( oChild, nID )
    LOCAL i
    LOCAL nLength
   
   nLength := Len( oChild:aControls )
   FOR i := 1 TO nLength
    oChild:aControls[ i ] :Refresh()
    IF oChild:aControls[ i ] :nID == nID
        oChild:aControls[ i ] :cCaption := CUSTOMER->NOTES
    ENDIF
   NEXT
RETURN NIL

FUNCTION Save_Changes( oChild )
    // Save
   MsgInfo( "Here is the 'Ok'-Button'" )
RETURN NIL


And here are the notes/differences I've found:
- The SetDlgGradient() call is ignored
- The check boxes overwrites the browse
- RETURN key doesn't executes the DEFAULT button
- (Solved???, see: viewtopic.php?f=3&t=22940) Tranparences are not functional, e. g. see the effect of
Code: Select all  Expand view
@ 1, 5 GROUP oGroup TO 250, 250 PROMPT "This is a GROUP for some dialog elements:" OF oDlg PIXEL TRANSPARENT


BTW: I want to update/save some fields, if the user click the 'Ok'-button, so I can't refer directly to the table fields like STREET and CITY! Therefor, I have defined a temporary variable <cNotes> for the NOTES field, but I don't know how to refresh this element. My first try with <nID> and setting <cCaption> isn't functional :( What's wrong resp. best practice to do this job?
Windows 11 Pro 22H2 22621.1848
Microsoft (R) Windows (R) Resource Compiler Version 10.0.10011.16384
Harbour 3.2.0dev (r2008190002)
FWH 23.10 x86
User avatar
frose
 
Posts: 392
Joined: Tue Mar 10, 2009 11:54 am
Location: Germany, Rietberg


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 39 guests