Move up or down one VISIBLE layer

[P Retondo]

I'd like <ctrl + alt + arrow> to move me up or down to the next visible layer, as opposed to the next layer on the list. Especially when the layer list is so long we have to scroll down to see the desired layer, this could be a great timesaver.

[Petri]

I had a script doing exactly this. Not sure where it is, but if I find it, I'll post it here. Well, actually: NNA might buy the code, although I'm not based in India...

[Petri]

Found it. Hopefully it works. Not tested now, not sure if these are the working versions.

PROCEDURE VisibleLayersUp; { ? Petri Sakkinen 1995-2007 } 
VAR
layerName : STRING; 
layerVisibility : INTEGER; 
theLayer : HANDLE;

BEGIN
theLayer := ACTLAYER; 
layerVisibility := 1;
WHILE NOT(layerVisibility = 0) DO BEGIN
	theLayer := NEXTLAYER(theLayer); 
	layerVisibility := GETLVIS(theLayer);
END;
layerName := GETLNAME(theLayer);
IF NOT(layerName = '') THEN LAYER(layerName); 
END; 

RUN(VisibleLayersUp);

-----------

PROCEDURE VisibleLayersDown; { ? Petri Sakkinen 1995-2007 } 
VAR
layerName : STRING; 
layerVisibility : INTEGER; 
theLayer : HANDLE;

BEGIN
theLayer := ACTLAYER; 
layerVisibility := 1; 
WHILE NOT(layerVisibility = 0) DO BEGIN
	theLayer := PREVLAYER(theLayer); 
	layerVisibility := GETLVIS(theLayer);
END;
layerName := GETLNAME(theLayer);
IF NOT(layerName = '') THEN LAYER(layerName); 
END; 

RUN(VisibleLayersDown);

They do not go to the first layer after the last; this is by design (but changing the behaviour is easy:

IF NOT(layerName = '') THEN LAYER(layerName) ELSE BEGIN 
   layerName := GETLNAME(FLAYER);
   LAYER(layerName); 
END; 

I think...