FiveTech Software tech support forums

Code: Select all | Expand

#include "bitmap.ch"
/// #include "/dev/fw24/include/winapi.ch" for Clippe/Blinker 
#define IDHELP 998

BITMAP_TOP BITMAP "bitmaps/top.bmp"

BITMAP_PREV BITMAP "bitmaps/prev.bmp"

BITMAP_NEXT BITMAP "bitmaps/next.bmp"

BITMAP_BOTTOM BITMAP "bitmaps/bottom.bmp"

BITMAP_NEW BITMAP "bitmaps/new.bmp"

BITMAP_OK BITMAP "bitmaps/oknormal.bmp"

BITMAP_EDIT BITMAP "bitmaps/edit.bmp"

BITMAP_DEL BITMAP "bitmaps/del.bmp"

ICON_PCREG ICON "small.ico"

1 ICON "pcreg.ico"

GetSN DIALOG 5, 17, 222, 85
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION ""
FONT 8, "MS Sans Serif"
{
 EDITTEXT IDC_EDIT1, 113, 10, 100, 15
 EDITTEXT IDC_EDIT2, 113, 35, 41, 15
 DEFPUSHBUTTON "OK", IDOK, 26, 62, 50, 14
 PUSHBUTTON "Cancel", IDCANCEL, 86, 62, 50, 14
 PUSHBUTTON "Help", IDHELP, 146, 62, 50, 14
 LTEXT "Serial Number:", SAY_1, 50, 13, 60, 15, SS_SIMPLE
 LTEXT "Validation code:", SAY_2, 50, 38, 60, 15, SS_SIMPLE
 CONTROL "", IDC_1, "TBitmap", 0 | WS_CHILD | WS_VISIBLE, 9, 14, 28, 30
}


Main MENU
{
 POPUP "&File"
 {
  MENUITEM "&Printer Assignments", CM_FILE_PRINTER
  MENUITEM SEPARATOR
  MENUITEM "P&references", CM_FILE_PREFERENCES
  MENUITEM SEPARATOR
  MENUITEM "&Check OPOS Devices", CM_CHECK_OPOS
  MENUITEM SEPARATOR
  MENUITEM "E&xit", CM_FILE_EXIT
 }

 POPUP "&Options"
 {
  MENUITEM "&Numpad", CM_OPTIONS_NUMPAD
  MENUITEM "&Button Bar", CM_OPTIONS_BTNBAR
  MENUITEM "&Maximized", CM_OPTIONS_MAX
  MENUITEM "&Double click select", CM_OPTIONS_DBLCLICK
  MENUITEM SEPARATOR
  MENUITEM "&Save settings", CM_OPTIONS_SAVE
 }

 MENUITEM "&Lookup", CM_LOOKUP
 MENUITEM "Fu&nction", CM_FUNCTION
 MENUITEM "&Mode", CM_MODE
// MENUITEM "&Cashier", CM_CASHIER
 MENUITEM "Cler&k", CM_CLERK
// MENUITEM "Add &New Option", CM_NEW_OPTION  // Notes: To add new option declare a new unique identifier at Bitmap.ch -- jdd December 17, 2013 
 POPUP "&Help"
 {
  MENUITEM "&Contents", CM_HELP_CONTENTS
  MENUITEM "&Search", CM_HELP_SEARCH
  MENUITEM "Using &Help", CM_HELP_USING_HELP
  MENUITEM "Show help for &next key or button", CM_HELP_SHOW_HELP
  MENUITEM SEPARATOR
  MENUITEM "&About", CM_HELP_ABOUT
 }

}

PrnAssignDlg DIALOG 6, 17, 194, 230
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Printer Assignments"
FONT 8, "MS Sans Serif"
{
 DEFPUSHBUTTON "OK", IDOK, 12, 210, 50, 14
 PUSHBUTTON "Cancel", IDCANCEL, 72, 210, 50, 14
 PUSHBUTTON "Help", IDHELP, 132, 210, 50, 14
 LTEXT "Port", -1, 12, 3, 30, 12
 LTEXT "Printer Name", -1, 44, 3, 55, 12
 LTEXT "LPT1 =", -1, 12, 15, 30, 12
 LTEXT "LPT2 =", -1, 12, 31, 30, 12
 LTEXT "LPT3 =", -1, 12, 47, 30, 12
 LTEXT "COM1 =", -1, 12, 63, 30, 12
 LTEXT "COM2 =", -1, 12, 79, 30, 12
 LTEXT "COM3 =", -1, 12, 95, 30, 12
 LTEXT "COM4 =", -1, 12, 111, 30, 12
 LTEXT "COM5 =", -1, 12, 127, 30, 12
 LTEXT "COM6 =", -1, 12, 143, 30, 12
 LTEXT "COM7 =", -1, 12, 159, 30, 12
 LTEXT "COM8 =", -1, 12, 175, 30, 12
 LTEXT "COM9 =", -1, 12, 191, 30, 12
 EDITTEXT IDC_LPT1, 44, 14, 140, 12
 EDITTEXT IDC_LPT2, 44, 30, 140, 12
 EDITTEXT IDC_LPT3, 44, 46, 140, 12
 EDITTEXT IDC_COM1, 44, 62, 140, 12
 EDITTEXT IDC_COM2, 44, 78, 140, 12
 EDITTEXT IDC_COM3, 44, 94, 140, 12
 EDITTEXT IDC_COM4, 44, 110, 140, 12
 EDITTEXT IDC_COM5, 44, 126, 140, 12
 EDITTEXT IDC_COM6, 44, 142, 140, 12
 EDITTEXT IDC_COM7, 44, 158, 140, 12
 EDITTEXT IDC_COM8, 44, 174, 140, 12
 EDITTEXT IDC_COM9, 44, 190, 140, 12
}



-Joe

 

Code: Select all | Expand

function BuildMenu()
   local oMenu
   local oError, cText, cAction
   
   local oMportal  // jdolar
   local oMenuItem // jdolar
   local xmenu   // jdd
     
  local oPmenu,oPmItem1,oPmItem2,oPmItem3 //

   if file('menu.dbf')

      // Create menu from menu.dbf
      menu oMenu

      // atotdrive not defined yet OpnFiles( "MENU", 'O', ProcName() )

      use menu index menu new
      if select('MENU') > 0
         select MENU
         go top

         begin sequence

            do while ! eof()
               if MENU->TYPE = 0
                  menu
               elseif MENU->TYPE = 1
                  // menuitem
                  cText := trim(MENU->TEXT)
                  cAction := trim(MENU->ACTION)
                  if empty(cAction)
                     menuitem cText file BitmapFile("BITMAP")
                  else
                     if MENU->V_KEY != 0
                        menuitem cText block OnKeyBlock(cAction) accelerator MENU->KEY_STATE, MENU->V_KEY file BitmapFile("BITMAP")
                     else
                        menuitem cText block OnKeyBlock(cAction) file BitmapFile("BITMAP")
                     endif
                  endif
               elseif MENU->TYPE = 2
                  separator
               elseif MENU->TYPE = 3
                  endmenu
               endif
               skip
            enddo

         recover using oError

            alert(oError:Description)

         endsequence

         use // OpnFiles( "MENU", 'C', ProcName() )
      endif

      endmenu

   else
      // Create menu from resources

      oMenu:=TMenu():ReDefine("Main",.f.)
      redefine menuitem id CM_FILE_PRINTER of oMenu;
         block {|| OnKey(0,{|| PrnAssign()})}
      redefine menuitem id CM_FILE_PREFERENCES of oMenu;
         block {|| OnKey(0,{|| ExpressFile("REGSETUP.EXP")})}
* Windows8 - Check OPOS devices *** JDD 
      redefine menuitem id CM_CHECK_OPOS of oMenu;
         block {|| OnKey(0,{|| CheckOPOSHealth()})}
**** end ***
      redefine menuitem id CM_FILE_EXIT of oMenu;
         block {|| GetWndFrame():End()} ;
         MESSAGE "Exit " + cProgTitle( )

      aObject[AO_OPTION][1]:=TMenuItem():ReDefine(,,alOption(1), .t.,,,,oMenu,;
         {|| alOption(1,!alOption(1)),NumPad()};
         ,CM_OPTIONS_NUMPAD)

      aObject[AO_OPTION][2]:=TMenuItem():ReDefine(,,alOption(2),.t.,,,,oMenu,;
         {|| BuildBar(,.f.),alOption(2,!alOption(2)),BuildBar(,.t.)};
         ,CM_OPTIONS_BTNBAR)

      aObject[AO_OPTION][3]:=TMenuItem():ReDefine(,,alOption(3),.t.,,,,oMenu,;
         {|| alOption(3,!alOption(3)),;
         if(alOption(3),GetWndFrame():Maximize(),GetWndFrame():Restore())};
         ,CM_OPTIONS_MAX)

      aObject[AO_OPTION][4]:=TMenuItem():ReDefine(,,alOption(4),.t.,,,,oMenu,;
         {|| alOption(4,!alOption(4))};
         ,CM_OPTIONS_DBLCLICK)

      redefine menuitem id CM_OPTIONS_SAVE of oMenu block {|| alOption(,,.t.)}
      redefine menuitem id CM_LOOKUP of oMenu block {|| OnKey(0,{|| LW()})}
      redefine menuitem id CM_FUNCTION of oMenu block {|| OnKey(0,{|| FunChoice()})}
      redefine menuitem id CM_MODE of oMenu block {|| OnKey(0,{|| Mode()})}

********* remove cashier (PC/Reg v112106) ***  /jdd - Clip2Harb - Note: edit the RC file to modify options
//  redefine menuitem id CM_CASHIER of oMenu block {|| OnKey(0,{|| Cashier()})}
//    redefine menuitem oMportal Prompt "Test Odbc" id CM_CASHIER of oMenu block {|| OnKey(0,{|| ExpressFile("PORTAL")})}
//      redefine menuitem oMportal Prompt "Reports" id CM_CASHIER of oMenu block {|| OnKey(0,{|| ExpressFile("PORTAL")})}
//      oMportal:destroy()
******************************* pcreg v112106 ***********************************

********** replace Call to clerk() with EXPRESSFILE("CLERK.EXP") (PC/Reg v112106) ***********
//    redefine menuitem id CM_CLERK of oMenu block {|| OnKey(0,{|| Clerk()})}
      redefine menuitem id CM_CLERK of oMenu block {|| OnKey(0,{||ExpressFile("clerk.exp")})}
***************************** (PC/Reg v112106) ***********************************************

      redefine menuitem id CM_HELP_CONTENTS of oMenu block {|| HelpIndex()}
      redefine menuitem id CM_HELP_SEARCH of oMenu block {|| HelpSearch()}
      redefine menuitem id CM_HELP_USING_HELP of oMenu block {|| WinHelp("windows.chm")}
/*
 ***** the following codes add a pulldown menu - jdd (just in case we need it *****
    menu
      MENUITEM oMenuItem prompt "Test" && Block {||alert("here")}
         menu
            MENUITEM "Test odbc" Block {||ls_testODBC()}
            MENUITEM "Test2" Block {||alert("here2")}
         endmenu
    endmenu
    oMenu:insert(oMenuItem,,2)
*****************************************************************************************
*/
#ifdef __HARBOUR__
       aObject[AO_SHOWHELP] := TMenuItem():ReDefine(,, .F.,,,,, oMenu, ;
          {|| aObject[AO_SHOWHELP]:SetCheck(!aObject[AO_SHOWHELP]:lChecked)}, CM_HELP_SHOW_HELP,,,, )
#else
      redefine menuitem aObject[AO_SHOWHELP] prompt id CM_HELP_SHOW_HELP of oMenu;
         block {|| aObject[AO_SHOWHELP]:SetCheck(!aObject[AO_SHOWHELP]:lChecked)}
#endif
      redefine menuitem id CM_HELP_ABOUT of oMenu block ;
         {|| About()}

   endif

return oMenu

 

Code: Select all | Expand

#define IDC_COM9    112
#define IDC_COM8    111
#define IDC_COM7    110
#define IDC_COM6    109
#define IDC_COM5    108
#define IDC_COM4    107
#define IDC_COM3    106
#define IDC_COM2    105
#define IDC_COM1    104
#define IDC_LPT3    103
#define IDC_LPT2    102
#define IDC_LPT1    101
#define CM_LOOKUP   106
#define CM_FUNCTION 107
#define CM_CASHIER  108
#define CM_CLERK    109
#define CM_FILE_PREFERENCES 118
#define CM_OPTIONS_DBLCLICK 117
#define CM_HELP_SHOW_HELP   116
#define CM_FILE_PRINTER 115
#define CM_FILE_CHECKHEALTH 115
#define CM_MODE 114
#define CM_HELP_USING_HELP  113
#define CM_HELP_SEARCH  112
#define CM_HELP_CONTENTS    111
#define CM_HELP_ABOUT   110
#define CM_OPTIONS_SAVE 105
#define CM_OPTIONS_MAX  104
#define CM_OPTIONS_BTNBAR   103
#define CM_OPTIONS_NUMPAD   102
#define CM_FILE_EXIT    101
#define IDC_EDIT1   120
#define IDC_EDIT2   121
#define IDC_1   122
#define SAY_2   131
#define SAY_1   130
#define BITMAP_DEL          23
#define BITMAP_EDIT         22
#define BITMAP_OK               21
#define BITMAP_NEW          20
#define BITMAP_BOTTOM       17
#define BITMAP_NEXT         16
#define BITMAP_PREV         15
#define BITMAP_TOP          14
#define BITMAP_PCREG            129
#define ICON_PCREG          130
#define CM_CHECK_OPOS       131
//#define CM_NEW_OPTION     132  Notes: use this #define in the future.  We also need change/update pcreg.rc