Imagem

[atnsoft]

Bom dia a todos.

 

Não consigo salvar a imagem qdo vem da area de transfêrencia. Código abaixo

 

Define Dialog oDlg From 3,3 To 36, 130 Title "Carregar Imagem"
oDlg:lHelpIcon := .F.

@ 0.1,08   Say "Imagem"      Size 20,09           Of oDlg

@ 0.9, 0.5 Button "&Procurar"                     Of oDlg Size 45,11 Action(CarregaDoc(@Vimagem, oImagem))

@ 2.9, 0.5 Button "Ajustar Tamanho"               Of oDlg Size 45,11 Action(oImagem:lStretch := .T., oImagem:Refresh())

@ 3.9, 0.5 Button "Tamanho Normal"                Of oDlg Size 45,11 Action(oImagem:lStretch := .F., oImagem:Refresh())

@ 4.9, 0.5 Button "Zoom &+"                       Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "+"), oImagem:Refresh())

@ 5.9, 0.5 Button "Zoom &-"                       Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "-"), oImagem:Refresh())

@ 6.9, 0.5 Button "Colar (Ctrl+V)"                Of oDlg Size 45,11 Action(oImagem:LoadFromClipboard(), oImagem:Refresh())

@ 7.9, 0.5 Button "Copiar (Ctrl+C)"               Of oDlg Size 45,11 Action(oImagem:CopyToClipboard(), oImagem:Refresh())

@ 01, 06.5 Image oImagem  Size 440,210            Of oDlg
oImagem:lScroll := .T.

@ 12.9,64.8  Button "    &Salvar     "    of oDlg Size 50,12 Action(lGrava := .T., oDlg:End())
@ 12.9,73.8  Button "    &Finalizar  "    of oDlg Size 50,12 Action(lGrava := .F., oDlg:End())

Activate Dialog oDlg Centered

 

Qdo uso  a procura que faz  o loadbmp, salva normalmente,  mas qdo copio e colo usando o loadfromclipboard nao salva. a variavel Vimagem fica em branco.

Tem como fazer um Vimagem := oImagem:loadfromclipboard() ou salva e buscar com um memoread ?

 

 

 

[joaosolution]

Bom dia

Fiz o teste na pasta \FWH1206\samples\testimg.prg e funcionou o copy do clipboard e o save sem problemas.

Uso a versão FiveWIn 12.06 BCC 5.8.2 e xHarbour 1.2.1

Att

João Bosco

 

[atnsoft]

Acho que é problema com a versão. A minha ainda é a 7.05.

 

[atnsoft]

O lado ruim é que, com o ctrl+c / ctrl+v ficou 10. Mas nao salva.

[kapiaba]

Funcionou perfeito com FWHX17.01

#include "FiveWin.ch"
#include "Image.ch"
	//----------------------------------------------------------------------------//
	function Main()
	   LOCAL oDlg, oImage, lSetAlpha := .t.
	//   setalpha( .f. )
	   DEFINE DIALOG oDlg FROM 0, 0 TO 22, 60 ;
      TITLE FWDESCRIPTION + " JPG,JIF,GIF,BMP,DIB,RLE,TGA,PCX support!"
	   @ 0, 0 IMAGE oImage SIZE 150, 150 OF oDlg SCROLL // ADJUST
	   oImage:Progress( .f. )
	   @ 1, 28 BUTTON "Selecione Image" SIZE 50,10 OF oDlg ACTION GetImage( oImage )
	   @ 2, 28 BUTTON "Imprimir" SIZE 50,10 OF oDlg ACTION PrintImage( oImage )
	   // copiar para o Paint
   @ 3, 28 BUTTON "Copiar" SIZE 50, 10 OF oDlg ;
      ACTION oImage:CopyToClipboard()
	   // colar no paint
   @ 4, 28 BUTTON "Colar" SIZE 50, 10 OF oDlg ;
      ACTION ( oImage:LoadFromClipboard(), oImage:Refresh() )
	   @ 5, 28 BUTTON "Salvar" SIZE 50, 10 OF oDlg ;
      ACTION ( oImage:SaveImage( "SAVED.JPG", 2, 25 ), MsgInfo( "saved as saved.jpg" ) )
	   @ 6, 28 BUTTON "Sair" SIZE 50, 10 OF oDlg ACTION oDlg:End()
   
   @ 10, 26 CHECKBOX oImage:lStretch PROMPT "Esticar" SIZE 50, 10 OF oDlg ;
      ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() )
	   @ 11, 26 CHECKBOX lSetAlpha PROMPT "Ligar Canal Alpha" SIZE 80, 10 OF oDlg ;
      ON CHANGE ( SetAlpha( lSetAlpha ), oImage:Refresh() )
	
   ACTIVATE DIALOG oDlg CENTER
	return nil
	//----------------------------------------------------------------------------//
	function GetImage( oImage )
	   local gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                             "DIB   (*.dib)| *.dib|" +          ;
                             "PCX   (*.pcx)| *.pcx|"  +         ;
                             "JPEG  (*.jpg)| *.jpg|" +          ;
                             "GIF   (*.gif)| *.gif|"  +         ;
                             "TARGA (*.tga)| *.tga|" +          ;
                             "RLE   (*.rle)| *.rle|" +          ;
                             "All Files (*.*)| *.*"             ;
                            ,"Please select a image file", 4 )
	   if ! Empty( gcFile ) .and. File( gcFile )
      oImage:LoadBmp( gcFile )
   endif
	return nil
	//----------------------------------------------------------------------------//
	function PrintImage( oImage )
	   local oPrn
	   PRINT oPrn NAME "Imprimindo Imagem" PREVIEW
      PAGE
         oPrn:SayImage( 0, 0, oImage )
      ENDPAGE
   ENDPRINT
	return nil
	//----------------------------------------------------------------------------//
	procedure AppSys   // XBase++ requirement
	return
	//----------------------------------------------------------------------------//

 

[atnsoft]

A persistência trouxe resoltados. Resolvido e pra quem precisar ta aqui a solução. Grato a todos.

Define Dialog oDlg From 3,3 To 36, 130 Title "Carregar Imagem. Paciente: ("+Trim(Left(Pnome, 50))+")"
oDlg:lHelpIcon := .F.

@ 0.2,09   Say "Imagem"      Size 20,09           Of oDlg

@ 01, 06.5 Image oImagem  Size 440,210            Of oDlg SCROLL
oImagem:lScroll := .T.
oImagem:Progress( .F. )

@ 0.9, 0.5 Button "&Procurar"                     Of oDlg Size 45,11 Action(CarregaDoc(@Vimagem, oImagem))

@ 1.9, 0.5 Button "Ajustar Tamanho"               Of oDlg Size 45,11 Action(oImagem:lStretch := .T., oImagem:Refresh())

@ 2.9, 0.5 Button "Tamanho Normal"                Of oDlg Size 45,11 Action(oImagem:lStretch := .F., oImagem:Refresh())

@ 3.9, 0.5 Button "Zoom &+"                       Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "+"), oImagem:Refresh())

@ 4.9, 0.5 Button "Zoom &-"                       Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "-"), oImagem:Refresh())

@ 6.9, 0.5 Button "Colar (Ctrl+V)"                Of oDlg Size 45,11 Action(oImagem:LoadFromClipboard(), oImagem:Refresh())

@ 7.9, 0.5 Button "Copiar (Ctrl+C)"               Of oDlg Size 45,11 Action(oImagem:CopyToClipboard(), oImagem:Refresh())

@ 12.9,64.8  Button "    &Salvar     "    of oDlg Size 50,12 Action(oImagem:SaveImage( cDirRes+"Temp_imagem.Jpg", 2, 25 ), lGrava := .T., oDlg:End())
@ 12.9,73.8  Button "    &Finalizar  "    of oDlg Size 50,12 Action(lGrava := .F., oDlg:End())

Activate Dialog oDlg Centered

if(!lGrava)
   Return NIL
endif

Vimagem := MemoRead(cDirRes+"Temp_imagem.Jpg")

Neste ponto a Var Vimagem ta pronta pra  salvar.