LED Par56
Stairville
Christian Nöding/GD
LED par
unit LEDPar56;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure onchangecolorpicker;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure ColorPickerChange(R, G, B: Byte);
procedure dropdownchange;
procedure speedchange;
implementation
procedure InitDevice(Device: String);
begin
// bitte hier die eigene Funktion eintragen
end;
procedure FormShow;
begin
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
1..3:
begin
red:=get_channel('r');
green:=get_channel('g');
blue:=get_channel('b');
// colorpicker2.SelectedColor:=red + green shl 8 + blue shl 16;
end;
4:
begin
speed.position:=get_channel('speed');
end;
0:
begin
modusposition:=get_channel('special1');
case modusposition of
0..63: modus.itemindex:=0;
64..127: modus.itemindex:=1;
128..191: modus.itemindex:=2;
192..255: modus.itemindex:=3;
end;
end;
end;
end;
procedure FormClose;
begin
end;
procedure ColorPickerChange(R, G, B: Byte);
var
zeit:integer;
// red,green,blue:byte;
begin
// red:=colorpicker.selectedcolor and $FF;
// green := (colorpicker.selectedcolor shr 8) and $FF;
// blue := (colorpicker.selectedcolor shr 16) and $FF;
set_channel('r',-1,r,0);
set_channel('g',-1,g,0);
set_channel('b',-1,b,0);
end;
procedure dropdownchange;
begin
case modus.itemindex of
0: set_channel('special1',0,0,0);
1: set_channel('special1',64,64,0);
2: set_channel('special1',128,128,0);
3: set_channel('special1',192,192,0);
end;
end;
procedure speedchange;
begin
set_channel('speed',speed.position,speed.position,0);
end;
end.