Имя: Пароль:
1C
1С v8
Как организовать группы кнопок типа SpeedButton в 1с
,
0 Jokerman
 
27.07.11
17:21
Здрасте, идея проста есть 3 кнопы, жмешь одну она зажимается(вдавливается) остальные отжимаются. Не стал возиться с свойством рамка, подумал может что-то получше есть.
1 Ненавижу 1С
 
гуру
27.07.11
17:22
у кнопок командной панели есть свойство Пометка
2 Jokerman
 
27.07.11
17:25
А группировать можно как-то или самому придется запоминать состояния?
3 Ненавижу 1С
 
гуру
27.07.11
17:25
(2) состояния она помнит сама (каждая кнопка), а вот менять их придется вручную
4 acsent
 
27.07.11
17:27
Это не спидбатн. Спидбатн - это когда жмешь и держишь а оно жимется много раз
5 Ненавижу 1С
 
гуру
27.07.11
17:28
это?

Процедура НажатиеКнопки(Кнопка)
   Кнопка.Пометка = Истина;
   Для каждого Кн Из ЭлементыФормы.ДействияФормы.Кнопки Цикл
       Если Кн=Кнопка Тогда
           Продолжить;        
       КонецЕсли;
       Кн.Пометка = Ложь;    
   КонецЦикла;
КонецПроцедуры
6 Jokerman
 
27.07.11
17:33
(5) Да, да я примерно тоже нашкляпал!
7 Jokerman
 
27.07.11
17:34
Кнопка.Пометка=Не Кнопка.Пометка;
   Для каждого Кнопа Из ЭлементыФормы.ДействияФормы.Кнопки Цикл
       Если Кнопа=Кнопка Тогда
           продолжить;
       КонецЕсли;
       Если Кнопка.Пометка Тогда
           Кнопа.Пометка=Не Кнопка.Пометка;
       КонецЕсли;
   КонецЦикла;
8 Jokerman
 
27.07.11
17:35
(4) Не знаю на дельфийский точно похож!
9 Fragster
 
гуру
27.07.11
17:36
а чем это лучше радиокнопок?
10 Jokerman
 
27.07.11
17:37
(9) Не знаю захотелось разнообразия!
11 Jokerman
 
27.07.11
17:37
Наверное потому что на кнопу легче с первого раза попасть :)