В качестве примера использования класса
В качестве примера использования класса TDataEditor я написал компонент (TGraph), который строит графики функций. А также я сделал ActiveX объект, который демонстрирует возможности компонента TGraph. ActiveX Вы можете увидеть чуть ниже, но сначала несколько слов о методах и свойствах TGraph:
- function XCoord(X: Double): Double; возвращает координату оси X в масштабе графика. Параметр функции X указывается в масштабе компонента
- function YCoord(Y: Double): Double; возвращает координату оси Y в масштабе графика. Параметр функции Y указывается в масштабе компонента
- function Coordinates(X, Y: Double): TCoord;
TCoord = record X, Y: Double; end; возвращает координаты в масштабе графика. Параметры функции X и Y указывается в масштабе компонента - property Picture: TBitmap; содержит изображение графика
- property Detailization: Integer; уровень детализации графика. Это свойство регулирует количество точек, которые будут рассчитаны начиная с минимального до максимального значений оси X. При повышении детализации, повышается количество расчетных точек на оси X, соответственно повышается количество соответствующих им точек Y. Поэтому эффект от повышения детализации заметнее на графиках типа Y = TAN X, где больше вертикальных линий (практически нет смысла детализировать функции типа Y = X или Y = SIN X). После расчета графика создается массив точек, который затем подвергается фильтрации (чтобы избежать двух точек с одинаковыми координатами - побочный эффект чрезмерной детализации).
- property FramePen: TPen; отвечает за прорисовку линии рамки
- property GraphPen: TPen; отвечает за прорисовку линии графика
- property GridPen: TPen; отвечает за прорисовку линии координатной сетки
- property HorzSpacing: Double; шаг координатной сетки по горизонтали
- property ShowAxis: Boolean; определяет видимость координатных осей
- property ShowFrame: Boolean; определяет видимость рамки
- property ShowGrid: Boolean; определяет видимость координатной сетки
- property ShowText: Boolean; определяет видимость формулы
- property Text: string; содержит формулу
- property TracePen: TPen; отвечает за прорисовку линий трассировки
- property Tracing: Boolean; определяет трассировку графика
- property VertSpacing: Double; шаг координатной сетки по вертикали
- property XMaxValue: Integer; максимальное значение оси X
- property YMaxValue: Integer; максимальное значение оси Y
- property OnTrace: TTraceEvent; TTraceEvent = procedure(Sender: TObject; X, Y: Double; var Continue: Boolean) of object; событие, возникает при трассировки графика. Параметры X, Y возвращают координаты текущей точки, параметр Continue позволяет прекратить трассировку
Прежде чем переходить по ссылке, обратите внимание, придется скачать ActiveX размером 304К.
