[Pascal]

Hallo

iemand een idee waarom ik bij dit script foutmeldingen krijg. Werkte perfect in alle vorige versies

Procedure zichtvenster;
var
x,y,x1,y1,xo,yo:real;
h,h2,hv,hl: handle;
actklas,geen: string;

begin
HideClass('Hulplijnen');
DSelectAll;
actklas:=ActiveClass;
geen:=ClassList(1);
NameClass(geen);


GetRect(x,y,x1,y1);
Rect(x,y,x1,y1);

h:=LNewObj;
hl:=MakePolyline(h);
DelObject(h);
SetClass(hl,geen);
SetFPat(hl,0);
SetLS(hl,0);
DoMenuTextByName('Create Viewport',0);
NameClass(actklas);

end;
run(zichtvenster);



maar krijg nu volgende foutmelding


Line #23; SetLS(h1,0);

error: the function is deprecated and should not be use

line#28: run(zichtvenster)

error: expected a RUN statement at the end of the script

dank voor de hulp
Pascal

[dirk]

In VW 2018 werkt het wel, in 2019 moet je SETLS vervangen door SetLSN(hl,0);

vervang dus SetLS(hl,0);

door

SetLSN(hl,0);

en dan werkt het terug

[Pascal]

perfect, werkt inderdaad opnieuw
dank u
Pasca