RGB PAR 56
Stairville
Dennis Montag
R,G,B 3Ch
unit RGBLamp;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure onchangecolorpicker;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure ColorPickerChange(R, G, B: Byte);
procedure fadezeitchange;
procedure usefadezeitchange;
implementation
procedure InitDevice(Device: String);
begin
// bitte hier die eigene Funktion eintragen
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 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 fadezeitchange;
begin
end;
procedure usefadezeitchange;
begin
end;
end.