topic-38658

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Imprímela y consigue tu caja de FWH
Posted: Sat Mar 21, 2020 09:38 PM

Imprímela y consigue tu caja FWH

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Imprímela y consigue tu caja de FWH
Posted: Sun Mar 22, 2020 01:02 PM

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

Code (fw): Select all Collapse

#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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion