FiveTech Software tech support forums

Puedes hacerlo con BRUSH también:    // Brush no Folder   FOR nI := 1 TO LEN( oFld:aDialogs )      oFld:aDialogs[nI]:SetBrush( oBrush )      oFld:aDialogs[ ...

... MuestraFoto(cTexto) Local oBrush2 Local oWnd2 Local oMonitor2 := FW_GetMonitor( 2 ) DEFINE FONT oBold NAME 'Tahoma' SIZE 0, -320 BOLD DEFINE BRUSH oBRush2 RESOURCE "LAYER" TILED DEFINE WINDOW oWnd2 FROM oMonitor2:Row(50), oMonitor2:Col(10) TO ; oMonitor2:Row(600),oMonitor2:Col(800) ...

... only over the part where the old figure is. oGraphics:DrawEllipse( oPen2, oBrush2 , 500, 100, 60, 60 ) but for oBrush2 take the background brush. Or clear the entire drawing area. Best regards, Otto >Redraw the background only over the part where the old figure is. and how do you do ...

Silvio,
Redraw the background only over the part where the old figure is.
oGraphics:DrawEllipse( oPen2, oBrush2 , 500, 100, 60, 60 )
but for oBrush2 take the background brush.
Or clear the entire drawing area.

Best regards,
Otto

... local oGraphics := Graphics():New( hDC ) local oPen := Pen():New( 255, 0, 0, 255 , 10 , .T.) local oBrush2 := Brush():NewSolidBrush( 150, 0, 255, 167 ) oPen:SetInset( ) oGraphics:DrawEllipse( oPen2, oBrush2 , 500, 100, 60, 60 ) then I want clear this ...

This is not correct function BuildBrush( oDlg )   local oImage, oBrush, aRect := oDlg:GetRect()   DEFINE IMAGE oImage FILENAME ".\logo.jpg"   oBrush   := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, ...

... := .t. local oBrush local oImage, lSetAlpha := .t. local bAction := { || .t. } default cTitle := "Usuario, un momento por favor" DEFINE BRUSH oBrush COLOR RGB( 192, 216, 255 ) //rosa IF cCaption == NIL DEFINE DIALOG oWait ; FROM 0,0 TO 5, Len( cTitle ) + 4 ; STYLE nOr( DS_MODALFRAME, ...

... Date() aItems := { AClone( aBlankItem ) } else aItems := IIT->( FW_DbfToArray( cItemFlds, { || IIT->INVNUM == oRec:InvNum } ) ) endif DEFINE BRUSH oBrush RESOURCE "PAPER" DEFINE FONT oLarge NAME "VERDANA" SIZE 0,-30 BOLD DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 ...

... Controller - V.240603" MsgFooter:="Conectado en:"+IPCem+" "+ModCem DEFINE ICON oIcon RESOURCE "A_ICON_1" DEFINE BRUSH oFondo1 RESOURCE "FONDO_1" DEFINE WINDOW oApp FROM 3,6 TO 40,160 TITLE Titulo ICON oIcon BRUSH oFondo1 SET MESSAGE OF oApp TO MsgFooter ...

Hola Camilo, disculpa la tardanza en responder. Estaba de viaje. Lo primero que debes hacer es crear una imagen que te va a servir de BRUSH para el dialogo de entrada, como este que hice: https://www.datanet.space/fw/Acceso.png es solo una imagen, un PNG o JPG normalito, sin ...

... DEFINE FONT oFnt1 NAME "Arial" SIZE 0,-18 OF oPrn DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-8 BOLD OF oPrn DEFINE BRUSH oBrush COLOR 0 DEFINE PEN oPen1 WIDTH 5 DEFINE PEN oPen2 WIDTH 15 COLOR 7873845 DEFINE PEN oPen3 WIDTH 1 COLOR 4556678 DEFINE PEN oPen4 WIDTH ...

... * default nWidth := 0.035 // 1/3 M/mm * default nWidth := 0.025 // 1/3 M/mm default nLen := 0.8 // Cmm. 0.8 * default nLen := 1.5 // Cmm. define brush oBr color nColor // Width of Bar if !lHorz nWidth :=round ( nWidth * 10 * oPrint:nVertRes() / oPrint:nVertSize() ,0 ) else nWidth :=round ( nWidth ...

Olá,

Obrigado pelas possibilidades. Vou testar e retorno aqui.

Att.,

Oliveiros Junior

https://imgur.com/qCqrs37



Regards, saludos.

... oBrush   LOCAL cImagem := "..\bitmaps\pngs\2.png"   DEFINE IMAGE oImagem FILENAME cImagem   DEFINE BRUSH oBrush FILE cImagem RESIZE   oImagem:lTranspaRent := .T.   oImagem:End()   oDlg:SetBrush( oBrush )  ...