Boton cerrar en dialogo.
Posted: Tue Jul 06, 2010 11:35 pmcomo se puede colocar en un dialogo en vez de la x para cerar, el ok que sale en msginfo.
Gracias.
Gracias.
- Code: Select all Expand view
- // FiveWin for Pocket PC - Using DialogBoxes
#include "FWCE.ch"
//----------------------------------------------------------------------------//
function Main()
local oWnd
DEFINE WINDOW oWnd TITLE "OK-Button" ;
MENU BuildMenu()
ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "Click!" )
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
DEFINE MENU oMenu RESOURCE 102
REDEFINE MENUITEM ID 100 OF oMenu ACTION ShowDialog()
REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgAlert( "FWCE power!" )
return oMenu
//----------------------------------------------------------------------------//
function ShowDialog()
local oDlg
DEFINE DIALOG oDlg RESOURCE "test"
REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg:End() // IDOK == 1
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT SetOKButton( oDlg:hWnd )
if oDlg:nResult == 1
Msginfo( "Top-right ok button was pressed" )
endif
return nil
//----------------------------------------------------------------------------//
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
#include <aygshell.h>
HB_FUNC( SETOKBUTTON )
{
SHINITDLGINFO shidi;
shidi.dwMask = SHIDIM_FLAGS;
shidi.hDlg = ( HWND ) hb_parnl( 1 );
shidi.dwFlags = SHIDIF_DONEBUTTON | SHIDIF_SIZEDLGFULLSCREEN;
SHInitDialog( &shidi );
}
#pragma ENDDUMP
//----------------------------------------------------------------------------//