FiveTech Support Forums

function Main()

   local oBar, oFont2

   DEFINE FONT oFont2 Name "Ms Sans Serif" Size 0, -20
   
   DEFINE WINDOW oWnd TITLE "3D objects"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar Prompt 'Hola'

   SET MESSAGE OF oWnd TO "3D Objects" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

oBar:SetFont( oFont2 )

DEFINE BUTTON OF oBar Prompt 'Hola' Font oFont2

if ::oWnd:oFont != nil
   if ::oWnd:oFont:cFaceName != "Tahoma"
      DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
      ::oWnd:SetFont( oFont )
   endif
else
   DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
   ::oWnd:SetFont( oFont )
endif

IF ::oFont == NIL
   if ::oWnd:oFont != nil
      if ::oWnd:oFont:cFaceName != "Tahoma"
         DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
      endif
   else
       DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
   endif
   ::oWnd:SetFont( oFont )
else
   ::oWnd:SetFont( ::oFont )
endif

DEFINE BUTTON oBtn5 OF oBar RESOURCE "AGENDA" LEFT;
   PROMPT "ABM de"+CRLF+"actividades diarias";
   TOOLTIP "ABM de actividades diarias";
   FONT oFont1 NOBORDER;
   ACTION Calendario(oWnd,Empresa)