Good afternoon Antonio.
Thanks for the feedback.
His example here worked perfectly in any situation.
The only thing different is that I use a file. "RES" created in PELLESC, I'll email you this file, so if possible you can take a look at it.
Code: Select all
cResTela := GetSysMetrics(0), cResTelAlt := GetSysMetrics(1)
_CORPADRAO := RGB(182,221,199)
_CORPADTXT := RGB(0,0,0)
_CORPADVEN1 := RGB(0, 0, 242)
_CORPADVEN2 := RGB(255, 0, 0)
_CORTXTVEN := RGB(0,0,0)
if cResTela == 1920
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1920", "DLGMAXSUPER1920"), ;
if(v_varejo, "DLG_VARAV1920", "DLG_VARA1920")))
elseif cResTela == 1680
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1680", "DLGMAXSUPER1680"), ;
if(v_varejo, "DLG_VARAV1680", "DLG_VARA1680")))
elseif cResTela == 1600
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1600", "DLGMAXSUPER1600"), ;
if(v_varejo, "DLG_VARAV1600", "DLG_VARA1600")))
elseif cResTela == 1440
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1440", "DLGMAXSUPER1440"), ;
if(v_varejo, "DLG_VARAV1440", "DLG_VARA1440")))
elseif cResTela == 1400
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1400", "DLGMAXSUPER1400"), ;
if(v_varejo, "DLG_VARAV1400", "DLG_VARA1400")))
elseif cResTela == 1366
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1366", "DLGMAXSUPER1366"), ;
if(v_varejo, "DLG_VARAVMAX1366", "DLG_VARAMAX1366")))
elseif cResTela == 1280 .and. cResTelAlt == 1024
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1280X1024", "DLGMAXSUPER1280X1024"), ;
if(v_varejo, "DLG_VARAVMAX1280X1024", "DLG_VARAMAX1280X1024")))
elseif cResTela == 1280 .and. cResTelAlt == 960
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1280X960", "DLGMAXSUPER1280X960"), ;
if(v_varejo, "DLG_VARAVMAX1280X960", "DLG_VARAMAX1280X960")))
elseif cResTela == 1280 .and. cResTelAlt == 800
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1280X800", "DLGMAXSUPER1280X800"), ;
if(v_varejo, "DLG_VARAVMAX1280X800", "DLG_VARAMAX1280X800")))
elseif cResTela == 1280 .and. cResTelAlt == 768
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1280", "DLGMAXSUPER1280"), ;
if(v_varejo, "DLG_VARAVMAX1280", "DLG_VARAMAX1280")))
elseif cResTela == 1280 .and. cResTelAlt == 720
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1280X720", "DLGMAXSUPER1280X720"), ;
if(v_varejo, "DLG_VARAVMAX1280X720", "DLG_VARAMAX1280X720")))
elseif cResTela == 1152
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1152X864", "DLGMAXSUPER1152X864"), ;
if(v_varejo, "DLG_VARAVMAX1152X864", "DLG_VARAMAX1152X864")))
elseif cResTela == 1024
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLG_VARAVMAX1024", "DLG_VARAMAX1024"), ;
if(v_varejo, "DLG_VARAV1024", "DLG_VARA1024")))
else
WtipoTela := if(!v_maximiza, if(v_superM, if(v_varejo, "DLG_VARASUPERV", "DLG_VARASUPER"), ;
if(v_varejo, "DLG_VARAV", "DLG_VARA")), if(v_superM, if(v_varejo, "DLGMAXSUPERV1360", "DLGMAXSUPER1360"), ;
if(v_varejo, "DLG_VARAVMAX1360", "DLG_VARAMAX1360")))
endif
if file("TelaVenda.jpg") .and. !v_logovenda
DEFINE DIALOG ODLG_PROA RESOURCE WtipoTela TITLE "Vendas em ECF" FONT oFont1 TRANSPARENT // BRUSH oBRU TRANSPARENT
else
DEFINE DIALOG ODLG_PROA RESOURCE WtipoTela TITLE "Vendas em ECF" FONT oFont1 COLOR _CORPADRAO, _CORPADRAO
endif
if v_maximiza
cimg1 := "plus2.bmp"
if file(cimg1)
if !v_logocliAd
REDEFINE Image oBMPx1 ID 204 File cIMG1 OF odlg_proa ADJUST UPDATE TRANSPARENT NOBORDER DESIGN
else
REDEFINE Image oBMPx1 ID 204 File cIMG1 OF odlg_proa UPDATE TRANSPARENT NOBORDER DESIGN
endif
oBMPx1:Progress( .f. )
if !v_logocli
oBMPx1:show()
oBMPx1:refresh(.t.)
else
oBMPx1:hide()
oBMPx1:refresh(.t.)
endif
endif
endif
if v_maximiza
if vnivellogado == 1 .and. v_superM
ACTIVATE DIALOG odlg_PROA CENTERED VALID SAI_PROA ON INIT BuildBrush( odlg_PROA )
else
ACTIVATE DIALOG odlg_PROA VALID SAI_PROA ON INIT BuildBrush( odlg_PROA )
endif
endif
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
I could not simulate the error here using your example, apparently there is some configuration or incompatibility in PellesC
I'm about to launch new version of our system next week, we'll see if we can not fix later.
Thanks for the help.