LED Bar 2 RGBA Control
Eurolite
Ingo Koinzer
unit EuroliteLEDBar2RGBAUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure SPECIAL1change;
procedure DIMMERchange;
procedure SHUTTERchange;
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
case get_channel('SPECIAL1') of
0..5 : ModeBox.ItemIndex := 0;
6..10 : ModeBox.ItemIndex := 1;
11..15 : ModeBox.ItemIndex := 2;
16..20 : ModeBox.ItemIndex := 3;
21..25 : ModeBox.ItemIndex := 4;
26..30 : ModeBox.ItemIndex := 5;
31..35 : ModeBox.ItemIndex := 6;
36..40 : ModeBox.ItemIndex := 7;
41..45 : ModeBox.ItemIndex := 8;
46..50 : ModeBox.ItemIndex := 9;
51..55 : ModeBox.ItemIndex := 10;
56..60 : ModeBox.ItemIndex := 11;
61..65 : ModeBox.ItemIndex := 12;
66..70 : ModeBox.ItemIndex := 13;
71..75 : ModeBox.ItemIndex := 14;
76..80 : ModeBox.ItemIndex := 15;
81..85 : ModeBox.ItemIndex := 16;
86..90 : ModeBox.ItemIndex := 17;
91..100: ModeBox.ItemIndex := 18;
101..110: ModeBox.ItemIndex := 19;
111..120: ModeBox.ItemIndex := 20;
121..130: ModeBox.ItemIndex := 21;
131..140: ModeBox.ItemIndex := 22;
141..150: ModeBox.ItemIndex := 23;
151..160: ModeBox.ItemIndex := 24;
161..170: ModeBox.ItemIndex := 25;
171..180: ModeBox.ItemIndex := 26;
181..190: ModeBox.ItemIndex := 27;
191..200: ModeBox.ItemIndex := 28;
201..210: ModeBox.ItemIndex := 29;
211..255: ModeBox.ItemIndex := 30;
end;
end;
1:
begin
DIMMERslider1.position:=get_channel('DIMMER')
end;
2:
begin
SHUTTERslider2.position:=get_channel('SHUTTER')
end;
end;
DontRefresh:=false;
end;
procedure FormClose;
begin
end;
procedure SPECIAL1change;
begin
DontRefresh:=true;
case ModeBox.ItemIndex of
0: set_channel('SPECIAL1',-1, 0,0);
1: set_channel('SPECIAL1',-1, 6,0);
2: set_channel('SPECIAL1',-1, 11,0);
3: set_channel('SPECIAL1',-1, 16,0);
4: set_channel('SPECIAL1',-1, 21,0);
5: set_channel('SPECIAL1',-1, 26,0);
6: set_channel('SPECIAL1',-1, 31,0);
7: set_channel('SPECIAL1',-1, 36,0);
8: set_channel('SPECIAL1',-1, 41,0);
9: set_channel('SPECIAL1',-1, 46,0);
10: set_channel('SPECIAL1',-1, 51,0);
11: set_channel('SPECIAL1',-1, 56,0);
12: set_channel('SPECIAL1',-1, 61,0);
13: set_channel('SPECIAL1',-1, 66,0);
14: set_channel('SPECIAL1',-1, 71,0);
15: set_channel('SPECIAL1',-1, 76,0);
16: set_channel('SPECIAL1',-1, 81,0);
17: set_channel('SPECIAL1',-1, 86,0);
18: set_channel('SPECIAL1',-1, 91,0);
19: set_channel('SPECIAL1',-1,101,0);
20: set_channel('SPECIAL1',-1,111,0);
21: set_channel('SPECIAL1',-1,121,0);
22: set_channel('SPECIAL1',-1,131,0);
23: set_channel('SPECIAL1',-1,141,0);
24: set_channel('SPECIAL1',-1,151,0);
25: set_channel('SPECIAL1',-1,161,0);
26: set_channel('SPECIAL1',-1,171,0);
27: set_channel('SPECIAL1',-1,181,0);
28: set_channel('SPECIAL1',-1,191,0);
29: set_channel('SPECIAL1',-1,201,0);
30: set_channel('SPECIAL1',-1,211,0);
end;
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;
end.