HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуКомпонент Календарь ← Ctrl1234Ctrl →
Этот топик читают: Гость
Ответов: 1536
Рейтинг: 176
#16: 2011-11-03 23:19:54 ЛС | профиль | цитата
Tad, что-то мне подсказывает, что твою рыбу можно сделать более наглядной (без слоёных наложений)
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#17: 2011-11-03 23:25:01 ЛС | профиль | цитата
ser_davkin, флаг в руки. Я бы тоже хотел посмотреть на более оптимальное решение.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26164
Рейтинг: 2127
#18: 2011-11-04 00:35:13 ЛС | профиль | цитата
Tad писал(а):
Я бы тоже хотел посмотреть на более оптимальное решение

А я бы сделал немного по-другому. Как бы -- альтернативный вариант

code_25673.txt
карма: 22

0
файлы: 1code_25673.txt [1.9KB] [202]
Ответов: 1376
Рейтинг: 197
#19: 2011-11-04 00:37:17 ЛС | профиль | цитата
Tad, может в панелях до такого упростить?
code_25675.txt
Вернее так (глядя на вариант nesco) 

Add(ChildPanelEx,14851588,322,182)
{
 @Color=65535
}
BEGIN_SDK
  Add(EditMultiEx,6540851,21,14)
  {
   WorkCount=#31:doText2=Установить текст в поле|
   VarCount=#26:Text=Текущее значение даты|
   DataCount=#26:Str=Значение для установки|
   Width=363
   Height=158
   VOffset=21
   HOffset=28
   link(doText2,10488824:doCompare,[])
   link(Text,73754:Var,[(55,165)(230,165)])
  }
  Add(DatePicker,12519346,287,35)
  {
   Top=-1
   Width=79
   Height=21
   Ctl3D=0
   Point(DateTime)
  }
  Add(Panel,11141743,49,77)
  {
   Left=229
   Top=37
   Width=77
   Height=20
  }
  Add(Edit,1982583,231,77)
  {
   Width=60
   Height=18
   Visible=1
   Ctl3D=1
   Text=""
   ReadOnly=0
   Point(doVisible)
   Point(onSetFocus)
   link(onSetFocus,715328:doWork3,[(272,97)(272,48)])
  }
  Add(If_else,10488824,49,35)
  {
   Type=5
   Op2=Real(0)
   link(onTrue,15642099:doEvent1,[])
   link(onFalse,1800943:doWork2,[(91,48)(91,90)])
   link(Op1,6540851:Str,[])
  }
  Add(Hub,15642099,98,35)
  {
   link(onEvent1,12519346:doSetDate,[])
   link(onEvent2,715328:doWork2,[])
  }
  Add(ChanelToIndex,1800943,133,77)
  {
   link(onIndex,9389495:doEvent1,[(177,83)(177,97)])
  }
  Add(HubEx,715328,118,42)
  {
   Angle=1
   link(onEvent,1800943:doWork1,[(122,83)])
  }
  Add(Hub,9389495,182,91)
  {
   link(onEvent1,1982583:doVisible,[])
   link(onEvent2,73754:doIndex,[(210,104)(210,132)])
  }
  Add(GetIndexData,73754,224,126)
  {
   link(Data1,12519346:DateTime,[(230,117)(293,117)])
   link(Data2,1982583:Text,[])
  }
END_SDK
карма: 1

0
файлы: 1code_25675.txt [1.3KB] [207]
Разработчик
Ответов: 26164
Рейтинг: 2127
#20: 2011-11-04 00:52:30 ЛС | профиль | цитата
foksov, при выборе даты, закрывающее поле должно исчезнуть, а у тебя не исчезает
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#21: 2011-11-04 02:14:46 ЛС | профиль | цитата
Сравнение.
nesco писал(а):
при выборе даты, закрывающее поле должно исчезнуть, а у тебя не исчезает

и результат на нижней точке желает лучшего.
nesco, результат должен быть в real или integer.
code_25676.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1code_25676.txt [6.1KB] [156]
Голосовали:user_asm
Разработчик
Ответов: 26164
Рейтинг: 2127
#22: 2011-11-04 02:19:16 ЛС | профиль | цитата
Tad писал(а):
и результат на нижней точке желает лучшего

Ага, а одну связь переставить не судьба, обязательно надо докопаться, иначе -- это не Tad будет. А получится еще и проще, если подогнать под ваш алгоритм 


Add(ChildPanelEx,9299349,399,420)
{
 @Hint=#5:nesco|
 @Color=65535
 AddHint(52,5,44,13,@Hint)
}
BEGIN_SDK
  Add(EditMultiEx,10511601,21,14)
  {
   WorkCount=#31:doText2=Установить текст в поле|
   EventCount=#8:onEvent2|
   VarCount=#26:Text=Текущее значение даты|
   DataCount=#26:Str=Значение для установки|
   Width=370
   Height=193
   VOffset=21
   HOffset=28
   link(doText2,2998683:doCompare,[(35,41)(35,62)])
   link(Text,1926449:Var,[(55,175)(279,175)])
  }
  Add(DatePicker,12659837,133,56)
  {
   Top=-1
   Width=79
   Height=21
   Ctl3D=0
   Point(DateTime)
   link(onChange,3195826:doReset,[(184,62)(184,83)])
  }
  Add(Panel,13306313,49,105)
  {
   Left=214
   Top=72
   Width=79
   Height=20
  }
  Add(Edit,4358699,329,56)
  {
   Left=1
   Top=1
   Width=60
   Height=18
   WinStyle=1
   Text=""
   ReadOnly=0
   Point(doVisible)
  }
  Add(If_else,2998683,49,56)
  {
   Type=5
   Op2=Real(0)
   link(onTrue,12659837:doSetDate,[])
   link(onFalse,3195826:doOn,[(94,69)(94,90)])
   link(Op1,10511601:Str,[])
  }
  Add(Switch,3195826,203,70)
  {
   DataOn=Integer(1)
   DataOff=Integer(0)
   Default=0
   Point(doOn)
   link(onSwitch,1926449:doIndex,[])
  }
  Add(GetIndexData,1926449,273,70)
  {
   link(onIndex,4358699:doVisible,[])
   link(Data1,12659837:DateTime,[(279,58)(245,58)(245,110)(139,110)])
   link(Data2,4919901:Value,[])
  }
  Add(Memory,4919901,280,21)
  {
   Default=Real(0)
  }
END_SDK
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#23: 2011-11-04 02:31:52 ЛС | профиль | цитата
Нажми кнопку "Х" и установи дату DatePicker-ом
------------ Дoбавленo в 02.31:
[flood]Всё, пошел спать.[/flood]
p.s. Но идея, применить Edit просто как шторку мне понравилась. Можно даже покрасить в красный цвет, как просил TC. Завтра попробую.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26164
Рейтинг: 2127
#24: 2011-11-04 02:48:34 ЛС | профиль | цитата
Tad писал(а):
Нажми кнопку "Х" и установи дату DatePicker-ом

Ты че, издеваешься

code_25677.txt
------------ Дoбавленo в 02.45:
На еще вариант 



Add(ChildPanelEx,9299349,399,420)
{
 @Hint=#5:nesco|
 @Color=65535
 AddHint(52,5,44,13,@Hint)
}
BEGIN_SDK
  Add(EditMultiEx,10511601,21,14)
  {
   WorkCount=#31:doText2=Установить текст в поле|
   EventCount=#8:onEvent2|
   VarCount=#26:Text=Текущее значение даты|
   DataCount=#26:Str=Значение для установки|
   Width=363
   Height=193
   VOffset=21
   HOffset=28
   link(doText2,2998683:doCompare,[(35,41)(35,62)])
   link(Text,9496434:Value,[(55,175)(209,175)])
  }
  Add(DatePicker,12659837,133,56)
  {
   Top=-1
   Width=79
   Height=21
   Ctl3D=0
   Point(DateTime)
   link(onChange,9496434:doValue,[])
  }
  Add(Panel,13306313,49,105)
  {
   Left=214
   Top=72
   Width=79
   Height=20
  }
  Add(Edit,4358699,308,119)
  {
   Left=1
   Top=1
   Width=60
   Height=18
   WinStyle=1
   Text=""
   ReadOnly=0
   Point(doSendToBack)
   Point(doBringToFront)
  }
  Add(If_else,2998683,49,56)
  {
   Type=5
   Op2=Real(0)
   link(onTrue,12659837:doSetDate,[])
   link(onFalse,5094725:doEvent1,[(116,69)(116,139)])
   link(Op1,10511601:Str,[])
  }
  Add(Memory,9496434,203,56)
  {
   Default=Real(0)
   Point(Data)
   link(onData,2032392:doEvent1,[])
   link(Data,12659837:DateTime,[(209,44)(174,44)(174,100)(139,100)])
  }
  Add(Hub,5094725,140,133)
  {
   link(onEvent1,9496434:doClear,[(186,139)(186,69)])
   link(onEvent2,4358699:doBringToFront,[])
  }
  Add(Hub,2032392,252,56)
  {
   link(onEvent1,4358699:doSendToBack,[(289,62)(289,139)])
   link(onEvent2,10511601:onEvent2,[(346,69)(346,41)])
  }
END_SDK

------------ Дoбавленo в 02.48:
И еще один 



Add(ChildPanelEx,9299349,399,420)
{
 @Hint=#5:nesco|
 @Color=65535
 AddHint(52,5,44,13,@Hint)
}
BEGIN_SDK
  Add(EditMultiEx,10511601,21,14)
  {
   WorkCount=#31:doText2=Установить текст в поле|
   EventCount=#8:onEvent2|
   VarCount=#26:Text=Текущее значение даты|
   DataCount=#26:Str=Значение для установки|
   Width=335
   Height=158
   VOffset=63
   HOffset=28
   link(doText2,2998683:doCompare,[])
   link(Text,9496434:Value,[(55,140)(174,140)])
  }
  Add(DatePicker,12659837,105,77)
  {
   Top=-1
   Width=79
   Height=21
   Ctl3D=0
   Point(DateTime)
   link(onChange,9496434:doValue,[])
  }
  Add(Panel,13306313,105,35)
  {
   Left=214
   Top=72
   Width=79
   Height=20
  }
  Add(Edit,4358699,301,28)
  {
   Left=1
   Top=1
   Width=60
   Height=18
   WinStyle=1
   Text=""
   ReadOnly=0
   Point(doSendToBack)
   Point(doBringToFront)
  }
  Add(If_else,2998683,49,77)
  {
   Type=5
   Op2=Real(0)
   link(onTrue,12659837:doSetDate,[])
   link(onFalse,9496434:doClear,[])
   link(Op1,10511601:Str,[])
  }
  Add(Memory,9496434,168,77)
  {
   Default=Real(0)
   Point(Data)
   link(onData,2032392:doEvent1,[])
   link(Data,12659837:DateTime,[(174,65)(142,65)(142,121)(111,121)])
  }
  Add(Hub,2032392,217,77)
  {
   link(onEvent1,11496204:doCase,[(241,83)(241,48)])
   link(onEvent2,10511601:onEvent2,[(293,90)(293,83)])
  }
  Add(Case,11496204,252,42)
  {
   Value=Real(0)
   link(onNextCase,4358699:doSendToBack,[])
   link(onTrue,4358699:doBringToFront,[])
  }
END_SDK
карма: 22

2
файлы: 1code_25677.txt [1.6KB] [225]
Голосовали:ser_davkin, user_asm
Ответов: 16884
Рейтинг: 1239
#25: 2011-11-04 17:18:13 ЛС | профиль | цитата
Остановился на таком варианте.
code_25680.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1code_25680.txt [2KB] [191]
Голосовали:miver
Разработчик
Ответов: 26164
Рейтинг: 2127
#26: 2011-11-04 17:27:00 ЛС | профиль | цитата
Tad писал(а):
Остановился на таком варианте

Для народа это не интересно
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#27: 2011-11-04 17:33:38 ЛС | профиль | цитата
nesco писал(а):
Для народа это не интересно
Просто пример взаимовыгодного симбиоза.ИМХО.
[flood]мнение народа пока не вижу[/flood]
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26164
Рейтинг: 2127
#28: 2011-11-04 17:40:27 ЛС | профиль | цитата
Tad, а ты никогда не задавался вопросом -- почему я очень редко выкладываю схемы на IC, неужели мне так сложно их было бы сделать
карма: 22

0
Ответов: 1536
Рейтинг: 176
#29: 2011-11-04 18:19:15 ЛС | профиль | цитата
Tad, [flood]извини, сегодня праздник (!) и я, лично, стараюсь не самовыражаться (спиритус, понимаешь ли! (самоконтроль)), мне понравился твой вариант (так мне показалось), хотел просто плюсануть (без разговора), но лимит (сам понимаешь) - плюсану. Протрезвею, продолжу разговор! [/flood]
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#30: 2011-11-04 20:11:21 ЛС | профиль | цитата
nesco, я не делал показательную схему для народа.
Хотя можно и для народа: project5old.rar
Я делал кубик лично для user_asm-а, для его конкретной программы.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1project5old.rar [1.1KB] [112]
ФорумыПомощь по пакетуКомпонент Календарь ← Ctrl1234Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика