GsRAChart.TgsRAChart

Материал из GedeminWiki
(Различия между версиями)
Перейти к: навигация, поиск
(Новая страница: «{{ClassDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|class={{#explode:{{PAGENAME}}|.|1}}|src=TgsRAChart = class(TCustomControl)}} == Описание == <only…»)
 
 
(не показаны 11 промежуточных версий 1 участника)
Строка 3: Строка 3:
 
== Описание ==
 
== Описание ==
  
−
<onlyinclude>Визуальный компонент для отображения шахматки.</onlyinclude>
+
<onlyinclude>Визуальный компонент для отображения "шахматки".</onlyinclude>
 +
 
 +
Пример использования:
 +
 
 +
http://gsbelarus.com/gs/images/gs/2017/rachart_01.png
 +
 
 +
===Быстрые клавиши===
 +
 
 +
{| border="1" cellpadding="2" cellspacing="0" style="border-collapse:collapse;"
 +
!style="background:#ffdead;"| Клавиша
 +
!style="background:#ffdead;"| Функция
 +
|- valign="top"
 +
|Стрелки
 +
|Перемещение курсора на одну позицию.
 +
|- valign="top"
 +
|Home
 +
|На первую дату экрана.
 +
|- valign="top"
 +
|End
 +
|На последнюю дату экрана.
 +
|- valign="top"
 +
|PgUp
 +
|На экран вверх.
 +
|- valign="top"
 +
|PgDn
 +
|На экран вниз.
 +
|- valign="top"
 +
|Ctrl+Стрелка влево
 +
|На первую занятую дату в текущей строке.
 +
|- valign="top"
 +
|Ctrl+Стрелка вправо
 +
|На последнюю занятую дату в текущей строке.
 +
|- valign="top"
 +
|Ctrl+Home
 +
|На первую дату диапазона.
 +
|- valign="top"
 +
|Ctrl+End
 +
|На последнюю дату диапазона.
 +
|- valign="top"
 +
|Ctrl+PgUp
 +
|На первую строку списка.
 +
|- valign="top"
 +
|Ctrl+PgDn
 +
|На последнюю строку списка.
 +
|- valign="top"
 +
|Ctrl+T
 +
|На текущую дату.
 +
|- valign="top"
 +
|Ctrl+L
 +
|Отображает на экране первые, в хронологическом порядке, интервалы.
 +
|- valign="top"
 +
|Ctrl+R
 +
|Отображает на экране последние, в хронологическом порядке, интервалы.
 +
|}
 +
 
 +
===Пример использования===
 +
 
 +
<syntaxhighlight lang="VB">
 +
Option Explicit
 +
Sub usrf_test_RAChartOnCreate(ByVal Sender)
 +
'*** Данный код необходим для вызова встроенного обработчика ***
 +
'*** В случае его удаления возможно нарушение работы системы ***
 +
  Call  Inherited(Sender, "OnCreate", Array(Sender))
 +
'*** конец кода поддержки встроенного обработчика            ***
 +
 
 +
  Dim RAChart, I
 +
  Set RAChart = Sender.GetComponent("usrg_gsRAChart")
 +
 
 +
  RAChart.MinValue = DateSerial(2017, 01, 01)
 +
  RAChart.MaxValue = DateSerial(2017, 12, 31)
 +
 
 +
  RAChart.AddRowHead "Номер", 120
 +
  RAChart.AddRowHead "Класс", 80
 +
 
 +
  RAChart.AddRowTail "Итого", 60
 +
  RAChart.AddRowTail "Всего", 60
 +
 
 +
 
 +
  For I = 1 To 20
 +
    RAChart.AddResource I, "Номер №" & I, "Люкс"
 +
  Next
 +
 
 +
  RAChart.AddSubResource 1000, 3, "Место 1", ""
 +
  RAChart.AddSubResource 1001, 3, "Место 2", ""
 +
  RAChart.AddSubResource 1002, 3, "Место 3", ""
 +
 
 +
  RAChart.AddSubResource 10000, 1001, "Одеяло", "Теплое"
 +
 
 +
  RAChart.AddInterval 100000, 2, DateSerial(2017, 2, 10), DateSerial(2017, 2, 20), _
 +
    "Бронирование 1", "Комментарий", 1000
 +
  RAChart.AddInterval 100001, 5, DateSerial(2017, 2, 14), DateSerial(2017, 2, 20), _
 +
    "Бронирование 2", "Комментарий" & vbCrLf & "в" & vbCrLf & "три строки", 2000
 +
 
 +
  RAChart.FirstVisibleValue = DateSerial(2017, 01, 30)
 +
  RAChart.Value = DateSerial(2017, 02, 10)
 +
  RAChart.ResourceID = 10
 +
End Sub
 +
</syntaxhighlight>

Текущая версия на 17:58, 16 июня 2017

 Модуль: GsRAChart.pas   Конструкторы и деструкторы   Свойства   Методы   События   Наследованные члены 

Delphi: 

 TgsRAChart = class(TCustomControl)

[править] Описание

Визуальный компонент для отображения "шахматки".

Пример использования:

rachart_01.png

[править] Быстрые клавиши

Клавиша Функция
Стрелки Перемещение курсора на одну позицию.
Home На первую дату экрана.
End На последнюю дату экрана.
PgUp На экран вверх.
PgDn На экран вниз.
Ctrl+Стрелка влево На первую занятую дату в текущей строке.
Ctrl+Стрелка вправо На последнюю занятую дату в текущей строке.
Ctrl+Home На первую дату диапазона.
Ctrl+End На последнюю дату диапазона.
Ctrl+PgUp На первую строку списка.
Ctrl+PgDn На последнюю строку списка.
Ctrl+T На текущую дату.
Ctrl+L Отображает на экране первые, в хронологическом порядке, интервалы.
Ctrl+R Отображает на экране последние, в хронологическом порядке, интервалы.

[править] Пример использования

Option Explicit
Sub usrf_test_RAChartOnCreate(ByVal Sender)
'*** Данный код необходим для вызова встроенного обработчика ***
'*** В случае его удаления возможно нарушение работы системы ***
  Call   Inherited(Sender, "OnCreate", Array(Sender))
'*** конец кода поддержки встроенного обработчика            ***

  Dim RAChart, I
  Set RAChart = Sender.GetComponent("usrg_gsRAChart")
 
  RAChart.MinValue = DateSerial(2017, 01, 01)
  RAChart.MaxValue = DateSerial(2017, 12, 31)
 
  RAChart.AddRowHead "Номер", 120
  RAChart.AddRowHead "Класс", 80
 
  RAChart.AddRowTail "Итого", 60
  RAChart.AddRowTail "Всего", 60
 
 
  For I = 1 To 20
    RAChart.AddResource I, "Номер №" & I, "Люкс"
  Next
 
  RAChart.AddSubResource 1000, 3, "Место 1", ""
  RAChart.AddSubResource 1001, 3, "Место 2", ""
  RAChart.AddSubResource 1002, 3, "Место 3", ""
 
  RAChart.AddSubResource 10000, 1001, "Одеяло", "Теплое"
 
  RAChart.AddInterval 100000, 2, DateSerial(2017, 2, 10), DateSerial(2017, 2, 20), _
    "Бронирование 1", "Комментарий", 1000
  RAChart.AddInterval 100001, 5, DateSerial(2017, 2, 14), DateSerial(2017, 2, 20), _
    "Бронирование 2", "Комментарий" & vbCrLf & "в" & vbCrLf & "три строки", 2000
 
  RAChart.FirstVisibleValue = DateSerial(2017, 01, 30)
  RAChart.Value = DateSerial(2017, 02, 10)
  RAChart.ResourceID = 10
End Sub
Источник — «https://gsbelarus.com:80/gs/wiki/index.php?title=GsRAChart.TgsRAChart&oldid=7252»
Персональные инструменты
Пространства имён

Варианты
Действия
Навигация
Инструменты