American DJ Quad Phase
American DJ
Torsten
American DJ Quadphase (DRAFT)
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure ColorBoxChange;
procedure MOVESchange;
procedure SPECIAL1change;
procedure shutterchange;
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
value:=get_channel('color1');
case value of
1..16: colorbox.itemindex:=0;
17..33: colorbox.itemindex:=1;
34..50: colorbox.itemindex:=2;
51..67: colorbox.itemindex:=3;
68..84: colorbox.itemindex:=4;
85..101: colorbox.itemindex:=5;
102..118: colorbox.itemindex:=6;
119..135: colorbox.itemindex:=7;
136..152: colorbox.itemindex:=8;
153..169: colorbox.itemindex:=9;
170..186: colorbox.itemindex:=10;
187..203: colorbox.itemindex:=11;
204..220: colorbox.itemindex:=12;
221..237: colorbox.itemindex:=13;
238..255: colorbox.itemindex:=14;
end;
end;
1:
begin
MOVESslider1.position:=get_channel('MOVES');
end;
2:
begin
SPECIAL1slider2.position:=get_channel('SPECIAL1');
end;
3:
begin
shutterslider3.position:=get_channel('shutter');
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure ColorBoxChange;
begin
case colorbox.itemindex of
0: set_channel('color1', -1, 1, 0);
1: set_channel('color1', -1, 17, 0);
2: set_channel('color1', -1, 34, 0);
3: set_channel('color1', -1, 51, 0);
4: set_channel('color1', -1, 68, 0);
5: set_channel('color1', -1, 85, 0);
6: set_channel('color1', -1, 102, 0);
7: set_channel('color1', -1, 119, 0);
8: set_channel('color1', -1, 136, 0);
9: set_channel('color1', -1, 153, 0);
10: set_channel('color1', -1, 170, 0);
11: set_channel('color1', -1, 187, 0);
12: set_channel('color1', -1, 204, 0);
13: set_channel('color1', -1, 221, 0);
14: set_channel('color1', -1, 238, 0);
end;
end;
procedure MOVESchange;
begin
DontRefresh:=true;
set_channel('MOVES',-1,MOVESslider1.position,0);
end;
procedure SPECIAL1change;
begin
DontRefresh:=true;
set_channel('SPECIAL1',-1,SPECIAL1slider2.position,0);
end;
procedure shutterchange;
begin
DontRefresh:=true;
set_channel('shutter',-1,shutterslider3.position,0);
end;
end.