Вверх ↑
Пакеты 
HiAsm4
Windows 
Компоненты 
Лoгикa - CounterEx

CounterEx
Краткое описание
  Компонент предназначен для создания в программе счетчиков различного назначения
Параметры
  • Min - Установка минимального значения счетчика
  • Max - Установка максимального значения счетчика
  • Step - Установка шага счетчика
  • Direct - Направление счета Inc: от Min к Max, Dec: от Max к Min
  • Default - Начальное значение счетчика
  • Методы
  • doNext - Устанавливает следующее значение счетчика
  • doPrev - Устанавливает предыдущее значение счетчика
  • doReset - Сброс счетчика в начальное значение
  • doValue - Устанавливает значение счетчика
  • События
  • onNext - Событие происходит всякий раз при установке нового значения счетчика и возвращает в поток его текущее значение
  • onThroughMax - Событие происходит всякий раз после перехода через максимальное значение счетчика
  • onThroughMin - Событие происходит всякий раз после перехода через минимальное значение счетчика
  • Свойства
  • Count - Содержит текущее значение счетчика
  • Max - Содержит максимальное значение счетчика
  • Min - Содержит минимальное значение счетчика
  • Direct - Содержит текущее направление счета (0 - Inc, 1 - Dec)
  • Пример
      Пример создания бесконечного реверсивного счетчика

    
    Add(MainForm,2953706,140,91)
    {
     Width=371
     Height=206
     Caption="CounterEx"
    }
    Add(CounterEx,3012743,329,147)
    {
     Min=1
     Max=10
     Default=1
     Point(doValue)
     Point(onThroughMax)
     Point(onThroughMin)
     Point(doDirect)
     Point(Direct)
     Point(Max)
     Point(Min)
     link(onNext,11002303:doText,[])
     link(onThroughMax,1648576:doData,[(387,160)(387,211)(331,211)(331,237)])
     link(onThroughMin,7000761:doData,[(380,167)(380,205)(324,205)(324,279)])
    }
    Add(Label,11002303,406,147)
    {
     Left=125
     Top=40
     Width=100
     Height=45
     Font=[MS Sans Serif,24,1,0,1]
     Caption="1"
     AutoSize=1
     Alignment=2
    }
    Add(Button,5658069,140,147)
    {
     Left=150
     Top=105
     TabOrder=-1
     Caption="Start"
     link(onClick,1230632:doTimer,[])
    }
    Add(Timer,1230632,189,147)
    {
     Interval=500
     Enable=1
     link(onTimer,14297138:doWork2,[])
    }
    Add(DoData,1648576,343,231)
    {
     link(onEventData,12276218:doEvent1,[])
     link(Data,3012743:Max,[])
    }
    Add(DoData,7000761,350,273)
    {
     link(onEventData,12276218:doEvent2,[(394,279)(394,244)])
     link(Data,3012743:Min,[])
    }
    Add(Hub,12276218,406,231)
    {
     InCount=2
     OutCount=3
     link(onEvent1,3012743:doValue,[(450,237)(450,320)(235,320)(235,160)])
     link(onEvent2,3401999:doOperation,[(441,244)(441,314)(242,314)(242,237)])
     link(onEvent3,14297138:doWork3,[(432,251)(432,308)(298,308)])
    }
    Add(HubEx,14297138,294,147)
    {
     link(onEvent,3012743:doNext,[])
    }
    Add(Math,3401999,252,231)
    {
     OpType=6
     Op2=1
     ResultType=0
     link(onResult,3012743:doDirect,[(310,237)(310,167)])
     link(Op1,3012743:Direct,[(258,194)(342,194)])
    }
    
    
    Замечания
    Обновление элемента: [svn]CounterEx.pas[/svn]
    BB-code статьи для вставки
    Всего комментариев: 0
    (комментарии к статье еще не добавлены)
    Комментарий
    ...