Flat Par Tri 7
American DJ
Dennis
Flat Par Tri 7
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure SPECIAL1change;
procedure SHUTTERchange;
procedure ColorBoxChange;
procedure DIMMERchange;
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
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
1:
begin
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
2:
begin
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
3:
begin
SPECIAL1slider3.position:=get_channel('SPECIAL1');
end;
4:
begin
SHUTTERslider4.position:=get_channel('SHUTTER');
end;
5:
begin
value:=get_channel('color1');
case value of
0..127: colorbox.itemindex:=0;
128..135: colorbox.itemindex:=1;
136..143: colorbox.itemindex:=2;
144..151: colorbox.itemindex:=3;
152..159: colorbox.itemindex:=4;
160..167: colorbox.itemindex:=5;
168..175: colorbox.itemindex:=6;
176..183: colorbox.itemindex:=7;
184..191: colorbox.itemindex:=8;
192..199: colorbox.itemindex:=9;
200..207: colorbox.itemindex:=10;
208..215: colorbox.itemindex:=11;
216..223: colorbox.itemindex:=12;
224..231: colorbox.itemindex:=13;
232..239: colorbox.itemindex:=14;
240..247: colorbox.itemindex:=15;
248..255: colorbox.itemindex:=16;
end;
end;
6:
begin
DIMMERslider6.position:=get_channel('DIMMER');
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure ColorPickerChange(R, G, B: Byte);
begin
set_channel('r',-1,r,0);
set_channel('g',-1,g,0);
set_channel('b',-1,b,0);
set_channel('c',-1,255-r,0);
set_channel('m',-1,255-g,0);
set_channel('y',-1,255-b,0);
end;
procedure SwitchColorPicker;
begin
if colorpicker.visible then
begin
colorpicker.visible:=false;
colorpicker2.visible:=true;
end else
begin
colorpicker.visible:=true;
colorpicker2.visible:=false;
end;
end;
procedure SPECIAL1change;
begin
DontRefresh:=true;
set_channel('SPECIAL1',-1,SPECIAL1slider3.position,0);
end;
procedure SHUTTERchange;
begin
DontRefresh:=true;
set_channel('SHUTTER',-1,SHUTTERslider4.position,0);
end;
procedure ColorBoxChange;
begin
case colorbox.itemindex of
0: set_channel('color1', -1, 0, 0);
1: set_channel('color1', -1, 128, 0);
2: set_channel('color1', -1, 136, 0);
3: set_channel('color1', -1, 144, 0);
4: set_channel('color1', -1, 152, 0);
5: set_channel('color1', -1, 160, 0);
6: set_channel('color1', -1, 168, 0);
7: set_channel('color1', -1, 176, 0);
8: set_channel('color1', -1, 184, 0);
9: set_channel('color1', -1, 192, 0);
10: set_channel('color1', -1, 200, 0);
11: set_channel('color1', -1, 208, 0);
12: set_channel('color1', -1, 216, 0);
13: set_channel('color1', -1, 224, 0);
14: set_channel('color1', -1, 232, 0);
15: set_channel('color1', -1, 240, 0);
16: set_channel('color1', -1, 248, 0);
end;
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider6.position,0);
end;
end.