Theater Zoom
Ignition
Dennis
Theater Zoom
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure DIMMERchange;
procedure ZOOMchange;
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
DIMMERslider0.position:=get_channel('DIMMER');
end;
1:
begin
ZOOMslider1.position:=get_channel('ZOOM');
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider0.position,0);
end;
procedure ZOOMchange;
begin
DontRefresh:=true;
set_channel('ZOOM',-1,ZOOMslider1.position,0);
end;
end.