[Hwgui-commits] SF.net SVN: hwgui:[1834] trunk/hwgui

[<LF...@us...>]

Revision: 1834
          http://hwgui.svn.sourceforge.net/hwgui/?rev=1834&view=rev
Author:   LFBASSO
Date:     2012-01-21 00:02:00 +0000 (Sat, 21 Jan 2012)
Log Message:
-----------
2012-01-20 21:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
  * source/hedit.prg
    * FUNCTION NextFocus
	  ! minor fix in DIALOGS RESOURCE

Modified Paths:
--------------
    trunk/hwgui/Changelog
    trunk/hwgui/source/hedit.prg

Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog	2012-01-20 14:10:05 UTC (rev 1833)
+++ trunk/hwgui/Changelog	2012-01-21 00:02:00 UTC (rev 1834)
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
 */
 
+2012-01-20 21:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
+  * source/hedit.prg
+    * FUNCTION NextFocus
+	  ! minor fix in DIALOGS RESOURCE
 
 2012-01-20 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
   * samples

Modified: trunk/hwgui/source/hedit.prg
===================================================================
--- trunk/hwgui/source/hedit.prg	2012-01-20 14:10:05 UTC (rev 1833)
+++ trunk/hwgui/source/hedit.prg	2012-01-21 00:02:00 UTC (rev 1834)
@@ -1465,6 +1465,7 @@
    ENDIF
    i := AScan( oParent:acontrols, { | o | PtrtouLong( o:handle ) == PtrtouLong( hCtrl ) } )
    oCtrl := IIf( i > 0, oParent:acontrols[ i ], oParent )
+
    IF nSkip != 0
       nextHandle := IIF( oParent:className == "HTAB", NextFocusTab( oParent, hCtrl, nSkip), ;
                  IIF( oParent:className == oForm:ClassName, NextFocus( oParent, hCtrl, nSkip ),;
@@ -1481,13 +1482,13 @@
       oCtrl:oParent:lGetSkipLostFocus := .T.
    ENDIF
    IF ! Empty( nextHandle )
-      // i := AScan( oparent:acontrols, { | o | o:handle == nextHandle } )
+       i := AScan( oparent:acontrols, { | o | o:handle == nextHandle } )
       //oCtrl := IIF( i > 0, oparent:acontrols[i], oParent)
       IF oForm:classname == oParent:classname  .OR. oParent:className != "HTAB"
          IF oParent:Type = Nil .OR. oParent:Type < WND_DLG_RESOURCE
              SetFocus( nextHandle )
          ELSE
-             PostMessage( oParent:handle, WM_NEXTDLGCTL, nextHandle , 1 )
+            PostMessage( oParent:handle, WM_NEXTDLGCTL, nextHandle , 1 )
          ENDIF
       ELSE
          IF oForm:Type < WND_DLG_RESOURCE .AND. PtrtouLong( oParent:handle ) = PtrtouLong( getFocus() ) //oParent:oParent:Type < WND_DLG_RESOURCE
@@ -1582,7 +1583,7 @@
    lHradio :=  i > 0 .AND. oParent:acontrols[ i ]:CLASSNAME = "HRADIOB"
       // TABs DO resource
    IF oParent:Type = WND_DLG_RESOURCE
-      nextHandle := GetNextDlgGroupItem( oParent:handle , hctrl,( nSkip < 0 ) )
+      nextHandle := GetNextDlgTabItem( nWindow , hctrl,( nSkip < 0 ) )
    ELSE
       IF  lHradio .OR.  lGroup
          nexthandle := GetNextDlgGroupItem( nWindow , hctrl,( nSkip < 0 ) )

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.