se c'è lo aggiunge altrimenti no
ho un altro problema da chiederti
Nella mia famosa linea ho inserito la bitmap:
- Code: Select all Expand view
@ 0,15 BITMAP ::oBmp SIZE 360,200 OF Self ;
ON CLICK DrawSections( ::oBmp,.t. )
come vedi ho messo un controllo cioè se ci clicco sopra si attiva la funzione drawsections che non è altro che dei fillrect che disegnano una cornice gialla
Il problema è questo : se io ho due linee io clicco su una e mi disegna la cornice se ci clicco sull'altra mi disegna la cornice ma come faccio a dirgli di cancellare la cornice alla prima linea ?
qui sotto la funzione :
- Code: Select all Expand view
function DrawSections(obmp,lattivo )
LOCAL hDC := obmp:GetDC()
local oBrWhite, oBrCyan
DEFINE BRUSH oBrWhite COLOR CLR_WHITE
DEFINE BRUSH oBrCyan COLOR CLR_YELLOW
IF lattivo
// SE è SELEZIONATO
FillRect( hDC, { 0, 0, 200, 641 }, oBrCyan:hBrush )
FillRect( hDC, { 10, 10, 190, 350 }, oBrWhite:hBrush )
else
//ALTRIMENTI
// FillRect( hDC, { 10, 10, 190, 350 }, oBrWhite:hBrush )
ENDIF
oBrWhite:End()
oBrCyan:End()
return lattivo
