ColorchangerRGB
Skytec
Geert
Colorchanger with 7 colors
unit NewDeviceUnit;
interface
procedure InitDevice(Device: String);
procedure FormShow;
procedure FormRefresh(channel:Integer);
procedure FormClose;
procedure ColorBoxChange;
implementation
procedure InitDevice(Device: String);
begin
// bitte hier die eigene Funktion eintragen
end;
procedure FormShow;
begin
statuslbl.Alignment:=taRightJustify;
end;
procedure FormRefresh(channel:Integer);
var
wert:integer;
begin
wert:=get_channel('color1');
case wert of
0..37: colorbox.itemindex:=0;
38..75: colorbox.itemindex:=1;
76..113: colorbox.itemindex:=2;
114..151: colorbox.itemindex:=3;
152..189: colorbox.itemindex:=4;
190..227: colorbox.itemindex:=5;
228..255: colorbox.itemindex:=6;
end;
// colorbox.text:='';
colorbox.enabled:=true;
statuslbl.caption:='Colormodus';
end;
procedure FormClose;
begin
// diese Funktion wird bei jedem Schließen der Form ausgeführt.
end;
procedure ColorBoxChange;
begin
case colorbox.itemindex of
0: set_channel('color1',37,37,0);
1: set_channel('color1',75,75,0);
2: set_channel('color1',113,113,0);
3: set_channel('color1',151,151,0);
4: set_channel('color1',189,189,0);
5: set_channel('color1',227,227,0);
6: set_channel('color1',255,255,0);
end;
statuslbl.caption:='Colormodus';
end;
end.