GsRAChart.TgsRAChart

Модуль: GsRAChart.pas

Конструкторы и деструкторы

Свойства

Методы

События

Наследованные члены

Delphi:

 TgsRAChart = class(TCustomControl)

Описание

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

Быстрые клавиши

Клавиша	Функция
Стрелки	Перемещение курсора на одну позицию.
Home	На первую дату экрана.
End	На последнюю дату экрана.
PgUp	На экран вверх.
PgDn	На экран вниз.
Ctrl+Home	На первую дату диапазона.
Ctrl+End	На последнюю дату диапазона.
Ctrl+PgUp	На первую строку списка.
Ctrl+PgDn	На последнюю строку списка.
Ctrl+T	На текущую дату.

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

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