|
|
| Makes sound, should be used with client code only |
remote updating function Boolean CreateAT2DprSimulation(var record AT2DprVc,var record SMVc);
global
updating procedure CreateAT2DprSM()
BEGIN
record AT2DprVc AT2Dpr;
record SMVc SMr;
Integer wn,nwn;
Integer normalmode;
normalmode = 0;//Rs_normal
wn = CurWindow;
if (WindowState(wn)==normalmode) then begin
GetWindowRecord(wn,AT2Dpr);
DeselectWindow(wn,false);
if (AT2Dpr.SMSerNr<=0) then begin
if (CreateAT2DprSimulation(AT2Dpr,SMr)) then begin
nwn = OpenWindow("SMDClass",1,0,"","",SMr);
PutWindowRecord(wn,AT2Dpr);
end else begin
Beep;
end;
end;
end;
RETURN;
END;
««
