FiveTech Support Forums

I wish erase bitmap from dialog

I made
@nrow,ncol bitmap obtntemp RESOURCE cardmap SIZE 80,120 OF oDlg NOBORDER

and put on odlg bitmap but I not Know How many the user draw on dialog

I tried with end() / destroy() with no success !!

any idea ?

Silvio,

to delete the paited images,
You need to repaint the brush of the dialog.

best regards
Uwe

I tried also with a small function I can call from another function

function clrscr()
for n=1 to len(oDlg21:aControls)
oCtrl = oDlg21:aControls[ n ]
IF oCtrl:ClassName() == "TBITMAP"
oDlg21:aControls[ n ]:end()
endif
next
//oDlg21:refresh()
return nil



it run for one or two time thenit crach with this error




any solution ?

Silvio,

why not calling a Gdifunction, BEFORE painting the new images to clear the area ?

Fills a defined area with a color

FUNCTION DRAWRECTANGLE(ownd)
local hdc:= oWnd:getdc()
local oGraphics := Graphics():New( ownd:hDC )
local oPen := Pen():New( 255, 0, 0, 255 , 100 , .T.) // Pensize should be the hight of the area for solid

oGraphics:DrawRect( oPen, , 320, 350, 140, 100 )

oGraphics:destroy()

best regards
Uwe

oWnd:releasedc()

RETURN NIL