Campo GET transparent

[Wellington Vieira]

Boa tarde,

Alguem teria uma idéia de como posso fazer o campo GET da imagem abaixo em transparência. Eu uso o Five 6.12 e xharbour 1.2.3 (Simplex)(Build 20151110)

Obrigado.

[kapiaba]

Explique melhor. Estais usando BRUSH no Dialogo? Quereis um GET sem Bordas? o Comando OPACITY(), não sei se funciona nesta versão. Estais usando o Comando: TRANSPARENT no dialogo? Sorry, não entendi essa questão. Essa tela é RECURSOS ou @SAY?  Abs. Putz, perdi feio. kkkkkkkkkkkkkkkkkkkkkk

[kapiaba]

Acho que não serve para o seu caso:

 

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=21384&p=113638&hilit=nOpacity#p113638

[Wellington Vieira]

Boa tarde Kapiaba

É uma DIALOG com brush e transparent. Não é uma tela com recursos e sim @ say.

O que eu gostaria era colocar o campo GET onde passa o código do produto que ficasse transparente ou seja que aproveitasse o fundo da dialog no GET.

Obrigado.

[Wellington Vieira]

O campo é o seguinte:

                   @ 119,007 get oPcodigoproduto var mPcodigoproduto picture "@!" valid ( rproc_produto_entradasaida(objetpedido,"P") ) font mtahomagg size 280,19 of pedido color corfrtsayds,corfdogetnotafiscal pixel no border
 

Já tentei.

oPcodigoproduto:lTransparent = .t. 

e não funcionou.

Obrigado.

 

[kapiaba]

Teste com este exemplo:

 

#include "Fivewin.ch"
	Function Test()
	   Local oDlg, oFont, oBmp, cTest := Space( 20 ), oGet
	   DEFINE BITMAP oBmp FILE "..\bitmaps\back.bmp"
   DEFINE FONT oFont NAME "Arial" SIZE 0,-36 BOLD NESCAPEMENT 250 //Texto 45º
	   DEFINE DIALOG oDlg FROM 0,0 to 18,40 TITLE "Texto sin relleno"
	   @ 2, 3 GET oGet VAR cTest OF oDlg SIZE 100, 13 ;
          COLORS CLR_HRED, CLR_WHITE
	   oGet:bPainted = { || LightBorder( oGet ) }
	   ACTIVATE DIALOG oDlg CENTERED ON PAINT;
     (DrawBitmap(oDlg:hDC,oBmp:hBitmap,0,0,oDlg:nWidth,oDlg:nHeight),;
      HollowText(oDlg,200,20," Texto sin relleno ",oFont,CLR_GREEN,2))
	   RELEASE FONT oFont
   RELEASE BITMAP oBmp
	return nil
*************************************************************************
*
* Function HollowText(oDlg,y,x,cText,oFont,nColor,nWidth,nStyle)
*
* Dibuja sólo el contorno de un texto
*  oDlg: Contenedor 
*  y,x : Coordenadas
*  oFont: Fuente
*  nColor, nWidth, nStyle: Color, ancho y estilo de contorno
*  
*  César E. Lozada          cesarlozada@hotmail.com
*  Los Teques, Venezuela    17-Abr-2003
*
*************************************************************************
Function HollowText(oDlg,y,x,cText,oFont,nColor,nWidth,nStyle)
  Local hDC:=oDlg:hDC
  Local nOldFont, hPen, hOldPen 
  DEFAULT oFont:=oDlg:oFont, nColor:=oDlg:nClrText,;
          nWidth:=1, nStyle:=0 //PS_SOLID 
	  nOldFont:=SelectObject(hDC,oFont:hFont)
  hPen:=CreatePen(nStyle,nWidth,nColor)
  hOldPen:=SelectObject(hDC,hPen)
	  BeginPath(hDC)
  TextOut(hDC,y,x,cText,Len(cText))
  EndPath(hDC)
  StrokePath(hDC)
	  SelectObject(hDC,nOldFont)
  SelectObject(hDC,hOldPen)
  DeleteObject(hPen)
	return nil
	function LightBorder( oGet )
	   local hDC := oGet:oWnd:GetDC()
   local hBrush, hOldBrush, n
   local aTopLeft, aBottomRight
   local oPen,hPen1
   local aRect := GetClientRect( oGet:hWnd )
	   for n = 1 to 10
	      IF n > 5
         //hPen1 = CreatePen( PS_SOLID, 1,  nRGB( 102 , 175, 233 ) )  // blue
         hPen1 = CreatePen( PS_SOLID, 1,  RGB( 255, 165, 000 ) )      // orange
      ELSE
         hPen1 = CreatePen( PS_SOLID, 1,  nRGB( Int(254 - n*3-n ), Int(254- n*2 ) , 255 ) )
      endif
	      // hPen1 = CreatePen( PS_SOLID, 1,  nRGB( Int(244 - n ), Int(254- n ) , 255 ) )
      // SelectObject( hDC, oPen := TPen():New( ,, nRGB( n ^ 2, n ^ 2, 200 ) ):hPen )
	      SelectObject( hDC,hPen1)
      aTopLeft = ClientToScreen( oGet:hWnd, { aRect[1], aRect[2] } )
      aTopLeft = ScreenToClient( oGet:oWnd:hWnd, aTopLeft )
	      aBottomRight = ClientToScreen( oGet:hWnd, {aRect[3], aRect[4] } )
      aBottomRight = ScreenToClient( oGet:oWnd:hWnd, aBottomRight )
	      SetBkMode( hDC , 1 )
	      Rectangle( hDC, aTopLeft[1]-8 + n, aTopLeft[2]-8+ n, aBottomRight[ 1 ]+8 -n,  aBottomRight[ 2 ]+8-n )
	      DeleteObject( hPen1 )
	   next
	   oGet:oWnd:ReleaseDC()
	Return nil
	*************************************************************************
DLL32 STATIC FUNCTION BeginPath;
      ( hdc AS LONG ) ;
   AS LONG PASCAL; 
   LIB "GDI32"
	DLL32 STATIC FUNCTION EndPath;
      ( hdc AS LONG ) ;
   AS LONG PASCAL; 
   LIB "GDI32"
	DLL32 STATIC FUNCTION StrokePath;
      ( hdc AS LONG ) ;
   AS LONG PASCAL; 
   LIB "GDI32"
*************************************************************************