GsRAChart.TgsRAChart
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 40: | Строка 40: | ||
|Ctrl+T | |Ctrl+T | ||
|На текущую дату. | |На текущую дату. | ||
| − | |||
| − | |||
| − | |||
|} | |} | ||
Версия 13:19, 12 мая 2017
| Модуль: 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
