Tratamento de imagens

[marcioe]

Olá a todos

Tenho as imagens 

Tem como tratar para não ficar com esse "borrão no Fundo (essas imagens são colocadas pelo Operador)

Claro que no Código five, pois as vezes a pessoa coloca PNG, JPG, Então pode ter de tudo....

Se tiverem uma Luz Ficaria grato.

 

[kapiaba]

Desconheço. Somente o PAINT faz isso. Ou o IRFANVIEW. Regards, saludos.

[giovanyvecchi]

Uma pergunta:

Estas imagens estão no xBrowse de fivewin ?

[marcioe]

Ola giovanyvecchi

Joia, respondendo

Estas imagens estão no xBrowse de fivewin ?

Sim na verdade elas ficam no banco de dados MariaDb,  dai quando o Usuário abre a tela de vendas o sistema Lê o banco de dados e "cria as imagens no Disco local"
Dai o xBrowse apenas exibe pelo Código a imagem. 
Fica leve ao extremo. Pode ter várias fotos.

Mas as imagens eu gravo no disco c:\minha pasta\imagens\pr_00001.jpg por exemplo    ou Gr_001.jpg   se for grupo

Essa tela é projetada para uso em Touch.  Funciona blz, só mesmo esse aspecto de bordas que não gosto muito. Mas funciona

 

a tela de mesas fica assim 

 

 

[giovanyvecchi]

Tenta assim:

oXbrw:lGDIP := .T.

oXbrw:lTransparent := .T.

[marcioe]

Obrigado a Todos por responder
 

 

Eu já coloca na Célula 

 

   oDB_PAINEL_PRODUTOS:aCols[01]:lBmpStretch         := (.F.)
   oDB_PAINEL_PRODUTOS:aCols[01]:lBmpTransparent     := (.T.)
 

 

Já com isso ou sem isso não fez Diferença (  oXbrw:lGDIP := .T.  )

	*-------------5--------------------------------------------------------------	
	* Produtos do Grupo Selecionado
	*----------------------------------------------------------------------------
 	oDB_PAINEL_PRODUTOS 								:= TXBrowse():New( oDlg_LANCA_MESAS )
	oDB_PAINEL_PRODUTOS								: CreateFromResource(4005)
	oDB_PAINEL_PRODUTOS:nHeaderLines        	:=  0.1  //-----> Linhas do cabeçalho
	oDB_PAINEL_PRODUTOS:nDataLines          	:=  (T_TAMANHO_LINHA_PRODUTOS)
	oDB_PAINEL_PRODUTOS:bKeyDown  				:= {|nKey|  POSICIONAR_ITEN_SELECIONADO()   }
	oDB_PAINEL_PRODUTOS:bChange   				:= {||  		POSICIONAR_ITEN_SELECIONADO()    }
	oDB_PAINEL_PRODUTOS:bKeyDown  				:=	{|nKey|  if(nkey=13,( 	POSICIONAR_ITEN_SELECIONADO(), (oBtAdd_Produto:Click()) ),) }
	oDB_PAINEL_PRODUTOS:bLDblClick				:= {|| 		POSICIONAR_ITEN_SELECIONADO(), (oBtAdd_Produto:Click())  }
	oDB_PAINEL_PRODUTOS:lRecordSelector     	:= .F.   //-----> Mostrar ou Não o Seletor > 	
	oDB_PAINEL_PRODUTOS:lAllowColSwapping   	:= .F.  	//-----> Trocar Colunas 	         
	oDB_PAINEL_PRODUTOS:lAllowRowSizing     	:= .T.  	//-----> Nao move as Linhas            
	oDB_PAINEL_PRODUTOS:lAllowColSwapping   	:= .T.   //-----> Faz a Linha Lateral do Grid Escura ou Não
	oDB_PAINEL_PRODUTOS:lColDividerComplete 	:= .F.  	//-----> .T. Poe as colunas ate o final do browse.
	oDB_PAINEL_PRODUTOS:lHScroll            	:= .T.  	//-----> Barra Rolagem Horiz.
	oDB_PAINEL_PRODUTOS:lFooter             	:= .F.   //-----> Mostrar ou nao o rodape
	oDB_PAINEL_PRODUTOS:lHeader		       	:= .F.   //-----> Mostrar ou Não o Cabecalho
	oDB_PAINEL_PRODUTOS:lDrawBorder 				:= .T.
	oDB_PAINEL_PRODUTOS:lFlatStyle   			:= .F.
	oDB_PAINEL_PRODUTOS:nColDividerStyle    	:= 4
	oDB_PAINEL_PRODUTOS:nRowDividerStyle    	:= 4
	oDB_PAINEL_PRODUTOS:nMarqueeStyle       	:= 3
	oDB_PAINEL_PRODUTOS:l2007 						:= M->ESTILO_l2007 
	oDB_PAINEL_PRODUTOS								:SetArray( A_Array_Produtos_Grupos, .F., 1, { 1,2,3,4,5 } ) 
   oDB_PAINEL_PRODUTOS:lDisplayZeros 			:= (.T.)
   oDB_PAINEL_PRODUTOS:lColChangeNotify 		:= (.T.)
   oDB_PAINEL_PRODUTOS:oDataFonts    			:= O_F_GET
   oDB_PAINEL_PRODUTOS:bClrSelFocus				:={ || { CLR_AZUL, 			{ { 9.91,96777215,92961221 } }} }
   oDB_PAINEL_PRODUTOS:bClrSel					:={ || { CLR_AZUL, 			{ { 9.91,96777215,92961221 } }} }
  	oDB_PAINEL_PRODUTOS:bClrRowFocus				:={ || { CLR_AZUL,			{ { 9.90,96777167,92961210 } }} } 
	oDB_PAINEL_PRODUTOS:lTransparent 			:= (.F.)   &&&& faz o browse Transparente
	oDB_PAINEL_PRODUTOS:lColChangeNotify 		:= (.T.)  &&&&& gerar evento por coluna
	*---------------------------------------------------------------------------	
 	oDB_PAINEL_PRODUTOS:aCols[01]:nEditType       	:= TYPE_IMAGE
   oDB_PAINEL_PRODUTOS:aCols[01]:lBmpStretch     	:= (.F.)
   oDB_PAINEL_PRODUTOS:aCols[01]:lBmpTransparent 	:= (.T.)
   oDB_PAINEL_PRODUTOS:aCols[01]:nDataBmpAlign   	:= AL_RIGHT   
	oDB_PAINEL_PRODUTOS:aCols[01]:bStrImage      	:= { ||  iif(len(A_Array_Produtos_Grupos[oDB_PAINEL_PRODUTOS:nArrayAt][1])>0,  DRIVE_TR+"\"+CURDIR()+"\BITMAPS\ICONES\pr_"+STRZERO(VAL(SUBSTR(T_CAMINHO_FOTO_PRODUTO,01,06)),06,0)+'.JPG' ,nil) }   // nao conheco a extgrutura do seu array      oXBrw10:aArrayData[oXBrw10:nArrayAt][3]
	oDB_PAINEL_PRODUTOS:aCols[01]:bstrData     		:= {|| iif(len(A_Array_Produtos_Grupos)>0,ALLTRIM(A_Array_Produtos_Grupos[oDB_PAINEL_PRODUTOS:nArrayAt,01]),nil) }
   oDB_PAINEL_PRODUTOS:aCols[01]:nWidth        		:= (T_LARGURA_PRODUTOS_GRUPOS)
	oDB_PAINEL_PRODUTOS:aCols[01]:nDataBmpAlign 	 	:= IF(T_ICONES_GRANDES='N',1,2)
	oDB_PAINEL_PRODUTOS:aCols[01]:oDataFont     		:= IF(T_ICONES_GRANDES='N',O_F_GET,oFont2)
   oDB_PAINEL_PRODUTOS:aCols[01]:aClrText   			:= { nil, CLR_HRED, nil, CLR_GREEN }
	oDB_PAINEL_PRODUTOS:aCols[01]:bStrData          := { ||  Mostra_Dados_Produto((A_Array_Produtos_Grupos[oDB_PAINEL_PRODUTOS:nArrayAt][1]))  } 	
	WITH OBJECT oDB_PAINEL_PRODUTOS
      WITH OBJECT :aCols[ 1 ]
         oDB_PAINEL_PRODUTOS:aCols[1]:aDataFont    := { O_F_DLG,O_F_GET  }
         oDB_PAINEL_PRODUTOS:aCols[1]	:aClrText   := { CLR_AZUL, CLR_PRETO }
      END
	END	
	*-------------2---------------------------------------------------------------	

 

 

 

[Jmsilva]

Minha dica e importar no pelles C e fazer tratamento, colocando o verde no fundo ela fica perfeita no browse, porém é aquele trabalho chato de ajustar cada uma delas. Já usei Gimp porém tem especializar. Fica a dica

[marcioe]

Ok, mas como voce ver amigo, essas imagens são os "usuarios" quem colocam, ou seja vai variar de empresa para empresa, tem empresa que nem coloca as imagens

tem outras que colocam, então não poderia importar elas no PELLEsc