Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1237
#1: 2008-06-02 17:20:05 ЛС | профиль | цитата
nesco, посмотри
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1newradiobutton.rar [1.9KB] [207]
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 25681
Рейтинг: 2087
#2: 2008-06-02 17:39:38 ЛС | профиль | цитата
Tad, приду домой, посмотрю
карма: 20

0
Ответов: 8607
Рейтинг: 800
#3: 2008-06-02 17:48:36 ЛС | профиль | цитата
Tad, где бы его применить, без подсказки ну никак
карма: 18

0
Разработчик
Ответов: 25681
Рейтинг: 2087
#4: 2008-06-02 17:49:29 ЛС | профиль | цитата
В любом случае, обоснование не помешает
карма: 20

0
Администрация
Ответов: 15293
Рейтинг: 1515
#5: 2008-06-02 18:01:37 ЛС | профиль | цитата
RadioButton+IndexToChannel - и есть "RadioButton, пропускающий поток". Основания для превращения двух элементов в один должны быть очень весомые...
code_9187.txt

карма: 26
0
файлы: 1code_9187.txt [418B] [256]
Ответов: 16884
Рейтинг: 1237
#6: 2008-06-02 22:49:14 ЛС | профиль | цитата
Dilma, это скорее RadioButton со встроенным компонентом HelpersCheck. Для двух RadioButton - ов (code_9187.txt) делать нечего. А если, например, их 5-ть ? С предложенным изменением спокойно, без лишней обвязки, собирается "переключатель горизонтального потока" на любое нужное (разумное) число направлений .
nesco, Пример и обоснование будут немного позже (только что приехал с работы - завал)
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 5446
Рейтинг: 323
#7: 2008-06-02 23:34:56 ЛС | профиль | цитата
Tad, BitsToInt/IntToBits?
карма: 1

0
Ответов: 16884
Рейтинг: 1237
#8: 2008-06-02 23:39:14 ЛС | профиль | цитата
nesco, вот пример.
code_9191.txt
А это то что находится в панели с RadioButton. И не нужно никаких добавочных компонентов. При этом полная совместимость со старыми схемами.

Наше дело предложить...
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 2code_9191.txt [4.6KB] [253], cmd.png [4.5KB] [729]
Разработчик
Ответов: 25681
Рейтинг: 2087
#9: 2008-06-02 23:44:29 ЛС | профиль | цитата
Что-то мы, действительно, слишком увлеклись.

Двое уже высказалось по этому поводу. Кто следующий

iarspider, схему в студию (можно набросок)

------------ Дoбавленo:


Tad, почему ты исправил вот это



procedure THIRadioButton._work_doSelect;
begin
Control.Checked := ReadBool(_Data);
// SendMessage(Control.Handle,BM_CLICK,0,0);
end;


Не помню, но где-то это обсуждалось, почему именно SendMessage надо оставить
карма: 20

0
Ответов: 16884
Рейтинг: 1237
#10: 2008-06-02 23:47:28 ЛС | профиль | цитата
nesco, извини но это не я. У меня оно было заремано.
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 25681
Рейтинг: 2087
#11: 2008-06-02 23:51:46 ЛС | профиль | цитата
Tad, на SVN SendMessage открыт, а Control.Checked закрыт
карма: 20

0
Ответов: 16884
Рейтинг: 1237
#12: 2008-06-03 00:39:26 ЛС | профиль | цитата
А на SVN наоборот Ну и как я обновляюсь каждое утро ?
------------ Дoбавленo:

Да, в схеме code_9191.txt link с нижней точки FormatStr на FileTools.NewFileName убрать - лишний так как NewFileName передается через выбраный RadioButton . Спешка
------------ Дoбавленo:

И в CheckBox тоже можно добавить - не повредит, а польза будет.
------------ Дoбавленo:

И в CheckBox тоже можно добавить - не повредит, а польза будет.
------------ Дoбавленo:

И в CheckBox тоже можно добавить - не повредит, а польза будет.
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 25681
Рейтинг: 2087
#13: 2008-06-03 00:44:15 ЛС | профиль | цитата
А я привык вот к такой схеме



Add(RadioButton,3145347,343,455)
{
Left=10
Top=80
Width=100
Caption="Копирование"
link(onSelect,9548863:doWork2,[(391,461)(391,426)])
}
Add(RadioButton,14269212,343,413)
{
Left=120
Top=80
Width=100
Caption="Перемещение"
link(onSelect,9548863:doWork1,[])
}
Add(RadioButton,10075341,343,497)
{
Left=240
Top=80
Width=90
Caption="Удаление"
link(onSelect,9548863:doWork3,[(405,503)(405,433)])
}
Add(ChanelToIndex,9548863,434,413)
{
Count=3
link(onIndex,1963271:doValue,[])
}
Add(Memory,1963271,483,413)
{
}
Add(IndexToChanel,1190367,483,553)
{
Count=3
Point(Index)
link(Index,1963271:Value,[])
}


И что в ней такого сложного, что требует доработки компонента

Надо подождать резюме остальных, стоит ли этим заниматься
------------ Дoбавленo:

Ты про CheckBox, аж три раза напомнил
карма: 20

0
Ответов: 16884
Рейтинг: 1237
#14: 2008-06-03 00:58:13 ЛС | профиль | цитата
nesco писал(а):
И что в ней такого сложного
ничего, кроме трех "лишних" компонентов и двух линков.
Ждем суда присяжных.
------------ Дoбавленo:

nesco писал(а):
Ты про CheckBox, аж три раза напомнил
это безпроводка наверное искала более сильный сигнал Я кликнул "Отправить" и ушел на перекур. Лишних людей в комнате небыло.
А может это знак свыше ???
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 25681
Рейтинг: 2087
#15: 2008-06-03 01:07:35 ЛС | профиль | цитата
Tad писал(а):
кроме трех "лишних"

Не трех, а "двух", у тебя есть Hub, роль которого в моей схеме выполняет IndexToChanel


------------ Дoбавленo:


Кстати, вот второй вариант схемы (похоже на то, о чем писаАл iarspider)



Add(RadioButton,3145347,343,455)
{
Left=10
Top=80
Width=100
Caption="Копирование"
link(onSelect,5287504:doWork2,[])
}
Add(RadioButton,14269212,336,413)
{
Left=120
Top=80
Width=100
Caption="Перемещение"
link(onSelect,1762974:doWork2,[])
}
Add(RadioButton,10075341,350,497)
{
Left=240
Top=80
Width=90
Caption="Удаление"
link(onSelect,5287504:doWork3,[(403,503)])
}
Add(IndexToChanel,1190367,336,595)
{
Count=7
Point(Index)
link(onEvent2,4247684:doWork,[(384,608)(384,594)])
link(Index,11300990:Number,[])
link(onEvent3,6700949:doWork,[])
link(onEvent5,16136046:doWork,[(384,629)(384,636)])
}
Add(BitsToInt,11300990,336,546)
{
link(Bit1,14269212:Selected,[])
link(Bit2,3145347:Selected,[])
link(Bit3,10075341:Selected,[])
}
Add(HubEx,1762974,399,406)
{
Angle=3
link(onEvent,11300990:doNumber,[(403,402)(324,402)(324,552)])
}
Add(HubEx,5287504,399,448)
{
Angle=3
link(onEvent,1762974:doWork3,[])
}
Add(Check,4247684,399,588)
{
Caption="1"
}
Add(Check,6700949,399,609)
{
Caption="2"
}
Add(Check,16136046,399,630)
{
Caption="4"
}

карма: 20

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)