FlatPAR Complete 9Ch
LightmaXX
Dennis
FlatPAR Complete
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure DIMMERchange;
procedure SHUTTERchange;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure Wchange;
procedure Achange;
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
DIMMERslider0.position:=get_channel('DIMMER');
end;
1:
begin
SHUTTERslider1.position:=get_channel('SHUTTER');
end;
2:
begin
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
3:
begin
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
4:
begin
// RGB-Änderungen werden derzeit nicht im DDF angezeigt
end;
5:
begin
Wslider5.position:=get_channel('W');
end;
6:
begin
Aslider6.position:=get_channel('A');
end;
7:
begin
SPECIAL1slider7.position:=get_channel('SPECIAL1');
end;
8:
begin
SPECIAL2slider8.position:=get_channel('SPECIAL2');
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider0.position,0);
end;
procedure SHUTTERchange;
begin
DontRefresh:=true;
set_channel('SHUTTER',-1,SHUTTERslider1.position,0);
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 Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider5.position,0);
end;
procedure Achange;
begin
DontRefresh:=true;
set_channel('A',-1,Aslider6.position,0);
end;
procedure SPECIAL1change;
begin
DontRefresh:=true;
set_channel('SPECIAL1',-1,SPECIAL1slider7.position,0);
end;
procedure SPECIAL2change;
begin
DontRefresh:=true;
set_channel('SPECIAL2',-1,SPECIAL2slider8.position,0);
end;
end.