Imprímela y consigue tu caja de FWH

[Antonio Linares]

Imprímela y consigue tu caja FWH

https://github.com/FiveTechSoft/FiveWin-contributions/blob/master/FiveTech_box.pdf

[karinha]

//-> FiveTech_box.pdf -> FIVELOGO.PRG - kapiabafwh@gmail.com

Code: Select all  Expand view  RUN

#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
 

Regards, saludos.