FiveTech Support Forums

#include "FiveWin.ch"

 STATIC  oWndMain
Function Test()



 oImagen = TImage():Define( , "C:\work\fwh\bitmaps\backgrnd\clouds4.bmp" )

   DEFINE WINDOW oWndMain   ;
      TITLE "test" ;
      MENU BuildMenu()      ;
      COLOR CLR_BLACK, GetSysColor( 15 ) - Rgb( 30, 30, 30 ) 
    

 oWndMain:bPainted := {|hDC| (PalBmpDraw( hDC, 0, 0, oImagen:hBitmap,, oWndMain:nWidth,                              oWndMain:nHeight,, .T.),;
                          Scrivitesto(hDC))  }

 ACTIVATE WINDOW oWndMain

RETURN nIL

Function BuildMenu()
   Local oMenu
           MENU oMenu 2007

            MENUITEM i18n("&Info")
            MENU
                 MENUITEM i18n( "Specificare la stampante" ) RESOURCE "SH_IMPRIMIR2" ;
               ACTION PrinterSetup() ;
               MESSAGE i18n( "Stabilire la configurazione della sua stampante. " )
            SEPARATOR
             MENUITEM  i18n( "Configurazione del programma" )  RESOURCE "MENU_CONFIG"  Action  ::Configurazione()
            SEPARATOR
            MENUITEM i18n( "Uscire dal programma" ) RESOURCE "SH_SALIR2" ;
               ACTION NL ;
               MESSAGE i18n( " Terminare l'esecuzione dell'applicazione. " )
               MENUITEM i18n( "test" ) action    NIL

             ENDMENU

   RETURN oMenu

FUNCTION Scrivitesto (hDC)
    Local aRect2:= {oWndMain:nHeight-120,;
                             oWndmain:nWidth-420,;
                             oWndMain:nHeight-10,;
                             oWndMain:nWidth-10}






      Local cText1:= 'tecla F10'
      Local cText2:= 'Acompanhamento dos'
      Local cText3:= 'pedidos feitos'
      Local cText4:= 'em : venda delivery'
      Local cText5:= 'em : venda balcão'
      Local cText6:= 'Operador atual'
      Local cText7:=  dtoc(date())+' as '+substr(time(),1,5)+'h'
      Local cText8:= 'Número de Série'
      Local _numero_serie_ :="00030302309"







    SetBkMode(hDC,1)
    SetTextColor(hDC,CLR_RED)
    DrawText(hDC," testo numero uno",{oWndMain:nHeight-140,;
                             oWndmain:nWidth-420,;
                             oWndMain:nHeight-10,;
                             oWndMain:nWidth-10})


     SetTextColor(hDC,CLR_WHITE)




    aRectBox:= {oWndMain:nHeight-220,;
                oWndmain:nWidth-760,;
                 oWndmain:nWidth-20 ,;
                oWndMain:nHeight-200}



     RoundBox( hDC, aRectBox[1], aRectBox[2], aRectBox[3], aRectBox[4],     2, 2,;
                   CLR_RED, 1 )
         SetTextColor(hDC,CLR_RED)
      DrawTextEx( hDC, "TESTO NUMERO DUE", aRect2, 1 )




      RETURN NIL