FiveTech Support Forums

STATIC oWnd

PROCEDURE Main (cSales)
   LOCAL oIcon, oWindow, oBitMap, oBru, oMenu, nChoice, nI, nIndex, cOption, ;
            cOpts


   * environment
   SETCANCEL(.F.)
   SET _3DLOOK ON
   SET CENTURY ON
   SET CONFIRM OFF
   SET DELETED ON
   SET EPOCH TO 2000
   SET ESCAPE ON
   SET WRAP ON

//   RDDSETDEFAULT("DBFCDX")
   request SIX
   rddRegister( "SIX", 1 )
   rddsetdefault( "SIX" )
    SET FILETYPE TO CDX

    DEFINE BRUSH oBru DISK "logobmp.bmp"
    DEFINE ICON oIcon DISK "logobmp.bmp"

    DEFINE WINDOW oWindow FROM 13,45 TO 51,169 ;
         TITLE "Sample Window";
         BRUSH oBru MENU MainMenu (@oWindow, @oMenu, @nChoice)  ;
         ICON oIcon

    SET MESSAGE OF oWindow TO "Oprima Alt-Letra Subrayada" CLOCK DATE KEYBOARD

    DEFINE BITMAP oBitMap DISK "logobmp.bmp" OF oWindow

   oWnd := oWindow

    oWindow:Center()

   ACTIVATE WINDOW oWindow

   CLOSE DATABASES
RETURN


STATIC PROCEDURE MainMenu (oWindow, oMenu, nChoice)
  SETKEY(ASC("X"), {|| IIF( GetKeyState( ACC_ALT ), EVAL({|| IIF(ALERT( ;
          "¿ Terminar Si/No ?", {"Si", "No"}, "Salir del Programa", 2) == 1, ;
            oWindow:End(), NIL)}), NIL)})

   MENU oMenu
        MENUITEM "&File"      MESSAGE "Utilidades sobre archivos, Terminar"
        MENU
            MENUITEM "&Salir Alt-X" ;
                ACTION IIF(ALERT("¿ Terminar Si/No ?", {"Si", "No"}, ;
                                 "Salir del Programa", 2) == 1, oWindow:End(), NIL);
                MESSAGE "Salir del programa"
        ENDMENU

        MENUITEM "&Mantenimiento"  MESSAGE "Datos sobre Clientes"
         MENU
            MENUITEM "&Sample"          MESSAGE "Mantenimiento a Inventario" ;
                    ACTION Mant(@oWindow)
            MENUITEM "&Records"          MESSAGE "Ver La Base De Datos" ;
                    ACTION DispRecs()
        ENDMENU
    ENDMENU
RETURN
* EOP: MainMenu

STATIC oWnd, c_Path 

FUNCTION Main ()
LOCAL oIcon, oBru, oMenu, nChoice := 1, nI, nIndex, cOption, cOpts

* environment
SETCANCEL(.F.)
SET _3DLOOK ON
SET CENTURY ON
SET CONFIRM OFF
SET DELETED ON
SET EPOCH TO 2000
SET ESCAPE ON
SET WRAP ON
SetBalloon( .T. ) // Balloon shape required for tooltips
c_Path := CURDRIVE() + ":\" + GETCURDIR()

DEFINE BRUSH oBru DISK c_path + "\Bitmaps\Paper.Bmp"
DEFINE ICON oIcon DISK c_path + "\Bitmaps\case.bmp"

DEFINE WINDOW oWnd FROM 10, 10 TO 500, 800 PIXEL ;
TITLE "Sample Window";
BRUSH oBru MENU MainMenu (oMenu, nChoice) ICON oIcon

SET MESSAGE OF oWnd TO "Oprima Alt-Letra Subrayada" CLOCK DATE KEYBOARD

// Transparent 255 = full transparent

ACTIVATE WINDOW oWnd ;
ON INIT oWnd:Center() ;
ON PAINT  NEW_LOGO1(hDC, 255, 0.5, 30, 400, "Logo.bmp" )  

oBru:End()
oIcon:End()

RETURN

// ------------------ LOGO -----------

FUNCTION NEW_LOGO1(hDC, nTransp, nResize, nTop, nLeft, cLogo)
LOCAL oLogo, oTmp, hBmpO, nLW, nLH 

// get original Image-size
// ---------------------------
DEFINE IMAGE oTmp FILENAME c_path + "\Bitmaps\" + cLogo 
nLW := oTmp:nWidth()
nLH := oTmp:nHeight()
oTmp:End()

// Load and detect Alpha-image
// ----------------------------------
oLogo := FILoadImg( c_path + "\Bitmaps\" + cLogo )
lAlpha := HasAlpha( oLogo )

// Resize = 0, displays original Logo-size
// ---------------------------------------------
IF nResize <> 0
    hBmpO := oLogo
    oLogo := ResizeImg( hBmpO, nLW * nResize, nLH  * nResize ) 
    DeleteObject( hBmpO )
ENDIF

IF lAlpha = .T.
    ABPaint( hDC, nLeft, nTop, oLogo, nTransp )
ELSE
    IF nTransp = 255 // supports JPG-format full Color
        DrawBitmap( hDC, oLogo, nTop, nLeft )
    ELSE
        ABPaint( hDC, nLeft, nTop, oLogo, nTransp )
    ENDIF
ENDIF

RETURN( NIL )

#include "FiveWin.Ch"

REQUEST DBFCDX

//----------------------------------------------------------------------------//

PROCEDURE Main (cSales)

   local oWnd

   * environment
   SETCANCEL(.F.)
   SET CENTURY ON
   SET DELETED ON
   SET EPOCH TO 2000
   SET ESCAPE ON

   RDDSETDEFAULT("DBFCDX")


    DEFINE WINDOW oWnd FROM 13,45 TO 51,169 ;
         TITLE "Sample Window";
         MENU MainMenu()

    SET MESSAGE OF oWnd TO "Oprima Alt-Letra Subrayada" CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd ON INIT oWnd:Center() ;
      VALID ( MsgYesNo( "Terminate (Y/N) ?" ) )

   CLOSE DATABASES

RETURN


STATIC FUNCTION MainMenu()

   local oMenu

   MENU oMenu
        MENUITEM "&File"      MESSAGE "Utilidades sobre archivos, Terminar"
        MENU
            MENUITEM "&Salir Alt-X" ;
            ACTION WndMain():End() ;
            MESSAGE "Salir del programa" ;
            ACCELERATOR ACC_ALT, ASC( "X" )
        ENDMENU

        MENUITEM "&Mantenimiento"  MESSAGE "Datos sobre Clientes"
         MENU
            MENUITEM "&Sample"          MESSAGE "Mantenimiento a Inventario" ;
                    ACTION MsgInfo( "xyz" )
            MENUITEM "&Records"          MESSAGE "Ver La Base De Datos" ;
                    ACTION MsgInfo( "DispRecs" )
        ENDMENU
    ENDMENU

RETURN oMenu

//----------------------------------------------------------------------------//