FiveTech Software tech support forums

Code: Select all

#Include 'FwCe.Ch'

Function TestClose ()

   Local oWnd := Nil

   Define Window oWnd Title 'Test Close'
   @ 100,  10 Say 'This is main window' Size 150, 15 Pixel
   @ 200, 178 Button '>>' Size 60, 20 Pixel Action IIf (NextWindow (), Nil, oWnd : End ())
   Activate Window oWnd On Init EmptyMenu (oWnd : hWnd)

Return .T.

Function NextWindow ()

   Local oWnd := Nil
   Local lRet := .F.

   Define Window oWnd Title 'Next Window'
   @ 100,  10 Say 'This is next window' Size 150, 15 Pixel
   @ 200, 178 Button 'OK' Size 60, 20 Pixel Action (lRet := .T., oWnd : End ())
   Activate Window oWnd On Init EmptyMenu (oWnd : hWnd)

Return lRet

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>
#include <aygshell.h>
#include <uniqueid.h>
#include <objbase.h>

HB_FUNC (EMPTYMENU)
{
   SHINITDLGINFO shidi;
   HWND hWnd = (HWND) hb_parnl (1);
   SHMENUBARINFO mbi;

   shidi.dwMask  = SHIDIM_FLAGS;
   shidi.hDlg    = hWnd;
   shidi.dwFlags = SHIDIF_DONEBUTTON;
   SHInitDialog (&shidi);

   memset(&mbi, 0, sizeof (SHMENUBARINFO));
   mbi.cbSize = sizeof (SHMENUBARINFO);
   mbi.hwndParent = hWnd;
   mbi.dwFlags = SHCMBF_EMPTYBAR;
   SHCreateMenuBar (&mbi);

}

#pragma ENDDUMP

Code: Select all

   @ 200, 178 Button oBtn PROMPT '>>' Size 60, 20 Pixel ;
      Action ( oBtn:bAction := nil, NextWindow() )