se c'è lo aggiunge altrimenti no
ho un altro problema da chiederti
Nella mia famosa linea ho inserito la bitmap:
Code: Select all
@ 0,15 BITMAP ::oBmp SIZE 360,200 OF Self ;
ON CLICK DrawSections( ::oBmp,.t. )
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
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