Tad, так там же есть выбор: круглый/квадратный

Извините - недосмотрел

Бывает
Amper, Кстате Добавил бы еще в него заранее переключатель

Amper, а кстати, как там с визуальностью в редакторе форм?

Tad, через пару часов будет...
MarGoo, не совсем понял о чём речь...

Tad, всё, готово, положил в Upload...

сории

Я о том что сделать режим переключения вот пример:
[code:1]Add(LED,876968,217,105) {
link(onClick,10217833:doChangeValue,[(262,118)(262,169)(207,169)(207,237)])
}
Add(LED,10217833,217,217)
{
Top=25
Value=0
link(onChange,876968:doChangeValue,[(259,223)(259,177)(207,177)(207,125)])
}[/code:1]Понял?
Как бы в одном корпусе два светадиода по одному щелкуешь второй выключается. А то плодить в схеме не охото :mrgreen:

MarGoo, не чё себе, ты придумала, попробую сделать, но немного позже, здесь думать надо, а у меня времени мало...

и разного цвета.
А так - всё нормально, не считая:
1) нет события onClick opsсхемка приведенная Ритой работать не будет)
2) трудно выставить на нужное место в редакторе форм.

Tad, да с onClick действительно что-то не то, исправлю, а насчёт того что трудно выставить на нужное место не совсем понятно, если по поводу того, что отбражается как RadioButton, то я не причём, чтобы сделать по другому, требуется вмешательство в среду...

Amper, цвет бы ему не серый(да и не только ему) в редакторе форм, но это тоже не от нас зависит!

Tad, вот и я о том же

Amper, если в исходнике вместо
[code:1]procedure THILED._onChange; var‏
ind:integer;
begin
Case lControl.Value of
True: ind:=1;
False: ind:=0;
end;
_hi_onEvent(_event_onChange,ind);
end;[/code:1]
применить одну из этих конструкций
[code:1]procedure THILED._onChange; var
ind:integer;
begin
If lControl.Value then ind:=1 else ind:=0;
_hi_onEvent(_event_onChange,ind);
end;
___________________________________________________
или
procedure THILED._onChange;
var
ind:integer;
begin
ind:=0;
If lControl.Value then ind:=1;
_hi_onEvent(_event_onChange,ind);
end;[/code:1] то , после компиляции, коды на 8 байт меньше и нет предупреждений компилятора, что ind может быть неопределенным.
А с отсутствием onClick - пока не разобрался.

Самое интересное, что уважающий себя компилятор, ОБЯЗАН сгенерировать одинаковые коды в любом варианте.
Tad, Вы, наверное, коды от FPC не смотрели