Hallo Amused,
ein anderer Weg ist, alles rundherum zu löschen.
Dies muss dann global von der obertsten Ebene gemacht werden.
Einzige Bedingung: Es dürfen keine Mehrfachabbildungen vorhanden sein,
diese würden dann auch in der Box gelöscht.
Code:
______________________________________________________________________________
DEFINE eva_loesche_ausser_kasten
LOCAL dateiname
LOCAL p
LOCAL l
LOCAL p1
LOCAL p2
LOCAL por
LOCAL pul
LOCAL orx
LOCAL ory
LOCAL ulx
LOCAL uly
LOCAL p1x
LOCAL p1y
LOCAL p2x
LOCAL p2y
LOCAL p3x
LOCAL p3y
LOCAL lx
LOCAL ly
LOCAL rx
LOCAL ry
INQ_ENV 0
LET dateiname (INQ 304)
LET l (LEN dateiname)
REPEAT
LET p (POS dateiname '\')
LET dateiname (SUBSTR dateiname (p+1) (l-p))
UNTIL (p=0)
IF (dateiname = 'Untitled') LET dateiname 'eva_sicherung.mi' END_IF
STORE ALL DEL_OLD ('c:\temp\'+dateiname)
EDIT_PART TOP
WINDOW FIT
INQ_ENV 2
LET pul (INQ 101) LET ulx (X_OF pul) LET uly (Y_OF pul)
LET ulx (ulx-1) LET uly (uly-1)
LET por (INQ 102) LET orx (X_OF por) LET ory (Y_OF por)
LET orx (orx+1) LET ory (ory+1)
READ PNT '1. Punkt antippen' p1
READ PNT '2. Punkt antippen' RUBBER_BOX p1 p2
LET p1x (X_OF p1) LET p1y (Y_OF p1)
LET p1x (p1x-1) LET p1y (p1y+1)
LET p2x (X_OF p2) LET p2y (Y_OF p2)
LET p2x (p2x+1) LET p2y (p2y-1)
IF (p1y < p2y) LET p3y p1y LET p1y p2y LET p2y p3y END_IF
IF (p2x < p1x) LET p3x p1x LET p1x p2x LET p2x p3x END_IF
LET lx ulx LET ly uly
LET rx p1x LET ry ory
DELETE GLOBAL (PNT_XY lx ly) (PNT_XY rx ry) END
LET lx p2x LET ly uly
LET rx orx LET ry ory
DELETE GLOBAL (PNT_XY lx ly) (PNT_XY rx ry) END
LET lx ulx LET ly p1y
LET rx orx LET ry ory
DELETE GLOBAL (PNT_XY lx ly) (PNT_XY rx ry) END
LET lx ulx LET ly uly
LET rx orx LET ry p2y
DELETE GLOBAL (PNT_XY lx ly) (PNT_XY rx ry) END
END_DEFINE
_______________________________________________________________________________-
Hoffe, das hilft.
Gruß
Robert
------------------
Homepage: www.me10-makros.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP