Imprímela y consigue tu caja de FWH
Posted: Sat Mar 21, 2020 9:38 pm
Code: Select all
#include "FiveWin.ch"
STATIC oWnd
FUNCTION Main()
local oBar
DEFINE WINDOW oWnd TITLE "Imprimir Logo FiveTech"
DEFINE BUTTONBAR oBar _3D OF oWnd
DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
ACTION( IMPRIMIR_LOGO_FIVE() ) TOOLTIP "Imprimir Logo FiveTech" GROUP
DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
ACTION oWnd:End() TOOLTIP "Exit this app" GROUP
SET MESSAGE OF oWnd TO "Imprimir Logo FiveTech" NOINSET CLOCK DATE KEYBOARD
ACTIVATE WINDOW oWnd
RETURN NIL
FUNCTION IMPRIMIR_LOGO_FIVE()
ShellExecute( 0, "Print", "FiveTech_box.pdf",,, 3 )
RETURN NIL
// FIN