FiveTech Support Forums

if file("TelaVenda.jpg") .and. !v_logovenda

   nWidth := GetSysMetrics(0) - 20
   nHeight := GetSysMetrics(1) - 108

   DEFINE BRUSH oTmp FILE "TelaVenda.jpg"
   oBRU   := oTmp:Resized( nWidth, nHeight , 1 )  // 1 = stretch, 2 : fitoutside, 3:fitinside
   RELEASE BRUSH oTmp

   DEFINE DIALOG ODLG_PROA RESOURCE WtipoTela TITLE "Vendas em ECF" FONT oFont1 BRUSH oBRU TRANSPARENT

else

   DEFINE DIALOG ODLG_PROA RESOURCE WtipoTela TITLE "Vendas em ECF" FONT oFont1 COLOR _CORPADRAO, _CORPADRAO

endif

   redefine SAY osay_qt_Val ID 14 COLOR _CORTXTVEN, _CORPADRAO of odlg_PROa UPDATE FONT oFont_SAY //oFont_grande
   redefine SAY osay_cod ID 15 COLOR _CORTXTVEN, _CORPADRAO of odlg_PROa UPDATE FONT oFont_SAY //oFont_grande
osay_qt_Val:ltransparent := .t.
osay_cod:ltransparent := .t.

redefine SAY o_tot ID 8     COLOR _CORTXTVEN, _CORPADRAO FONT oFont_grande of odlg_proa UPDATE
redefine SAY o_tot2 ID 10   COLOR _CORTXTVEN, _CORPADRAO FONT oFont_grande of odlg_proa UPDATE
redefine SAY o_totdoc ID 12 COLOR _CORTXTVEN, _CORPADRAO FONT oFont_grande of odlg_proa UPDATE

o_tot:ltransparent := .t.
o_tot2:ltransparent := .t.
o_totdoc:ltransparent := .t.

redefine SAY osay_unitario VAR vunitario picture '@E 999,999.99'  ID 303 of odlg_PROa UPDATE FONT oFont_Enorme COLOR _CORPADVEN1, _CORPADRAO
redefine SAY osay_tot      VAR vtotal    picture '@E 999,999.99'  ID 304 of odlg_PROa UPDATE FONT oFont_Enorme COLOR _CORPADVEN1, _CORPADRAO
redefine SAY osay_totdoc   VAR vtot_ven  picture '@E 999,999.99'  ID 305 of odlg_PROa UPDATE COLOR _CORPADVEN2, _CORPADRAO FONT oFont_Giga

osay_unitario:ltransparent := .t.
osay_tot:ltransparent := .t.
osay_totdoc:ltransparent := .t.

   redefine SAY osay_totitens VAR 'Total de Itens: ' + ;
            alltrim(transform(vtot_itens, '@E 999,999')) ID 306 ;
            COLOR _CORPADVEN1, _CORPADRAO FONT ;
            oFont_Item of odlg_proa UPDATE
osay_totitens:ltransparent := .t.

      ACTIVATE DIALOG odlg_PROA VALID SAI_PROA

#include "FiveWin.ch"

FUNCTION MAIN()
LOCAL oDlg

nWidth := GetSysMetrics(0) - 20
nHeight := GetSysMetrics(1) - 108

c_path := cFilePath(GetModuleFileName( GetInstance() ) ) 
c_path1 := c_path + "IMAGES\" 

1.Color=16443068
2.Color=10899511
GradPos=0.20
Graddirect=.T.
Brush=Marble.Bmp
Image=FANTASY5.jpg

// nStyle := 1  1-4
// nColor := 116443068
// nColor2 := 10899511
// nMove := 0.5
// lDirect := .T.
// cBrush := "Brush.bmp"
// cImage := "image.jpg"

//                                                   Top,   Left    TO  Bottom,  Width
DEFINE DIALOG oDlg FROM   0,       ü       TO nHeight, nWidth  PIXEL 

ACTIVATE DIALOG oDlg ;
ON INIT D_BACKGRD( oDlg, 2, 116443068, 10899511, 0.5, "Brush.bmp", "image.jpg") 

RETURN NIL

// --------  WINDOW / DIALOG - Background ---------------

FUNCTION D_BACKGRD( oDlg, nStyle, nColor1, nColor2, nMove, lDirect, cBrush, cImage ) 
LOCAL oBrush, hDC, aGrad, oImage
LOCAL aRect := GETCLIENTRECT( oDlg:hWnd )

IF nStyle = 1 // COLOR
    DEFINE BRUSH oBrush COLOR nColor1
    oDlg:SetBrush( oBrush )
    oBrush:End()
ENDIF
IF nStyle = 2 // GRADIENT Brush
    aGrad := { { nMove, nColor1, nColor2 }, { nMove, nColor2, nColor1 } }
    hDC = CreateCompatibleDC( oDlg:GetDC() )
    hBmp = CreateCompatibleBitMap( oDlg:hDC, oDlg:nWidth, oDlg:nHeight ) 
    hBmpOld = SelectObject( hDC, hBmp )
    GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aGrad, lDirect ) // .T: = Vertical
    DeleteObject( oDlg:hBrush )
    oBrush := TBrush():New( ,,,, hBmp )
    oBrush:Cargo  := aGrad
    SelectObject( hDC, hBmpOld )
    ReleaseDC(hDC)
    oDlg:SetBrush( oBrush )
    oBrush:End()
ENDIF
IF nStyle = 3 // BMP-BRUSH
    DEFINE BRUSH oBrush FILE c_path1 + cBrush
    oDlg:SetBrush( oBrush )
    oBrush:End()
ENDIF
IF nStyle = 4 // Image ADJUSTED
    IF FILE( c_path1 + cImage ) 
        DEFINE IMAGE oImage FILE c_path1 + cImage
        oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap,  aRect[4], aRect[3], .T. ) ) 
        oImage:End()
        oDlg:SetBrush( oBrush )
        oBrush:End()
    ELSE
        IF !EMPTY(cImage)
            MsgAlert( "File : " + cImage + CRLF + ;
                    "does not exist" + CRLF + ; 
                        "to show Image !", "ATTENTION" ) 
        ENDIF
    ENDIF
ENDIF

RETURN( NIL )

DEFINE DIALOG ODLG_PROA RESOURCE WtipoTela TITLE "Vendas em ECF" FONT oFont1

ACTIVATE DIALOG odlg_PROA VALID SAI_PROA ON INIT ;
               ( D_BACKGRD( odlg_PROA, 4) )


FUNCTION D_BACKGRD( oDlg, nStyle, nColor1, nColor2, nMove, lDirect, cBrush, cImage )

LOCAL oBrush, hDC, aGrad, oImage
LOCAL aRect := GETCLIENTRECT( oDlg:hWnd )

IF nStyle = 4 // Image ADJUSTED

   DEFINE IMAGE oImage FILE "TelaVenda.jpg"
   oBrush   := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap,  aRect[4], aRect[3], .T. ) )  // 1 = stretch, 2 : fitoutside, 3:fitinside
   oImage:End()
   oDlg:SetBrush( oBrush )
   oBrush:End()

ENDIF

RETURN( NIL )

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg SIZE 800, 600

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT BuildBrush( oDlg )

return nil

function BuildBrush( oDlg )

   local oImage, oBrush, aRect := oDlg:GetRect()

   DEFINE IMAGE oImage FILENAME "..\bitmaps\pngs\chart.png"

   oBrush   := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap,  aRect[4], aRect[3], .T. ) )  // 1 = stretch, 2 : fitoutside, 3:fitinside
   oImage:End()
   oDlg:SetBrush( oBrush )
   oBrush:End()

return nil

DEFINE DIALOG ODLG_PROA RESOURCE WtipoTela TITLE "Vendas em ECF" FONT oFont1 TRANSPARENT

      ACTIVATE DIALOG odlg_PROA CENTERED VALID SAI_PROA ON INIT ;
               ( BuildBrush( odlg_PROA ) )


function BuildBrush( oDlg )

   local oImage, oBrush, aRect := oDlg:GetRect()

   DEFINE IMAGE oImage FILENAME "TelaVenda.png"

   oBrush   := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap,  aRect[4], aRect[3], .T. ) )  // 1 = stretch, 2 : fitoutside, 3:fitinside
   oImage:End()
   oDlg:SetBrush( oBrush )
   oBrush:End()

return nil