visualização de imagens grandes

[supi]

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 ???

???

[supi]

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 ???

???

[LUIS1361303120]

boa tarde

Eu fiz utilizando o acdsse chamando pelo programa..

luis

[Marca]

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

[supi]

OK. obrigado pela dica.

Vou testar aqui

VALEW