Wellington Vieira Posted August 19, 2019 Report Share Posted August 19, 2019 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 19, 2019 Report Share Posted August 19, 2019 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 20, 2019 Report Share Posted August 20, 2019 Acho que não serve para o seu caso: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=21384&p=113638&hilit=nOpacity#p113638 Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted August 20, 2019 Author Report Share Posted August 20, 2019 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. Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted August 20, 2019 Author Report Share Posted August 20, 2019 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 20, 2019 Report Share Posted August 20, 2019 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" ************************************************************************* 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.