LED Par 4F 21ch
Cameo
Kai Schneider
LED Par 4F 21ch
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure OPTIONchange;
procedure DIMMERchange;
procedure SHUTTERchange;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure OPTIONchange;
procedure DIMMERchange;
procedure SHUTTERchange;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure OPTIONchange;
procedure DIMMERchange;
procedure SHUTTERchange;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure OPTIONchange;
procedure DIMMERchange;
procedure SHUTTERchange;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure OPTIONchange;
procedure DIMMERchange;
procedure SHUTTERchange;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure Wchange;
procedure Wchange;
procedure Wchange;
procedure Wchange;
implementation
var
DontRefresh:boolean;
procedure InitDevice(Device: String);
begin
end;
procedure FormShow;
begin
end;
procedure FormRefresh(channel:Integer);
var
value:integer;
begin
end;
procedure FormClose;
begin
end;
procedure OPTIONchange;
begin
DontRefresh:=true;
set_channel('OPTION',-1,OPTIONslider0.position,0);
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider1.position,0);
end;
procedure SHUTTERchange;
begin
DontRefresh:=true;
set_channel('SHUTTER',-1,SHUTTERslider2.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,Wslider6.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider10.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider14.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider18.position,0);
end;
procedure OPTIONchange;
begin
DontRefresh:=true;
set_channel('OPTION',-1,OPTIONslider0.position,0);
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider1.position,0);
end;
procedure SHUTTERchange;
begin
DontRefresh:=true;
set_channel('SHUTTER',-1,SHUTTERslider2.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,Wslider6.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider10.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider14.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider18.position,0);
end;
procedure OPTIONchange;
begin
DontRefresh:=true;
set_channel('OPTION',-1,OPTIONslider0.position,0);
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider1.position,0);
end;
procedure SHUTTERchange;
begin
DontRefresh:=true;
set_channel('SHUTTER',-1,SHUTTERslider2.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,Wslider6.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider10.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider14.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider18.position,0);
end;
procedure OPTIONchange;
begin
DontRefresh:=true;
set_channel('OPTION',-1,OPTIONslider0.position,0);
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider1.position,0);
end;
procedure SHUTTERchange;
begin
DontRefresh:=true;
set_channel('SHUTTER',-1,SHUTTERslider2.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,Wslider6.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider10.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider14.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider18.position,0);
end;
procedure OPTIONchange;
begin
DontRefresh:=true;
set_channel('OPTION',-1,OPTIONslider0.position,0);
end;
procedure DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider1.position,0);
end;
procedure SHUTTERchange;
begin
DontRefresh:=true;
set_channel('SHUTTER',-1,SHUTTERslider2.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,Wslider6.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider10.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider14.position,0);
end;
procedure Wchange;
begin
DontRefresh:=true;
set_channel('W',-1,Wslider18.position,0);
end;
end.