destroy bitmaps

[Silvio.Falconi]

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 ?

[ukoenig]

Silvio,

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

best regards
Uwe

[Silvio.Falconi]

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

Code: Select all  Expand view

 Time from start: 0 hours 0 mins 47 secs
   Error occurred at: 02/13/16, 13:02:57
   Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   { ... } length: 8
     [   2] = N   9

Stack Calls
===========
   Called from: test.prg => CLRSCR( 541 )
   Called from: test.prg => PLAY21( 525 )

 

any solution ?

[ukoenig]

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

[Silvio.Falconi]

see on mail pls