Eurolite Par64 LED
Eurolite
Vossi
5 Ch PAR 64
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure onchangecolorpicker;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure FormClose;
procedure ColorPickerChange(R, G, B: Byte);
procedure SwitchColorPicker;
procedure DIMMERchange;
procedure SPECIAL1change;
procedure fadezeitchange;
procedure usefadezeitchange;
implementation
var
DontRefresh:boolean;
procedure InitDevice(Device: String);
begin
end;
procedure FormShow;
begin
usefadezeit.checked:=true;
end;
procedure onchangecolorpicker;
begin
if colorpicker.visible then
begin
colorpicker.visible:=false;
colorpicker2.visible:=true;
end else
begin
colorpicker.visible:=true;
colorpicker2.visible:=false;
end;
end;
procedure FormRefresh(channel:Integer);
var
red,green,blue:byte;
modusposition:integer;
wahr:integer;
begin
case channel of
0..2:
begin
red:=get_channel('r');
green:=get_channel('g');
blue:=get_channel('b');
// colorpicker2.SelectedColor:=red + green shl 8 + blue shl 16;
end;
end;
end;
procedure FormClose;
begin
end;
procedure FormClose;
begin
end;
procedure ColorPickerChange(R, G, B: Byte);
var
zeit:integer;
// red,green,blue:byte;
begin
if usefadezeit.checked then
zeit:=strtoint(fadezeit.text)
else
zeit:=0;
// red:=colorpicker.selectedcolor and $FF;
// green := (colorpicker.selectedcolor shr 8) and $FF;
// blue := (colorpicker.selectedcolor shr 16) and $FF;
set_channel('r',-1,r,zeit);
set_channel('g',-1,g,zeit);
set_channel('b',-1,b,zeit);
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 DIMMERchange;
begin
DontRefresh:=true;
set_channel('DIMMER',-1,DIMMERslider3.position,0);
end;
procedure SPECIAL1change;
begin
DontRefresh:=true;
set_channel('SPECIAL1',-1,SPECIAL1slider4.position,0);
end;
procedure fadezeitchange;
// var
// hier ist Platz für eigene Variablen (z.B. "temp: boolean;" oder "temp:string;")
begin
end;
procedure usefadezeitchange;
// var
// hier ist Platz für eigene Variablen (z.B. "temp: boolean;" oder "temp:string;")
begin
end;
end.