AL28-05 R/G
Mc Crypt
Pit Regener
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure SPECIAL1change;
procedure SPECIAL2change;
procedure SPECIAL1change;
procedure SPECIAL2change;
implementation
var
DontRefresh:boolean;
procedure InitDevice(Device: String);
begin
end;
procedure FormShow;
begin
end;
procedure FormRefresh(channel:Integer);
var
Value:integer;
r,phi,temp:Double;
begin
if not DontRefresh then
case channel of
0:
begin
SPECIAL1slider0.position:=get_channel('SPECIAL1')
end;
1:
begin
SPECIAL2slider1.position:=get_channel('SPECIAL2')
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure SPECIAL1change;
begin
DontRefresh:=true;
set_channel('SPECIAL1',-1,SPECIAL1slider0.position,0);
end;
procedure SPECIAL2change;
begin
DontRefresh:=true;
set_channel('SPECIAL2',-1,SPECIAL2slider1.position,0);
end;
procedure SPECIAL1change;
begin
DontRefresh:=true;
set_channel('SPECIAL1',-1,SPECIAL1slider0.position,0);
end;
procedure SPECIAL2change;
begin
DontRefresh:=true;
set_channel('SPECIAL2',-1,SPECIAL2slider1.position,0);
end;
end.