FiveTech Software tech support forums

Full code of my function Function 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), ...

oGraphics:DrawEllipse( oPen2, oBrush2 , 500, 100, 60, 60 )

Isn't it this you want to delete?

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 >Redraw the background only over the part ...

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

... https://i.ibb.co/VW2ctsX/oo.jpg 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 ...

... A little test #include "Fivewin.ch" FUNCTION MAIN() local oWnd, oDlg, oSay1, oSay2, oFont, oBrush1, oBrush2 DEFINE FONT oFont NAME "Arial" SIZE 0,-18 BOLD DEFINE BRUSH oBrush1 FILE "MARBLE.bmp" DEFINE BRUSH oBrush2 FILE "MARBLE6.bmp" ...

... oWnd:getdc(), aImage LOCAL oPen := Pen():New( 255, 0, 0, 255 , 10, .T.) LOCAL oBrush1 := Brush():NewSolidBrush( 255, 255, 128, 0 ) // Orange LOCAL oBrush2 := Brush():NewGradientBrush( 300, 200, 200, 200, 1,; 255, 255, 128, 0,; 255, 255, 255, 255 ) LOCAL oPath := Path():new() LOCAL oGraphics := ...

Joaquin,

Prueba a usar el pintado a doble buffer:

local aInfo := ::oWnd:DispBegin()

::oWnd:SetBrush( oBrush2 )

::oWnd:DispEnd( aInfo )

... .T. ) ) ::oBmpFondo:End() ::oWnd:setBrush( oBrush ) oBrush:end() Luego para cambiar, otra brush definida antes: ::oWnd:setBrush( oBrush2 ) Al cambiar a éste segundo, se nota el parpadeo.

... YOU VERY MUCH ! it works fine that way. Now I understand the logic. it can be a brush-combination : DEFINE BRUSH oBrush1 STYLE NULL DEFINE BRUSH oBrush2 COLOR 255 with some calculations, it will be possible, to get some nice effects. I will add four possible forms : 1. round filled ( mouseclick ...

Tim, I don't know, why the brush gets lost. Another solution could be to define the brush LOCAL : FUNCTION Main() LOCAL oBrush2 c_path := GETCURDIR() DEFINE BRUSH oBrush2 FILENAME c_path + "\Images\Stone.bmp" DEFINE WINDOW oWnd TITLE "Testing Brush ... ... DEFINE BUTTON ...

Tim, maybe test it like : DEFINE BRUSH oBrush1 COLOR 14853684 DEFINE BRUSH oBrush2 FILENAME c_path + "\Images\Stone.bmp" // You can test, if the Brush still exists. // with < oBrush2:End() > You will get a Errormessage from the Dialog !!! DEFINE ...

ACTIVATE DIALOG oDlg...

oFonte:End()
oBrush2:End()

RELEASE ALL

RETURN NIL

... :?: a si esta mi codiguito :oops: DEFINE BRUSH oBrush RESOURCE "BLANCOS" DEFINE BRUSH oBrush1 FILENAME "sea2.bmp" DEFINE BRUSH oBrush2 RESOURCE "ECHO1" DEFINE BRUSH oBrush3 RESOURCE "GRAD" dbselectarea( "autos" ) dbgotop() autospoliza:=lastrec() ...

... "ribbon.ch" #include "COLORS.ch" Function main() local oWnd local oTitle1, oTitle2, oTitle3, oTitle4, oTitle5 local oBrush1, oBrush2, oBrush3, oBrush4 LOCAL oFont1, oFont2, oFont3 local oBtn DEFINE WINDOW oWnd TITLE "TTitle Class Test" @ 015,150 TITLE oTitle1 size ...