supi Posted April 17, 2007 Report Share Posted April 17, 2007 Tem como visualizar imagens .JPG por exemplo, em tamanhos grandes, " escalando " a tela (direita esquerda, cima, baixo), sem ajustar o tamanho???? Por exemplo, a imagem tem 2800 x 1800 ??? ??? Quote Link to comment Share on other sites More sharing options...
supi Posted April 17, 2007 Author Report Share Posted April 17, 2007 Tem como visualizar imagens .JPG por exemplo, em tamanhos grandes, " escalando " a tela (direita esquerda, cima, baixo), sem ajustar o tamanho???? Por exemplo, a imagem tem 2800 x 1800 ??? ??? Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted April 17, 2007 Report Share Posted April 17, 2007 boa tarde Eu fiz utilizando o acdsse chamando pelo programa.. luis Quote Link to comment Share on other sites More sharing options...
Marca Posted April 17, 2007 Report Share Posted April 17, 2007 Ola Supi REDEFINE Image oImage2 ID 513 OF oFld:aDialogs[5] FILENAME f_Foto2 SCROLL ; ON Left Click (AjustaZoom(oImage2,"A")) ; //"A" AUMENTAR ON Right Click (AjustaZoom(oImage2,"R")) //"R" DIMINUIR(AjustaZoom(oImage2,"S")) // Tamanho maximo *************************************//*************************************** FUNCTION AjustaZoom(oBmp,cAccion) *************************************//*************************************** LOCAL nZoom := oBmp:Zoom() DO CASE Case cAccion == "S" oBmp:lStretch := !oBmp:lStretch oBmp:ScrollAdjust() oBmp:Refresh( .T. ) Case cAccion == "R" IF nZoom*10 > 1 oBmp:lStretch := .T. nZoom:=nZoom-(0.10) oBmp:Zoom(nZoom) oBmp:Refresh() oBmp:ScrollAdjust() ENDIF Case cAccion == "A" oBmp:lStretch := .f. nZoom:=nZoom+0.10 oBmp:Zoom(nZoom) oBmp:Refresh() oBmp:ScrollAdjust() ENDCASE RETURN NIL Marcelo Ferro Fwh25/xHarbour 99.3/SqlLib /xMate/WS Quote Link to comment Share on other sites More sharing options...
supi Posted April 19, 2007 Author Report Share Posted April 19, 2007 OK. obrigado pela dica. Vou testar aqui VALEW Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.