точки в серію з об'єкта FIncr відповідно до полем FTypeChart (тобто відповідно до виду відображення графіка)
Клас TLineMap=class (TLineSeries) DefineColor (iColor: Integer): TColor;
publicLoadFromFile (filename: String); GetFromBlob;
constructor Create (AOwner: TComponent); override ;; DefineColor (iColor: Integer): TColor;
Метод визначає колір, відповідний елементу з перерахування TColorLine. iColor -номер елемента в перерахуванні.
procedure LoadFromFile (filename: String);
Метод, в якому спочатку читаються дані з файлу filename, зокрема кількість координат, номер кольору в перерахуванні і самі координати. Причому координати записуються відразу в потоки для координат X і Y відповідно. Далі в результаті виконання sql-запиту додається запис з прочитаними даними з файлу в таблицю Map. Причому потоки завантажуються у відповідні blob-поля.
procedure GetFromBlob;
Метод, який в результаті виконання sql-запиту, що повертає всі записи таблиці Map, заносить ці записи в серію, причому кожного запису відповідає своя лінія у серії.
Клас TChartIncr
type
TChartIncr=class (TChart)
private
FTypeChart: TTypeChart;// визначає тип відображення інклінометрії
Timer: TTimer;// таймер необхідний для того, щоб коректно виконувалася перерисовка об'єктів типу TLabel при скролінгу і наближенні зображення
procedure FnTypeChart (TypeCh: TTypeChart); OnTimerIncr (Sender: TObject); OnActionIncr (Sender: TObject);
public: TLineMap;// серія містить різні лінії, що утворюють в сукупності карту місцевості
LineSeriesIncr: TLineSeriesIncr;// серія, яка містить точки свердловини
constructor Create (AOwner: TComponent); override; Destroy; override; TypeChart: TTypeChart read FTypeChart write FnTypeChart ;;
procedure OnTimerIncr (Sender: TObject);
Оброблювач подій для Timer. Таймер необхідний для того, щоб коректно виконувалася перерисовка об'єктів типу TLabelIncr при скролінгу і наближенні зображення.
Викликає метод класу TObjectListLabel - MakeLabels.
procedure OnActionIncr (Sender: TObject);
Оброблювач подій OnZoom, OnUndoZoom, OnScrolling для об'єкта типу TChartIncr
Метод для коректної промальовування об'єктів типу TLabelIncr запускає таймер.
Також додаток використовує модуль UStringIncr, з розташованими в ньому рядковими константами, необхідними для sql-запитів.