 | La procedura è scritta
in Pascal:
 | Si
tratta semplicemente della chiamata di
RecupBox con parametri
opportunamente adattati alla filosofia di controllo delle
Cornici, leggermente diversa da quella usata per i Box
[per i Box si passano
coordinate dei caratteri estremi (in alto a sinistra e in basso a
destra) mentre per le Cornici si passano le coordinate del primo carattere in alto a
sinistra insieme con larghezza e altezza dell’area
coperta, compreso il bordo e l’eventuale
ombra]. |
|
Codice Sorgente |
|
 |
 |
 |
PROCEDURE
RECUPcorn (rig,col,lar,alt:integer;numPAG:byte);
BEGIN
{RECUPbox ( ri, co,
ri1 , co1 ,numPAG);}
RECUPbox
(rig,col,rig+alt,col+lar+1,numPAG);
END;
|
|
