Class TContourCreator

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TContourCreator = class(TObject)

Description

Hierarchy

Overview

Fields

Private FBitMap: TBitmap32;
Private FColor: TColor32;
Private FGrid: T2DGrid;
Private FLineThickness: single;
Private FValue: TFloat;
Private FZoomBox: TQRbwZoomBox2;
Private FOnExtractSegments: TExtractSegmentEvent;
Private FEvaluatedAt: TEvaluatedAt;
Private FLabelLocations: TRbwQuadTree;
Private FLabels: TLabelObjectList;
Private FContourLabel: string;

Methods

Private procedure ExtractSegments(const GridSquare: TGridSquare);
Private procedure ConvertAndDrawSegments(Sender: TObject; const SegmentArray: TLine2DArray);
Public procedure DrawContour;
Public procedure ExtractContour;

Properties

Public property BitMap: TBitmap32 read FBitMap write FBitMap;
Public property EvaluatedAt: TEvaluatedAt read FEvaluatedAt write FEvaluatedAt;
Public property Color: TColor32 read FColor write FColor;
Public property Grid: T2DGrid read FGrid write FGrid;
Public property LineThickness: single read FLineThickness write FLineThickness;
Public property Value: TFloat read FValue write FValue;
Public property ContourLabel: string read FContourLabel write FContourLabel;
Public property ZoomBox: TQRbwZoomBox2 read FZoomBox write FZoomBox;
Public property LabelLocations: TRbwQuadTree read FLabelLocations write FLabelLocations;
Public property Labels: TLabelObjectList read FLabels write FLabels;
Public property OnExtractSegments: TExtractSegmentEvent read FOnExtractSegments write FOnExtractSegments;

Description

Fields

Private FBitMap: TBitmap32;
 
Private FColor: TColor32;
 
Private FGrid: T2DGrid;
 
Private FLineThickness: single;
 
Private FValue: TFloat;
 
Private FZoomBox: TQRbwZoomBox2;
 
Private FOnExtractSegments: TExtractSegmentEvent;

See OnExtractSegments. During execution of DrawContour, FOnExtractSegments is temporarily set to ConvertAndDrawSegments.

Private FEvaluatedAt: TEvaluatedAt;
 
Private FLabelLocations: TRbwQuadTree;
 
Private FLabels: TLabelObjectList;
 
Private FContourLabel: string;
 

Methods

Private procedure ExtractSegments(const GridSquare: TGridSquare);
 
Private procedure ConvertAndDrawSegments(Sender: TObject; const SegmentArray: TLine2DArray);
 
Public procedure DrawContour;
 
Public procedure ExtractContour;
 

Properties

Public property BitMap: TBitmap32 read FBitMap write FBitMap;
 
Public property EvaluatedAt: TEvaluatedAt read FEvaluatedAt write FEvaluatedAt;
 
Public property Color: TColor32 read FColor write FColor;
 
Public property Grid: T2DGrid read FGrid write FGrid;
 
Public property LineThickness: single read FLineThickness write FLineThickness;
 
Public property Value: TFloat read FValue write FValue;
 
Public property ContourLabel: string read FContourLabel write FContourLabel;
 
Public property ZoomBox: TQRbwZoomBox2 read FZoomBox write FZoomBox;
 
Public property LabelLocations: TRbwQuadTree read FLabelLocations write FLabelLocations;
 
Public property Labels: TLabelObjectList read FLabels write FLabels;
 
Public property OnExtractSegments: TExtractSegmentEvent read FOnExtractSegments write FOnExtractSegments;

While ExtractContour is being executed, OnExtractSegments is called multiple times. The contents of Segments will be one or more segments in the contour being extracted.


Generated by PasDoc 0.12.1 on 2013-05-13 15:41:29