Hazer
Stairville
Josua
Hz 200
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure FOGchange;
procedure EXTRAchange;
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
FOGslider0.position:=get_channel('FOG');
end;
1:
begin
EXTRAslider1.position:=get_channel('EXTRA');
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure FOGchange;
begin
DontRefresh:=true;
set_channel('FOG',-1,FOGslider0.position,0);
end;
procedure EXTRAchange;
begin
DontRefresh:=true;
set_channel('EXTRA',-1,EXTRAslider1.position,0);
end;
end.