FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Language C ( To Antonio )
lailton.webmaster
Posts: 603
Joined: Sun May 04, 2008 08:44 PM

Re: Language C ( To Antonio )

Posted: Mon Jul 27, 2009 01:52 AM
Daniel, aqui estas uno exemplo


Code (fw): Select all Collapse
/*-----------------------------------------------------------------------------------------------*/
#include "fivewin.ch"
/*-----------------------------------------------------------------------------------------------*/
function main()
 
 public ownd, oact, progid:="Agent.Control.2"
 define window ownd color 0,0
 
        oAct:=MyClass():New(ownd,progid,100,100,100,100)

//     erros con los testes
//       ownd:=oAct
//      ownd:=oAct:hWnd

 activate window ownd

return nil
/*-----------------------------------------------------------------------------------------------*/
CLASS myCLASS From TControl
DATA hWnd
      method new() Constructor
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
method new(win,prog,nTop,nLeft,nBottom,nRight) CLASS myClass
       ::hWnd:=CRWIN(win:hWnd,prog,nTop,nLeft,nBottom,nRight)
return self
/*-----------------------------------------------------------------------------------------------*/
#pragma BEGINDUMP
#include <hbvmopt.h>
#include <windows.h>
#include <commctrl.h>
#include <hbapi.h>
#include <hbvm.h>
#include <hbstack.h>
#include <ocidl.h>
#include <hbapiitm.h>
#ifdef HB_ITEM_NIL
   #define hb_dynsymSymbol( pDynSym )        ( ( pDynSym )->pSymbol )
#endif
PHB_SYMB s___GetMessage = NULL;
typedef HRESULT ( WINAPI *LPAtlAxWinInit )       ( void );
typedef HRESULT ( WINAPI *LPAtlAxGetControl )    ( HWND, IUnknown** );
typedef HRESULT ( WINAPI *LPAtlAxCreateControl ) ( LPCOLESTR, HWND, IStream*, IUnknown** );
HMODULE hDll = NULL;
LPAtlAxWinInit       AtlAxWinInit;
LPAtlAxGetControl    AtlAxGetControl;
LPAtlAxCreateControl AtlAxCreateControl;
static void LoadAtl( void )
{
   if( ! hDll )
   {
      hDll = LoadLibrary( "Atl.dll" );
      AtlAxWinInit       = ( LPAtlAxWinInit )       GetProcAddress( hDll, "AtlAxWinInit" );
      AtlAxGetControl    = ( LPAtlAxGetControl )    GetProcAddress( hDll, "AtlAxGetControl" );
      AtlAxCreateControl = ( LPAtlAxCreateControl ) GetProcAddress( hDll, "AtlAxCreateControl" );
      AtlAxWinInit();
   }
}/*-----------------------------------------------------------------------------------------------*/
HB_FUNC( CRWIN)
{
   HWND hWndCtrl;
   LoadAtl();
       hWndCtrl = CreateWindowEx(
      (DWORD) 0                             , // nExStyle
      (LPCTSTR) "AtlAxWin"                  , // cClsName
      (LPCTSTR) hb_parc( 2 )                , // cProgId
      (DWORD)   WS_CHILD | WS_VISIBLE | WS_TABSTOP      , // style
      (INT)     hb_parni( 3 )               , // nLeft
      (INT)     hb_parni( 4 )               , // nTop
      (INT)     hb_parni( 5 )               , // nWidth
      (INT)     hb_parni( 6 )               , // nHeight
      (HWND)    hb_parnl( 1 )               , // OParent:handle
       0,
       0,
       NULL );
   hb_retnl( (long) hWndCtrl );
}
/*-----------------------------------------------------------------------------------------------*/
#pragma ENDDUMP
/*-----------------------------------------------------------------------------------------------*/
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM

Re: Language C ( To Antonio )

Posted: Mon Jul 27, 2009 08:44 AM
Lailton...

From this post viewtopic.php?p=76632#p76632

Code (fw): Select all Collapse
/*-----------------------------------------------------------------------------------------------*/
#include "fivewin.ch"
#include "Constant.ch"

/*-----------------------------------------------------------------------------------------------*/
function main()
 
 local oWnd, oAct, cProgid:="Agent.Control.2"
 define window oWnd color 0,0
 
        oAct := MyClass():New( oWnd, cProgid, 100, 100, 100, 100 )

//     erros con los testes
       ownd:oClient:=oAct
//      ownd:=oAct:hWnd

 activate window oWnd

return nil

/*-----------------------------------------------------------------------------------------------*/

#define COLOR_BTNFACE      15

CLASS myCLASS From TControl

   DATA hWnd
   
   method New() Constructor
   
   
ENDCLASS
 
/*-----------------------------------------------------------------------------------------------*/       
       
METHOD New( oWnd, cProgId, nTop, nLeft, nBottom, nRight, nClrFore, nClrBack, lPixel,;
            lDesign, cMsg, lVertical ) CLASS myCLASS

   DEFAULT nTop     := 0, nLeft := 0,;
           oWnd     := GetWndDefault(),;
           nClrFore := oWnd:nClrText,;
           nClrBack := GetSysColor( COLOR_BTNFACE ),;
           lPixel   := .f.,;
           lDesign  := .f.,;
           nRight   := 200, nBottom := 21,;
           lVertical := .f.

   ::nId       = ::GetNewId()
   ::oWnd      = oWnd
   ::cMsg      = cMsg
   ::nTop      = If( lPixel, nTop, nTop * SAY_CHARPIX_H )
   ::nLeft     = If( lPixel, nLeft, nLeft * SAY_CHARPIX_W )
   ::nBottom   = nBottom
   ::nRight    = nRight
   ::lDrag     = lDesign
   ::lCaptured = .f.
   ::nClrText  = nClrFore
   ::nClrPane  = nClrBack

   ::Register()

   if ! Empty( oWnd:hWnd )
      ::hWnd:=CRWIN( oWnd:hWnd, cProgId, nTop, nLeft, nBottom, nRight )
//      ::Create()
      ::Default()
      oWnd:AddControl( Self )
   else
      oWnd:DefControl( Self )
   endif

   if lDesign
      ::CheckDots()
   endif

return Self       
       
       
return self
/*-----------------------------------------------------------------------------------------------*/
#pragma BEGINDUMP
//#include <hbvmopt.h>
#include <windows.h>
#include <commctrl.h>
#include <hbapi.h>
#include <hbvm.h>
//#include <hbstack.h>
#include <ocidl.h>
//#include <hbapiitm.h>
#ifdef HB_ITEM_NIL
   #define hb_dynsymSymbol( pDynSym )        ( ( pDynSym )->pSymbol )
#endif

PHB_SYMB s___GetMessage = NULL;
typedef HRESULT ( WINAPI *LPAtlAxWinInit )       ( void );
typedef HRESULT ( WINAPI *LPAtlAxGetControl )    ( HWND, IUnknown** );
typedef HRESULT ( WINAPI *LPAtlAxCreateControl ) ( LPCOLESTR, HWND, IStream*, IUnknown** );
HMODULE hDll = NULL;
LPAtlAxWinInit       AtlAxWinInit;
LPAtlAxGetControl    AtlAxGetControl;
LPAtlAxCreateControl AtlAxCreateControl;

static void LoadAtl( void )
{
   if( ! hDll )
   {
      hDll = LoadLibrary( "Atl.dll" );
      AtlAxWinInit       = ( LPAtlAxWinInit )       GetProcAddress( hDll, "AtlAxWinInit" );
      AtlAxGetControl    = ( LPAtlAxGetControl )    GetProcAddress( hDll, "AtlAxGetControl" );
      AtlAxCreateControl = ( LPAtlAxCreateControl ) GetProcAddress( hDll, "AtlAxCreateControl" );
      AtlAxWinInit();
   }
}

/*-----------------------------------------------------------------------------------------------*/

HB_FUNC( CRWIN)
{
   HWND hWndCtrl;
   LoadAtl();
       hWndCtrl = CreateWindowEx(
      (DWORD) 0                             , // nExStyle
      (LPCTSTR) "AtlAxWin"                  , // cClsName
      (LPCTSTR) hb_parc( 2 )                , // cProgId
      (DWORD)   WS_CHILD | WS_VISIBLE | WS_TABSTOP      , // style
      (INT)     hb_parni( 3 )               , // nLeft
      (INT)     hb_parni( 4 )               , // nTop
      (INT)     hb_parni( 5 )               , // nWidth
      (INT)     hb_parni( 6 )               , // nHeight
      (HWND)    hb_parnl( 1 )               , // OParent:handle
       0,
       0,
       NULL );
   hb_retnl( (long) hWndCtrl );
}
/*-----------------------------------------------------------------------------------------------*/

#pragma ENDDUMP
/*-----------------------------------------------------------------------------------------------*/
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
lailton.webmaster
Posts: 603
Joined: Sun May 04, 2008 08:44 PM

Re: Language C ( To Antonio )

Posted: Mon Jul 27, 2009 09:36 AM

THanks so much ! :D

Continue the discussion

Static archive · New replies & topics via GitHub Discussions