Class TMultipleContourCreator

DescriptionHierarchyFieldsMethodsProperties

Unit

ContourUnit

Declaration

type TMultipleContourCreator = class(TCustomContourCreator)

Description

TMultipleContourCreator is used to create contours for drawing. If TMultipleContourCreator is changed, consider changing TContourExtractor in ContourExport and TfrmExportImage too.

Hierarchy

Overview

Fields

Private FBitMap: TBitmap32;
Private FZoomBox: TQRbwZoomBox2;
Private FLabelLocations: TRbwQuadTree;
Private FLabels: TLabelObjectList;
Private FAlgorithm: TContourAlg;

Methods

Private procedure CreateAndDrawContours(const ContourValues, LineThicknesses: TOneDRealArray; const ContourColors: TArrayOfColor32; ContourLabels: TStringList);
Private procedure DrawContours(const ContourValues, LineThicknesses: TOneDRealArray; const ContourColors: TArrayOfColor32; SelectedColRowLayer: integer; ViewDirection: TViewDirection; ContourLabels: TStringList); overload;
Private procedure GetSpecifiedMinMax(var MinValue, MaxValue: Double; DSValues: TStringList);
Private procedure GetContouringParameters(var RequiredSize: Integer; MinValue: Double; MaxValue: Double; var DesiredSpacing: Double; var SmallestContour: Double; var LargestContour: Double);
Private procedure GetContourValues(LargestContour, SmallestContour: Double; RequiredSize: Integer; var ContourValues: TOneDRealArray);
Private procedure GetContourColorsAndThicknesses(DesiredSpacing: Double; RequiredSize: Integer; var LineThicknesses: TOneDRealArray; var ContourColors: TArrayOfColor32; ContourValues: TOneDRealArray; ColorParameters: TColorParameters);
Public Constructor Create;
Public Destructor Destroy; override;
Public procedure DrawContours(SelectedColRowLayer: integer; ColorParameters: TColorParameters; ViewDirection: TViewDirection); overload;

Properties

Public property BitMap: TBitmap32 read FBitMap write FBitMap;
Public property ZoomBox: TQRbwZoomBox2 read FZoomBox write FZoomBox;

Description

Fields

Private FBitMap: TBitmap32;
 
Private FZoomBox: TQRbwZoomBox2;
 
Private FLabelLocations: TRbwQuadTree;
 
Private FLabels: TLabelObjectList;
 
Private FAlgorithm: TContourAlg;
 

Methods

Private procedure CreateAndDrawContours(const ContourValues, LineThicknesses: TOneDRealArray; const ContourColors: TArrayOfColor32; ContourLabels: TStringList);

CreateAndDrawContours calls DrawContour for each memeber of ContourValues.

Private procedure DrawContours(const ContourValues, LineThicknesses: TOneDRealArray; const ContourColors: TArrayOfColor32; SelectedColRowLayer: integer; ViewDirection: TViewDirection; ContourLabels: TStringList); overload;

DrawContours initializes the TDataArrays and then calls AssignGridValues and CreateAndDrawContours. DrawContours is called if DataSet.Contours.SpecifyContours is true;

Private procedure GetSpecifiedMinMax(var MinValue, MaxValue: Double; DSValues: TStringList);

GetSpecifiedMinMax updates MinValue and MaxValue base on limits in DataSet.ContourLimits.

Private procedure GetContouringParameters(var RequiredSize: Integer; MinValue: Double; MaxValue: Double; var DesiredSpacing: Double; var SmallestContour: Double; var LargestContour: Double);

GetContouringParameters returns the values need to define the contour values.

Private procedure GetContourValues(LargestContour, SmallestContour: Double; RequiredSize: Integer; var ContourValues: TOneDRealArray);

GetContourValues initializes ContourValues.

Private procedure GetContourColorsAndThicknesses(DesiredSpacing: Double; RequiredSize: Integer; var LineThicknesses: TOneDRealArray; var ContourColors: TArrayOfColor32; ContourValues: TOneDRealArray; ColorParameters: TColorParameters);

GetContourColorsAndThicknesses initializes LineThicknesses and ContourColors.

Public Constructor Create;
 
Public Destructor Destroy; override;
 
Public procedure DrawContours(SelectedColRowLayer: integer; ColorParameters: TColorParameters; ViewDirection: TViewDirection); overload;
 

Properties

Public property BitMap: TBitmap32 read FBitMap write FBitMap;
 
Public property ZoomBox: TQRbwZoomBox2 read FZoomBox write FZoomBox;
 
Generated by PasDoc 0.12.1 on 2013-05-13 15:41:29