FiveTech Support Forums

    @ 10,20 GET oGet VAR cVar PICTURE "@!" DESIGN SIZE 20,60 PIXEL OF oDlgEdit UPDATE

#include "FiveWin.ch"  
 
function Main()        
 
   local oDlg
 
   DEFINE DIALOG oDlg TITLE "Test"        
 
   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT PlaceControls( oDlg ) 
 
return nil 

function PlaceControls( oDlg )

   local oGet, cVar := "Hello"        

   @ 20, 20 GET oGet VAR cVar PICTURE "@!" DESIGN SIZE 80, 25 PIXEL OF oDlg UPDATE 

return nil

#include "FiveWin.ch"

static oWnd
function Main()
local oDlg

    DEFINE WINDOW oWnd      ;
      MDI                   ;

   ACTIVATE WINDOW oWnd MAXIMIZED;
            ON INIT ExibJanela()

RETURN NIL

FUNCTION EXIBJANELA()

   DEFINE DIALOG oDlg TITLE "Test" OF OWND

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT (PlaceControls( oDlg ))

return nil

function PlaceControls( oDlg )

   local oGet, cVar := "Hello"

   @ 20, 20 GET oGet VAR cVar PICTURE "@!" DESIGN SIZE 80, 25 PIXEL OF oDlg UPDATE

return nil

   ...

   while( GetParent( hWndParent ) )
   {
      char ClassName[ 100 ];  // new !
      
      GetClassName( hWndParent, ClassName, 99 );  // new !
      
      if( strcmp( ClassName, "#32770" ) == 0 ) // a Modal Dialog     // new !
         break;    // new !
    
      hWndParent = GetParent( hWndParent );
      ...

   while( GetParent( hWndParent ) )
   {
      char ClassName[ 100 ];  // new !

      GetClassName( hWndParent, ClassName, 99 );  // new !

      if( strcmp( ClassName, "#32770" ) == 0 ) // new !
         break;    // new !

      hWndParent = GetParent( hWndParent );

      if( ( GetWindowLong( hWndParent, GWL_STYLE ) & WS_CAPTION ) == WS_CAPTION )
         iParentsWithCaption++;
   }