HiAsm
HiAsm
Вверх ↑
ФорумыМежду деломКалендарь, как сделать стандартными стредствами? ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 689
Рейтинг: 20
#1: 2009-06-01 14:03:41 ЛС | профиль | цитата
Коллеги, несколько вопросов по DatePicker?

  • подскажите пожалуйста, как сделать банальный календарик стандартным компонентом DatePicker? Возможно ли это?
  • есть ли компонент для вывода аналоговых часов?
карма: 0

0
Ответов: 223
Рейтинг: 24
#2: 2009-06-01 14:07:19 ЛС | профиль | цитата
Кампонент для аналоговых часов есть в каталоге от Nesco
карма: 0

1
Голосовали:oldTV
Администрация
Ответов: 15295
Рейтинг: 1519
#3: 2009-06-01 14:14:26 ЛС | профиль | цитата
oldTV писал(а):
банальный календарик

банальный это какой?
карма: 26
https://hiasm.com
0
Ответов: 689
Рейтинг: 20
#4: 2009-06-01 14:19:30 ЛС | профиль | цитата
2Dilma: типа вот такого: http://xtort.net/xtort-software/timesentry/

p.s. ссылки все еще не хотят вставляться правильно
карма: 0

0
Ответов: 223
Рейтинг: 24
#5: 2009-06-01 14:19:41 ЛС | профиль | цитата
oldTV, нашел у себя,бросил в файлообмен
карма: 0

0
Ответов: 689
Рейтинг: 20
#6: 2009-06-01 14:37:43 ЛС | профиль | цитата
Он без инсталлятора, как ставить? Я такими экспериментами не занимаюсь, как с ini на db перешли
карма: 0

0
Ответов: 223
Рейтинг: 24
#7: 2009-06-01 14:43:18 ЛС | профиль | цитата
oldTV, бросаешь ini - на откритое поле HiAsmа,а дальше появится меню для установки компонента
карма: 0

0
Разработчик
Ответов: 26322
Рейтинг: 2147
#8: 2009-06-01 14:45:28 ЛС | профиль | цитата
oldTV писал(а):
как с ini на db перешли

ini базы да, заменили на db. Но ini компонентов остались, его надо кинуть на форму, дальше в окне указать куда установить, в какой пакет и в какую вкладку
карма: 22

0
Ответов: 689
Рейтинг: 20
#9: 2009-06-01 14:53:55 ЛС | профиль | цитата
Отлично, все хорошо. Вот теперь с календарем бы...
карма: 0

0
Разработчик
Ответов: 26322
Рейтинг: 2147
#10: 2009-06-01 15:10:01 ЛС | профиль | цитата
oldTV писал(а):
Вот теперь с календарем бы...

Посмотри пример ElementsDelphiExampleSystemCalendar.sha, может пойдет
карма: 22

1
Голосовали:oldTV
Ответов: 689
Рейтинг: 20
#11: 2009-06-01 15:25:38 ЛС | профиль | цитата
В принципе да... Спасибо
сейчас только вот разберусь как дату из него получить и оке
------------ Дoбавленo в 15.39:
Почему вот так не работает:
Add(MainForm,2953706,84,105){
 Width=188
 Height=230
 Caption="Easy calendar"
 BorderStyle=3
 link(onCreate,1339929:doWork1,[(138,125)(138,111)])
}
Add(ChildPanel,1339929,161,105)
{
}
BEGIN_SDK
  Add(EditMulti,13020457,21,21)
  {
   WorkCount=1
   link(doWork1,8889805:doFor,[(77,27)(77,216)])
  }
  Add(Panel,7695633,35,105)
  {
   Width=180
   Height=205
  }
  Add(MonthCalendar,12897021,189,280)
  {
   Year=2009
   Holidays=['Новогодние каникулы'=257,'Новогодние каникулы'=258,'Новогодние каникулы'=259,'Новогодние каникулы'=260,'Новогодние каникулы'=261,'Рождество Христово'=263,'День защитника Отечества'=535,'Международный женский день'=776,'Праздник Весны и Труда'=1281,'День Победы'=1289,'День России'=1548,'День народного единства'=2820]
   EmptyDays=0
   link(onDay,3316216:doValue,[])
   link(Month,9887217:Result,[])
  }
  Add(ChildPanelEx,1085463,406,210)
  {
   Mode=1
   link(Day,3316216:Value1,[(412,205)(352,205)(352,334)(251,334)])
   link(Mask,3316216:Value3,[(419,198)(342,198)(342,327)(265,327)])
  }
  BEGIN_SDK
    Add(EditMultiEx,9240546,21,21)
    {
     WorkCount=#5:##add|8:##select|
     DataCount=#3:Day|4:Mask|
     Width=363
     Height=319
     Point(##add)
     Point(##select)
     link(##select,8879171:doEvent1,[(35,34)(35,111)])
    }
    Add(Panel,12454826,329,105)
    {
     Left=5
     Top=5
     Width=25
     Height=25
     Layout="parent.grid"
     BevelInner=0
     BevelOuter=1
     Point(doColor)
    }
    Add(IntToBits,11203693,196,161)
    {
     Count=3
     ZeroBits=1
     link(onBit1,5681729:doColor,[])
     link(onBit2,3771881:doColor,[(240,174)(240,209)])
     link(onBit3,4485080:doColor,[(240,181)(240,251)])
    }
    Add(Hub,8879171,49,105)
    {
     link(onEvent1,10065014:doData,[])
     link(onEvent2,5320309:doData,[(81,118)(81,167)])
    }
    Add(DoData,10065014,210,105)
    {
     link(onEventData,12454826:doCaption,[])
     link(Data,9240546:Day,[(216,63)(27,63)])
    }
    Add(SelectColor,5681729,252,161)
    {
     Color=-16777196
     link(onColor,15158925:doWork2,[])
    }
    Add(SelectColor,4485080,252,245)
    {
     Color=255
     link(onColor,8892327:doWork2,[])
    }
    Add(HubEx,15158925,294,154)
    {
     Angle=3
     link(onEvent,12454826:doColor,[(298,118)])
    }
    Add(SelectColor,3771881,252,203)
    {
     Color=8224255
     link(onColor,11114458:doWork2,[])
    }
    Add(HubEx,11114458,294,196)
    {
     Angle=3
     link(onEvent,15158925:doWork3,[])
    }
    Add(If_else,3314870,147,161)
    {
     Type=5
     Op2=Integer(0)
     link(onTrue,11203693:doBits,[])
     link(onFalse,13350242:doColor,[(190,174)(190,293)])
    }
    Add(SelectColor,13350242,252,287)
    {
     Color=-16777201
     link(onColor,8892327:doWork3,[(298,293)])
    }
    Add(HubEx,8892327,294,238)
    {
     Angle=3
     link(onEvent,11114458:doWork3,[])
    }
    Add(DoData,5320309,98,161)
    {
     link(onEventData,3314870:doCompare,[])
     link(Data,9240546:Mask,[(104,31)(34,31)])
    }
  END_SDK
  Add(For,8889805,133,210)
  {
   End=41
   link(onEvent,1085463:##add,[])
   link(onStop,2403348:doWork1,[(179,223)])
  }
  Add(ToolBarLayout,8904769,455,210)
  {
   Name="grid"
  }
  Add(MT_MultiMem,3316216,245,280)
  {
   Count=3
   link(onData,8910285:doNext,[])
  }
  Add(Counter,8910285,301,280)
  {
   Max=41
   Default=41
   link(onNext,1085463:##select,[(369,286)(369,223)])
  }
  Add(ComboBox,2872526,140,126)
  {
   Left=5
   Top=180
   Width=170
   Height=21
   Strings=#6:Январь|7:Февраль|4:Март|6:Апрель|3:Май|4:Июнь|4:Июль|6:Август|8:Сентябрь|7:Октябрь|6:Ноябрь|7:Декабрь|
   ReadOnly=0
   link(onClick,9887217:doOperation,[])
  }
  Add(Math,9887217,196,133)
  {
   Op2=1
   Default=1
   link(onResult,2403348:doWork3,[(240,139)(240,244)])
  }
  Add(HubEx,2403348,175,231)
  {
   Angle=1
   link(onEvent,12897021:doEnumDays,[(179,286)])
  }
END_SDK
карма: 0

0
Ответов: 223
Рейтинг: 24
#12: 2009-06-01 15:58:17 ЛС | профиль | цитата
oldTV, Вот так подойдет
code_13555.txt
------------ Дoбавленo в 16.01:
поменять местами точки день.маска
карма: 0

0
файлы: 1code_13555.txt [4KB] [215]
Разработчик
Ответов: 26322
Рейтинг: 2147
#13: 2009-06-01 16:07:09 ЛС | профиль | цитата
wasya писал(а):
Вот так подойдет

Мдаа... Уж. Все -- гораздо проще 


Add(MainForm,2953706,84,105)
{
 Width=198
 Height=252
 Caption="Easy calendar"
 BorderStyle=3
 link(onCreate,11913363:doStart,[])
}
Add(ChildPanelEx,11913363,161,119)
{
}
BEGIN_SDK
  Add(EditMultiEx,4446711,21,21)
  {
   WorkCount=#7:doStart|
   Width=496
   Height=382
   link(doStart,8889805:doFor,[(56,27)(56,125)])
  }
  Add(Panel,5264006,154,273)
  {
   Left=5
   Top=5
   Width=180
   Height=210
  }
  Add(ChildPanelEx,10727211,364,119)
  {
   Mode=1
   link(Day,3316216:Value1,[(370,114)(310,114)(310,243)(209,243)])
   link(Mask,3316216:Value3,[(377,107)(300,107)(300,236)(223,236)])
  }
  BEGIN_SDK
    Add(EditMultiEx,9240546,21,21)
    {
     WorkCount=#5:##add|8:##select|
     DataCount=#3:Day|4:Mask|
     Width=363
     Height=319
     Point(##add)
     Point(##select)
     link(##select,8879171:doEvent1,[(35,34)(35,111)])
    }
    Add(Panel,12454826,329,105)
    {
     Left=5
     Top=5
     Width=25
     Height=25
     Layout="parent.parent.grid"
     BevelInner=0
     BevelOuter=1
     Point(doColor)
    }
    Add(IntToBits,11203693,196,161)
    {
     Count=3
     ZeroBits=1
     link(onBit1,5681729:doColor,[])
     link(onBit2,3771881:doColor,[(240,174)(240,209)])
     link(onBit3,4485080:doColor,[(240,181)(240,251)])
    }
    Add(Hub,8879171,49,105)
    {
     link(onEvent1,10065014:doData,[])
     link(onEvent2,5320309:doData,[(81,118)(81,167)])
    }
    Add(DoData,10065014,210,105)
    {
     link(onEventData,12454826:doCaption,[])
     link(Data,9240546:Day,[(216,63)(27,63)])
    }
    Add(SelectColor,5681729,252,161)
    {
     Color=-16777196
     link(onColor,15158925:doWork2,[])
    }
    Add(SelectColor,4485080,252,245)
    {
     Color=255
     link(onColor,8892327:doWork2,[])
    }
    Add(HubEx,15158925,294,154)
    {
     Angle=3
     link(onEvent,12454826:doColor,[(298,118)])
    }
    Add(SelectColor,3771881,252,203)
    {
     Color=8224255
     link(onColor,11114458:doWork2,[])
    }
    Add(HubEx,11114458,294,196)
    {
     Angle=3
     link(onEvent,15158925:doWork3,[])
    }
    Add(If_else,3314870,147,161)
    {
     Type=5
     Op2=Integer(0)
     link(onTrue,11203693:doBits,[])
     link(onFalse,13350242:doColor,[(190,174)(190,293)])
    }
    Add(SelectColor,13350242,252,287)
    {
     Color=-16777201
     link(onColor,8892327:doWork3,[(298,293)])
    }
    Add(HubEx,8892327,294,238)
    {
     Angle=3
     link(onEvent,11114458:doWork3,[])
    }
    Add(DoData,5320309,98,161)
    {
     link(onEventData,3314870:doCompare,[])
     link(Data,9240546:Mask,[(104,31)(34,31)])
    }
  END_SDK
  Add(MonthCalendar,12897021,147,189)
  {
   Year=2009
   Holidays=['Новогодние каникулы'=257,'Новогодние каникулы'=258,'Новогодние каникулы'=259,'Новогодние каникулы'=260,'Новогодние каникулы'=261,'Рождество Христово'=263,'День защитника Отечества'=535,'Международный женский день'=776,'Праздник Весны и Труда'=1281,'День Победы'=1289,'День России'=1548,'День народного единства'=2820]
   EmptyDays=0
   link(onDay,3316216:doValue,[])
   link(Month,9887217:Result,[])
  }
  Add(For,8889805,91,119)
  {
   End=41
   link(onEvent,10727211:##add,[])
   link(onStop,2403348:doWork1,[(137,132)])
  }
  Add(MT_MultiMem,3316216,203,189)
  {
   Count=3
   link(onData,8910285:doNext,[])
  }
  Add(Counter,8910285,259,189)
  {
   Max=41
   Default=41
   link(onNext,10727211:##select,[(327,195)(327,132)])
  }
  Add(ComboBox,2872526,98,35)
  {
   Left=5
   Top=180
   Width=170
   Height=21
   Strings=#6:Январь|7:Февраль|4:Март|6:Апрель|3:Май|4:Июнь|4:Июль|6:Август|8:Сентябрь|7:Октябрь|6:Ноябрь|7:Декабрь|
   ReadOnly=0
   link(onClick,9887217:doOperation,[])
  }
  Add(Math,9887217,154,42)
  {
   Op2=1
   Default=1
   link(onResult,2403348:doWork3,[(198,48)(198,153)])
  }
  Add(HubEx,2403348,133,140)
  {
   Angle=1
   link(onEvent,12897021:doEnumDays,[(137,195)])
  }
END_SDK
Add(ToolBarLayout,8904769,161,77)
{
 Name="grid"
}
карма: 22

1
Голосовали:wasya
Ответов: 689
Рейтинг: 20
#14: 2009-06-01 16:56:18 ЛС | профиль | цитата
есть ньюанс. он заключается в том, что если панель выравнена в размер формы - то все ок, а если форма имеет размер шире чем панель, то динамика чисел растет по размеру формы, а не размеру панели. В коде, кстати, видно:
code_13556.txt
карма: 0

0
файлы: 1code_13556.txt [3.8KB] [442]
Разработчик
Ответов: 26322
Рейтинг: 2147
#15: 2009-06-01 17:10:42 ЛС | профиль | цитата
oldTV, вот так попробуй 



Add(MainForm,8103797,252,238)
{
 Width=573
 Height=237
 Caption="Easy calendar"
 BorderStyle=3
 link(onCreate,11913363:doStart,[])
}
Add(ChildPanelEx,11913363,308,252)
{
}
BEGIN_SDK
  Add(EditMultiEx,4446711,21,21)
  {
   WorkCount=#7:doStart|
   Width=496
   Height=298
   link(doStart,8889805:doFor,[(34,27)(34,125)])
  }
  Add(Panel,5264006,49,266)
  {
   Width=205
   Height=210
  }
  Add(ChildPanelEx,10727211,392,119)
  {
   Mode=1
   link(Day,3316216:Value1,[(398,114)(338,114)(338,243)(237,243)])
   link(Mask,3316216:Value3,[(405,107)(328,107)(328,236)(251,236)])
  }
  BEGIN_SDK
    Add(EditMultiEx,9240546,21,21)
    {
     WorkCount=#5:##add|8:##select|
     DataCount=#3:Day|4:Mask|
     Width=363
     Height=319
     Point(##add)
     Point(##select)
     link(##select,8879171:doEvent1,[(35,34)(35,111)])
    }
    Add(Panel,12454826,329,105)
    {
     Left=5
     Top=5
     Width=25
     Height=25
     Layout="parent.grid"
     BevelInner=0
     BevelOuter=1
     Point(doColor)
    }
    Add(IntToBits,11203693,196,161)
    {
     Count=3
     ZeroBits=1
     link(onBit1,5681729:doColor,[])
     link(onBit2,3771881:doColor,[(240,174)(240,209)])
     link(onBit3,4485080:doColor,[(240,181)(240,251)])
    }
    Add(Hub,8879171,49,105)
    {
     link(onEvent1,10065014:doData,[])
     link(onEvent2,5320309:doData,[(81,118)(81,167)])
    }
    Add(DoData,10065014,210,105)
    {
     link(onEventData,12454826:doCaption,[])
     link(Data,9240546:Day,[(216,63)(27,63)])
    }
    Add(SelectColor,5681729,252,161)
    {
     Color=-16777196
     link(onColor,15158925:doWork2,[])
    }
    Add(SelectColor,4485080,252,245)
    {
     Color=255
     link(onColor,8892327:doWork2,[])
    }
    Add(HubEx,15158925,294,154)
    {
     Angle=3
     link(onEvent,12454826:doColor,[(298,118)])
    }
    Add(SelectColor,3771881,252,203)
    {
     Color=8224255
     link(onColor,11114458:doWork2,[])
    }
    Add(HubEx,11114458,294,196)
    {
     Angle=3
     link(onEvent,15158925:doWork3,[])
    }
    Add(If_else,3314870,147,161)
    {
     Type=5
     Op2=Integer(0)
     link(onTrue,11203693:doBits,[])
     link(onFalse,13350242:doColor,[(190,174)(190,293)])
    }
    Add(SelectColor,13350242,252,287)
    {
     Color=-16777201
     link(onColor,8892327:doWork3,[(298,293)])
    }
    Add(HubEx,8892327,294,238)
    {
     Angle=3
     link(onEvent,11114458:doWork3,[])
    }
    Add(DoData,5320309,98,161)
    {
     link(onEventData,3314870:doCompare,[])
     link(Data,9240546:Mask,[(104,31)(34,31)])
    }
  END_SDK
  Add(MonthCalendar,12897021,175,189)
  {
   Year=2009
   Holidays=['Новогодние каникулы'=257,'Новогодние каникулы'=258,'Новогодние каникулы'=259,'Новогодние каникулы'=260,'Новогодние каникулы'=261,'Рождество Христово'=263,'День защитника Отечества'=535,'Международный женский день'=776,'Праздник Весны и Труда'=1281,'День Победы'=1289,'День России'=1548,'День народного единства'=2820]
   EmptyDays=0
   link(onDay,3316216:doValue,[])
   link(Month,9887217:Result,[])
  }
  Add(For,8889805,77,119)
  {
   End=41
   link(onEvent,10727211:##add,[])
   link(onStop,2403348:doWork1,[(123,132)])
  }
  Add(MT_MultiMem,3316216,231,189)
  {
   Count=3
   link(onData,8910285:doNext,[])
  }
  Add(Counter,8910285,287,189)
  {
   Max=41
   Default=41
   link(onNext,10727211:##select,[(355,195)(355,132)])
  }
  Add(ComboBox,2872526,98,35)
  {
   Left=5
   Top=180
   Width=195
   Height=21
   Strings=#6:Январь|7:Февраль|4:Март|6:Апрель|3:Май|4:Июнь|4:Июль|6:Август|8:Сентябрь|7:Октябрь|6:Ноябрь|7:Декабрь|
   ReadOnly=0
   link(onClick,9887217:doOperation,[])
  }
  Add(Math,9887217,182,42)
  {
   Op2=1
   Default=1
   link(onResult,2403348:doWork3,[(226,48)(226,153)])
  }
  Add(HubEx,2403348,119,140)
  {
   Angle=1
   link(onEvent,1159431:doEvent1,[(123,195)])
  }
  Add(ToolBarLayout,8904769,175,252)
  {
   Name="grid"
   AddMode=1
  }
  Add(Hub,1159431,140,189)
  {
   link(onEvent1,12897021:doEnumDays,[])
   link(onEvent2,8904769:doResize,[(164,202)(164,258)])
  }
END_SDK
карма: 22

1
Голосовали:oldTV
ФорумыМежду деломКалендарь, как сделать стандартными стредствами? ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика