FiveTech Software tech support forums

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

... 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 figure to create another over , sample : oGraphics:DrawRect( oPen2, oBrush2 , 500, 100, 70, ...

... 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 3 COLOR 3123123 #DEFINE VACIA 0 #DEFINE RELLENA 1 oPrn:setpage(9) ...

... #define BLANCO 1 #define ROJO 2 #define AMARILLO 3 #define AZUL 4 #define VERDE 5 LOCAL NOME := SPACE(25) LOCAL oFont1, oFont2, oFont3, oPen1, oPen2, cTit cTit := ALLTRIM(NEWPAR->EMPRESA1) DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 DEFINE FONT oFont2 NAME "ARIAL" SIZE ...

... 0 TABS oTabs PROMPTS "&One", "&Two" OF oDlg PIXEL ; BITMAPS "..\bitmaps\16x16\people.bmp", "..\bitmaps\open2.bmp",; "..\bitmaps\16x16\print.bmp", "..\bitmaps\open2.bmp" ; ACTION ( nTabPos := oTabs:nOption, ; IIF( nTabPos = 2, ...

STRANGE..... this morning I add DEFINE PEN ::oPen1 WIDTH 1 COLOR CLR_HGRAY DEFINE PEN ::oPen2 WIDTH 1 COLOR CLR_BLACK and REPORT ::oReport ; TITLE "ELENCO TARIFFE LISTINO ALTA STAGIONE" ; FONT ::oFont ; PEN ::oPen1,; ::oPen2 ; HEADER "Data: " + DTOC( ...

... ) LOCAL oGraphics3 := Graphics():New( oWnd:hDC ) LOCAL oGraphics4 := Graphics():New( oWnd:hDC ) LOCAL aRect := GETCLIENTRECT( oWnd:hWnd ), oPen1, oPen2 oGraphics1:DrawImage( oImage1, aRect[1] + 150 , aRect[2] + 250 , 200, 200 ) oGraphics1:destroy() oPen1 := Pen():New( 255 , 255, 0 , 0 , .T.) oPen1:Setsize(10) ...

... 600 } ), ; Drawroundrect(ownd) ) :?: FUNCTION DRAWROUNDRECT(ownd) local hdc:= oWnd:GETDC() local oGraphics := Graphics():New( oWnd:hDC ) local oPen2 := Pen():New( 255, 255, 0, 0 , 10 ) local oPath:= Path():new() oPath:AddRoundRect( 300, 250, 150, 100 , 20 ) oGraphics:DrawPath( oPen2, oPath ...

... the sample xBrowsetree to my sample-collector. trying to add a bitmap on column 1 with WITH OBJECT oBrw3:aCols[ 1 ] :AddBmpFile( c_Path1 + "Open2.bmp" ) :bBmpData := 1 END on column 1, doesn't work. Using column 2, it is OK http://www.pflegeplus.com/IMAGES/Samples6.jpg ...

... bTextoSubgr,campoSubgr,nLtrSize,lPreview,lPrinterSetup) local oRpt local oFontNorm, oFontNegr local oPen1, oPen2 local i:=0 local cImpresoraSalida:="" default cTitulo1 TO '' default cTitulo2 TO '' default cCaption TO cTitulo1 default cCabecera1 ...

... 640,440 PIXEL ; TITLE 'Directory' ; FONT oFont @ 10,10 XBROWSE oBrw SIZE 300,70 PIXEL OF oDlg NOBORDER oBrw:SetTree( oTree, { "\fwh\bitmaps\open2.bmp", ; "\fwh\bitmaps\16x16\folder.bmp", ; "\fwh\bitmaps\16x16\onepage2.bmp" } ) oBrw:bKeyChar := { |nKey| If( nKey == ...

... 640,440 PIXEL ; TITLE 'Directory' ; FONT oFont @ 10,10 XBROWSE oBrw SIZE 300,200 PIXEL OF oDlg NOBORDER oBrw:SetTree( oTree, { "\fwh\bitmaps\open2.bmp", ; "\fwh\bitmaps\16x16\folder.bmp", ; "\fwh\bitmaps\16x16\onepage2.bmp" } ) oBrw:bKeyChar := { |nKey| If( nKey == ...

... *------------------------------------------------------------------------------- LOCAL oFont1, oFont2, oPen1, oPen2 Local oReport Local nSele := SELECT() DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-9 ...