Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Bjoerk**

Ein Override hab ich nicht vergessen. Es ist nur so, daß die einzelnen Klassen, die davon abgeleitet sind, nicht jede Methode bzw. jede Property haben.

zusammenfalten · markieren

Delphi-Quellcode:

			unit uWerkzeug;

interface

uses

  SysUtils, Classes, Graphics, Dialogs, Math, VirtualTrees, uIniDataFile,

  uUtils, uRecords, uClasses, uPolygon, uPolygonEx, uPropUtils, uPropArrays, uBewehrung;

// Es gibt

// TWerkzeug, TWerkzeug0, TWerkzeug1, TWerkzeug2, TWerkzeug3:

// TWerkzeug = diese unit;

// TWerkzeug0 = class(TWerkzeug);

// TWerkzeug1 = class(TWerkzeug0);

// TWerkzeug2 = class(TWerkzeug0);

// TWerkzeug3 = class(TWerkzeug0);

// *** Die Nummern hinter den Getters/Setters von TWerkzeug zeigen die Klassen an,

// in denen diese Getter/Setter überschrieben werden.

// *** Die Nummern hinter den Properties von TWerkzeug zeigen die Klassen an,

// in denen diese Props veröffentlich werden.

type

  TWerkzeug = class

  protected

    function GetNode: PVirtualNode; virtual; abstract; // 0;

    function GetTyp: TGraphicTyp; virtual; abstract; // 0;

    function GetEnabled: boolean; virtual; abstract; // 0;

    function GetComment: string; virtual; abstract; // 0;

    function GetCircleRadius: double; virtual; abstract; // 1; // 2; // 3;

    function GetScalemX1: double; virtual; abstract; // 0;

    function GetScalemX2: double; virtual; abstract; // 0;

    function GetScalemY1: double; virtual; abstract; // 0;

    function GetScalemY2: double; virtual; abstract; // 0;

    function GetScalecmSimpleMargin: double; virtual; abstract; // 0;

    function GetScalecmMarginTop: double; virtual; abstract; // 0;

    function GetScalecmMarginBottom: double; virtual; abstract; // 0;

    function GetScalecmMarginLeft: double; virtual; abstract; // 0;

    function GetScalecmMarginRight: double; virtual; abstract; // 0;

    function GetScalemWidth: double; virtual; abstract; // 1; // 2; // 3;

    function GetScalemHeight: double; virtual; abstract; // 1; // 2; // 3;

    function GetScalemWidthX: double; virtual; abstract; // 1;

    function GetScalemHeightY: double; virtual; abstract; // 1;

    function GetScalemLength: double; virtual; abstract; // 1; // 3;

    function GetScalemRadius: double; virtual; abstract; // 1; // 2; // 3;

    function GetLineAngle: double; virtual; abstract; // 1; // 3;

    function GetDesigning: boolean; virtual; abstract; // 0;

    function GetP1: TCadFLoatPoint; virtual; abstract; // 0;

    function GetP2: TCadFLoatPoint; virtual; abstract; // 0;

    function GetFontMode: boolean; virtual; abstract; // 1;

    function GetSelected: boolean; virtual; abstract; // 0;

    function GetSmoothing: boolean; virtual; abstract; // 2;

    function GetAsCirclePie: boolean; virtual; abstract; // 2;

    function GetShowPolygonLines: boolean; virtual; abstract; // 2;

    function GetClosedPolygon: boolean; virtual; abstract; // 2;

    function GetCrossRect: boolean; virtual; abstract; // 2;

    function GetCircleAlpha: double; virtual; abstract; // 0;

    function GetPositionAlpha: double; virtual; abstract; // 1;

    function GetCircleBeta: double; virtual; abstract; // 0;

    function GetArrowA: double; virtual; abstract; // 1;

    function GetArrowB: double; virtual; abstract; // 1;

    function GetDimensionA: double; virtual; abstract; // 1;

    function GetDimensionB: double; virtual; abstract; // 1;

    function GetDimensionVersatz: double; virtual; abstract; // 1;

    function GetPosDiameter: double; virtual; abstract; // 1;

    function GetPosQuadratSize: double; virtual; abstract; // 3;

    function GetScaleCMDistribution: double; virtual; abstract; // 1; // 3;

    function GetOffsetX: double; virtual; abstract; // 1;

    function GetOffsetY: double; virtual; abstract; // 1;

    function GetArrowAlpha: double; virtual; abstract; // 1;

    function GetHatchFrequency: double; virtual; abstract; // 2;

    function GetTextAlpha: double; virtual; abstract; // 1;

    function GetAngle: double; virtual; abstract; // 0;

    function GetArrowAlign: TArrowAlign; virtual; abstract; // 1;

    function GetText: string; virtual; abstract; // 1; // 3;

    function GetCaption: string; virtual; abstract; // 1;

    function GetOwnerText: string; virtual; abstract; // 1;

    function GetSeite: string; virtual; abstract; // 1;

    function GetPenMMWidth: double; virtual; abstract; // 0;

    function GetDimension: TDimensionType; virtual; abstract; // 1;

    function GetDimensionStyle: TDimensionStyle; virtual; abstract; // 1;

    function GetDimensionOrientation: TDimensionOrientation; virtual; abstract; // 1;

    function GetDimensionAlignLeft: TDimensionAlign; virtual; abstract; // 1;

    function GetDimensionAlignRight: TDimensionAlign; virtual; abstract; // 1;

    function GetPosAlign: TPosAlign; virtual; abstract; // 1;

    function GetPositionAlign: TPositionAlign; virtual; abstract; // 1;

    function GetTextAlign: TTextAlign; virtual; abstract; // 1;

    function GetOddHatchPenStyle: TPenStyle; virtual; abstract; // 2;

    function GetEvenHatchPenStyle: TPenStyle; virtual; abstract; // 2;

    function GetSchnittTriangleWidth: double; virtual; abstract; // 1;

    function GetSchnittAlign: TSchnittAlign; virtual; abstract; // 1;

    function GetSchnittFilledTriangle: boolean; virtual; abstract; // 1;

    function GetTextA: string; virtual; abstract; // 1;

    function GetTextB: string; virtual; abstract; // 1;

    function GetHintStyle: TCornerStyle; virtual; abstract; // 1;

    function GetKoteTriangleWidth: double; virtual; abstract; // 1;

    function GetKoteAlign: TSchnittAlign; virtual; abstract; // 1;

    function GetAspectRatio: boolean; virtual; abstract; // 1;

    function GetExtraListEnabled: boolean; virtual; abstract; // 1; // 3;

    function GetTopReinforcement: boolean; virtual; abstract; // 3;

    function GetKoteFilledTriangle: boolean; virtual; abstract; // 1;

    function GetNEckCount: integer; virtual; abstract; // 2;

    function GetHelpPolygonDistribution: integer; virtual; abstract; // 2;

    function GetStabPunktFilled: boolean; virtual; abstract; // 3;

    function GetNEckScalemA: double; virtual; abstract; // 2;

    function GetScalemmFlange: double; virtual; abstract; // 2;

    function GetScalemmThickness: double; virtual; abstract; // 2;

    function GetPropertySelected: boolean; virtual; abstract; // 0;

    function GetPen: TPen; virtual; abstract; // 0;

    function GetFont: TFont; virtual; abstract; // 0;

    function GetBrushColor: TColor; virtual; abstract; // 1; // 2;

    function GetBrushStyle: TBrushStyle; virtual; abstract; // 2;

    function GetPolygon: TPolygon; virtual; abstract; // 2;

    function GetPolygonEx: TPolygonEx; virtual; abstract; // 3;

    function GetDoubleLine: TDoubleLine; virtual; abstract; // 1;

    function GetMetaFile: TMetaFile; virtual; abstract; // 1;

    function GetStl: TStlBewehrung; virtual; abstract; // 3;

    function GetMtl: TMtlBewehrung; virtual; abstract; // 3;

    function GetSnapPoints: TFloatPoints; virtual; abstract; // 0;

    function GetProfil: string; virtual; abstract; // 2;

    function GetScale: TScale; virtual; abstract; // 0;

    function GetBoundRect: TFloatRectEx; virtual; abstract; // 1; // 2; // 3;

    function GetHaveBoundRect: boolean; virtual; abstract; // 1; // 2; // 3;

    function GetProp(Index: TProp): boolean; virtual; abstract; // 0;

    function GetAction(Index: TAction): boolean; virtual; abstract; // 0;

    function GetSimpleMargin: double; virtual; abstract; // 0;

    function GetMargin: TMargin; virtual; abstract; // 0;

    procedure SetNode(const Value: PVirtualNode); virtual; abstract; // 0;

    procedure SetTyp(const Value: TGraphicTyp); virtual; abstract; // 0; // 1; // 2; // 3;

    procedure SetEnabled(const Value: boolean); virtual; abstract; // 0;

    procedure SetComment(const Value: string); virtual; abstract; // 0;

    procedure SetCircleRadius(const Value: double); virtual; abstract; // 1; // 2; // 3;

    procedure SetNewAngle(const Value: double); virtual; abstract; // 0;

    procedure SetScalemX1(const Value: double); virtual; abstract; // 0;

    procedure SetScalemX2(const Value: double); virtual; abstract; // 0;

    procedure SetScalemY1(const Value: double); virtual; abstract; // 0;

    procedure SetScalemY2(const Value: double); virtual; abstract; // 0;

    procedure SetScalecmSimpleMargin(const Value: double); virtual; abstract; // 0;

    procedure SetScalecmMarginTop(const Value: double); virtual; abstract; // 0;

    procedure SetScalecmMarginBottom(const Value: double); virtual; abstract; // 0;

    procedure SetScalecmMarginLeft(const Value: double); virtual; abstract; // 0;

    procedure SetScalecmMarginRight(const Value: double); virtual; abstract; // 0;

    procedure SetScalemWidth(const Value: double); virtual; abstract; // 1; // 2; // 3;

    procedure SetScalemHeight(const Value: double); virtual; abstract; // 1; // 2; // 3;

    procedure SetScalemWidthX(const Value: double); virtual; abstract; // 1;

    procedure SetScalemHeightY(const Value: double); virtual; abstract; // 1;

    procedure SetScalemLength(const Value: double); virtual; abstract; // 1; // 3;

    procedure SetScalemRadius(const Value: double); virtual; abstract; // 1; // 2; // 3;

    procedure SetLineAngle(const Value: double); virtual; abstract; // 1; // 3;

    procedure SetDesigning(const Value: boolean); virtual; abstract; // 0;

    procedure SetFontMode(const Value: boolean); virtual; abstract; // 1;

    procedure SetSmoothing(const Value: boolean); virtual; abstract; // 2;

    procedure SetAsCirclePie(const Value: boolean); virtual; abstract; // 2;

    procedure SetShowPolygonLines(const Value: boolean); virtual; abstract; // 2;

    procedure SetClosedPolygon(const Value: boolean); virtual; abstract; // 2;

    procedure SetCrossRect(const Value: boolean); virtual; abstract; // 2;

    procedure SetCircleAlpha(const Value: double); virtual; abstract; // 0;

    procedure SetPositionAlpha(const Value: double); virtual; abstract; // 1;

    procedure SetCircleBeta(const Value: double); virtual; abstract; // 0;

    procedure SetArrowA(const Value: double); virtual; abstract; // 1;

    procedure SetArrowB(const Value: double); virtual; abstract; // 1;

    procedure SetDimensionA(const Value: double); virtual; abstract; // 1;

    procedure SetDimensionB(const Value: double); virtual; abstract; // 1;

    procedure SetDimensionVersatz(const Value: double); virtual; abstract; // 1;

    procedure SetPosDiameter(const Value: double); virtual; abstract; // 1;

    procedure SetPosQuadratSize(const Value: double); virtual; abstract; // 3;

    procedure SetScaleCMDistribution(const Value: double); virtual; abstract; // 1; // 3;

    procedure SetOffsetX(const Value: double); virtual; abstract; // 1;

    procedure SetOffsetY(const Value: double); virtual; abstract; // 1;

    procedure SetArrowAlpha(const Value: double); virtual; abstract; // 1;

    procedure SetHatchFrequency(const Value: double); virtual; abstract; // 2;

    procedure SetTextAlpha(const Value: double); virtual; abstract; // 1;

    procedure SetAngle(const Value: double); virtual; abstract; // 0;

    procedure SetArrowAlign(const Value: TArrowAlign); virtual; abstract; // 1;

    procedure SetText(const Value: string); virtual; abstract; // 1; // 3;

    procedure SetCaption(const Value: string); virtual; abstract; // 1;

    procedure SetOwnerText(const Value: string); virtual; abstract; // 1;

    procedure SetSeite(const Value: string); virtual; abstract; // 1;

    procedure SetPenMMWidth(const Value: double); virtual; abstract; // 0;

    procedure SetDimension(const Value: TDimensionType); virtual; abstract; // 1;

    procedure SetDimensionStyle(const Value: TDimensionStyle); virtual; abstract; // 1;

    procedure SetDimensionOrientation(const Value: TDimensionOrientation); virtual; abstract; // 1;

    procedure SetDimensionAlignLeft(const Value: TDimensionAlign); virtual; abstract; // 1;

    procedure SetDimensionAlignRight(const Value: TDimensionAlign); virtual; abstract; // 1;

    procedure SetPosAlign(const Value: TPosAlign); virtual; abstract; // 1;

    procedure SetPositionAlign(const Value: TPositionAlign); virtual; abstract; // 1;

    procedure SetTextAlign(const Value: TTextAlign); virtual; abstract; // 1;

    procedure SetOddHatchPenStyle(const Value: TPenStyle); virtual; abstract; // 2;

    procedure SetEvenHatchPenStyle(const Value: TPenStyle); virtual; abstract; // 2;

    procedure SetSchnittTriangleWidth(const Value: double); virtual; abstract; // 1;

    procedure SetSchnittAlign(const Value: TSchnittAlign); virtual; abstract; // 1;

    procedure SetSchnittFilledTriangle(const Value: boolean); virtual; abstract; // 1;

    procedure SetTextA(const Value: string); virtual; abstract; // 1;

    procedure SetTextB(const Value: string); virtual; abstract; // 1;

    procedure SetHintStyle(const Value: TCornerStyle); virtual; abstract; // 1;

    procedure SetKoteTriangleWidth(const Value: double); virtual; abstract; // 1;

    procedure SetKoteAlign(const Value: TSchnittAlign); virtual; abstract; // 1;

    procedure SetAspectRatio(const Value: boolean); virtual; abstract; // 1;

    procedure SetExtraListEnabled(const Value: boolean); virtual; abstract; // 1; // 3;

    procedure SetTopReinforcement(const Value: boolean); virtual; abstract; // 3;

    procedure SetKoteFilledTriangle(const Value: boolean); virtual; abstract; // 1;

    procedure SetNEckCount(const Value: integer); virtual; abstract; // 2;

    procedure SetHelpPolygonDistribution(const Value: integer); virtual; abstract; // 2;

    procedure SetStabPunktFilled(const Value: boolean); virtual; abstract; // 3;

    procedure SetNEckScalemA(const Value: double); virtual; abstract; // 2;

    procedure SetScaleMMFlange(const Value: double); virtual; abstract; // 2;

    procedure SetScaleMMThickness(const Value: double); virtual; abstract; // 2;

    procedure SetPropertySelected(const Value: boolean); virtual; abstract; // 0;

    procedure SetBrushColor(const Value: TColor); virtual; abstract; // 1; // 2;

    procedure SetBrushStyle(const Value: TBrushStyle); virtual; abstract; // 2;

    procedure SetProfil(const Value: string); virtual; abstract; // 2;

    procedure SetScale(const Value: TScale); virtual; abstract; // 0; // 1; // 2; // 3;

  protected

    procedure MouseMove(const MovePt: TFloatPoint); virtual; abstract; // 0;

    procedure MouseMoveEx(const SelectRect: TFloatRectEx); virtual; abstract; // 0;

    function Center: TFloatPoint; virtual; abstract; // 0;

    function CircleCenter: TFloatPoint; virtual; abstract; // 1; // 2; // 3;

    function A: TFloatPoint; virtual; abstract; // 1;

    function B: TFloatPoint; virtual; abstract; // 1;

    function C: TFloatPoint; virtual; abstract; // 1;

    function LoadFromIniFile(Ini: TIniDataFileStream; const Section: string): boolean; virtual; abstract; // 0; // 1; // 2; // 3;

    function SaveToIniFile(Ini: TIniDataFileStream; const Section: string): boolean; virtual; abstract; // 0; // 1; // 2; // 3;

    procedure Assign(Value: TWerkzeug); virtual; abstract; // 0; // 1; // 2; // 3;

    function Compare(Value: TWerkzeug): boolean; virtual; abstract; // 0; // 1; // 2; // 3;

    procedure DrawObject(Canvas: TCanvas; const Plot: TPlotDevice); virtual; abstract; // 1; // 2; // 3;

    procedure DrawRegion(Canvas: TCanvas; const Plot: TPlotDevice); virtual; abstract; // 1; // 2; // 3;

    procedure SetRegion; virtual; abstract; // 1; // 2; // 3;

    procedure SetSnapPoints; virtual; abstract; // 1; // 2; // 3;

    procedure Rotate(const R: TFloatPoint; const Alpha: double); virtual; abstract; // 1; // 2; // 3;

    procedure ShiftXY(const ScalemValueX, ScalemValueY: double); virtual; abstract; // 1; // 2; // 3;

    procedure ShiftUV(const ScalemValueU, ScalemValueV: double); virtual; abstract; // 1; // 2; // 3;

    procedure FlipHorz(const Y: double); virtual; abstract; // 1; // 2; // 3;

    procedure FlipVert(const X: double); virtual; abstract; // 1; // 2; // 3;

    procedure Clear; virtual; abstract; // 0; // 1; // 2; // 3;

    procedure GraphicLoadFromFile(const FileName: string; const ppMM: double); virtual; abstract; // 1;

    procedure AssignGraphic(MF: TMetaFile; const ppMM: double; const Scale: TScale; SnapPoints: TFloatPoints); virtual; abstract; // 1;

    function ClipRectEx: TFloatRectEx; virtual; abstract; // 0;

    function ClipRect: TFloatRect; virtual; abstract; // 0;

    function Diagonal: double; virtual; abstract; // 0;

    function HaveMargin: boolean; virtual; abstract; // 0;

    procedure SetProps; virtual; abstract; // 1; // 2; // 3;

    procedure SetActions; virtual; abstract; // 1; // 2; // 3;

    function HaveTyp(const Value: TGraphicTyp): boolean; virtual; abstract; // 1; // 2; // 3;

    function CurrentTyp: boolean; virtual; abstract; // 1; // 2; // 3;

  protected

    property Node: PVirtualNode read GetNode write SetNode; // (0);

    property Typ: TGraphicTyp read GetTyp write SetTyp; // (0);

    property Enabled: boolean read GetEnabled write SetEnabled; // (0);

    property Comment: string read GetComment write SetComment; // (0);

    property Prop[Index: TProp]: boolean read GetProp; // (0);

    property Action[Index: TAction]: boolean read GetAction; // (0);

    property P1: TCadFLoatPoint read GetP1; // (0);

    property P2: TCadFLoatPoint read GetP2; // (0);

    property Pen: TPen read GetPen; // (0);

    property Font: TFont read GetFont; // (0);

    property Polygon: TPolygon read GetPolygon; // (2);

    property PolygonEx: TPolygonEx read GetPolygonEx; // (3);

    property DoubleLine: TDoubleLine read GetDoubleLine; // (1);

    property MetaFile: TMetaFile read GetMetaFile; // (1);

    property Stl: TStlBewehrung read GetStl; // (3);

    property Mtl: TMtlBewehrung read GetMtl; // (3);

    property SnapPoints: TFloatPoints read GetSnapPoints; // (0);

    property CircleRadius: double read GetCircleRadius write SetCircleRadius; // (1); // (2); // (3);

    property NewAngle: double write SetNewAngle; // (0);

    property ScalemX1: double read GetScalemX1 write SetScalemX1; // (0);

    property ScalemX2: double read GetScalemX2 write SetScalemX2; // (0);

    property ScalemY1: double read GetScalemY1 write SetScalemY1; // (0);

    property ScalemY2: double read GetScalemY2 write SetScalemY2; // (0);

    property ScalecmSimpleMargin: double read GetScalecmSimpleMargin write SetScalecmSimpleMargin; // (0);

    property ScalecmMarginTop: double read GetScalecmMarginTop write SetScalecmMarginTop; // (0);

    property ScalecmMarginBottom: double read GetScalecmMarginBottom write SetScalecmMarginBottom; // (0);

    property ScalecmMarginLeft: double read GetScalecmMarginLeft write SetScalecmMarginLeft; // (0);

    property ScalecmMarginRight: double read GetScalecmMarginRight write SetScalecmMarginRight; // (0);

    property ScalemWidth: double read GetScalemWidth write SetScalemWidth; // (1); // (2); // (3);

    property ScalemHeight: double read GetScalemHeight write SetScalemHeight; // (1); // (2); // (3);

    property ScalemWidthX: double read GetScalemWidthX write SetScalemWidthX; // (1);

    property ScalemHeightY: double read GetScalemHeightY write SetScalemHeightY; // (1);

    property ScalemLength: double read GetScalemLength write SetScalemLength; // (1); // (3);

    property ScalemRadius: double read GetScalemRadius write SetScalemRadius; // (1); // (2); // (3);

    property LineAngle: double read GetLineAngle write SetLineAngle; // (1); // (3);

    property Designing: boolean read GetDesigning write SetDesigning; // (0);

    property FontMode: boolean read GetFontMode write SetFontMode; // (1);

    property Selected: boolean read GetSelected; // (0);

    property Smoothing: boolean read GetSmoothing write SetSmoothing; // (2);

    property AsCirclePie: boolean read GetAsCirclePie write SetAsCirclePie; // (2);

    property ShowPolygonLines: boolean read GetShowPolygonLines write SetShowPolygonLines; // (2);

    property ClosedPolygon: boolean read GetClosedPolygon write SetClosedPolygon; // (2);

    property CrossRect: boolean read GetCrossRect write SetCrossRect; // (2);

    property CircleAlpha: double read GetCircleAlpha write SetCircleAlpha; // (0);

    property PositionAlpha: double read GetPositionAlpha write SetPositionAlpha; // (1);

    property CircleBeta: double read GetCircleBeta write SetCircleBeta; // (0);

    property ArrowA: double read GetArrowA write SetArrowA; // (1);

    property ArrowB: double read GetArrowB write SetArrowB; // (1);

    property DimensionA: double read GetDimensionA write SetDimensionA; // (1);

    property DimensionB: double read GetDimensionB write SetDimensionB; // (1);

    property DimensionVersatz: double read GetDimensionVersatz write SetDimensionVersatz; // (1);

    property PosDiameter: double read GetPosDiameter write SetPosDiameter; // (1);

    property PosQuadratSize: double read GetPosQuadratSize write SetPosQuadratSize; // (3);

    property ScaleCMDistribution: double read GetScaleCMDistribution write SetScaleCMDistribution; // (1); // (3);

    property OffsetX: double read GetOffsetX write SetOffsetX; // (1);

    property OffsetY: double read GetOffsetY write SetOffsetY; // (1);

    property ArrowAlpha: double read GetArrowAlpha write SetArrowAlpha; // (1);

    property HatchFrequency: double read GetHatchFrequency write SetHatchFrequency; // (2);

    property TextAlpha: double read GetTextAlpha write SetTextAlpha; // (1);

    property Angle: double read GetAngle write SetAngle; // (0);

    property ArrowAlign: TArrowAlign read GetArrowAlign write SetArrowAlign; // (1);

    property Text: string read GetText write SetText; // (1); // (3);

    property Caption: string read GetCaption write SetCaption; // (1);

    property OwnerText: string read GetOwnerText write SetOwnerText; // (1);

    property Seite: string read GetSeite write SetSeite; // (1);

    property PenMMWidth: double read GetPenMMWidth write SetPenMMWidth; // (0);

    property Dimension: TDimensionType read GetDimension write SetDimension; // (1);

    property DimensionStyle: TDimensionStyle read GetDimensionStyle write SetDimensionStyle; // (1);

    property DimensionOrientation: TDimensionOrientation read GetDimensionOrientation write SetDimensionOrientation; // (1);

    property DimensionAlignLeft: TDimensionAlign read GetDimensionAlignLeft write SetDimensionAlignLeft; // (1);

    property DimensionAlignRight: TDimensionAlign read GetDimensionAlignRight write SetDimensionAlignRight; // (1);

    property PosAlign: TPosAlign read GetPosAlign write SetPosAlign; // (1);

    property PositionAlign: TPositionAlign read GetPositionAlign write SetPositionAlign; // (1);

    property TextAlign: TTextAlign read GetTextAlign write SetTextAlign; // (1);

    property OddHatchPenStyle: TPenStyle read GetOddHatchPenStyle write SetOddHatchPenStyle; // (2);

    property EvenHatchPenStyle: TPenStyle read GetEvenHatchPenStyle write SetEvenHatchPenStyle; // (2);

    property SchnittTriangleWidth: double read GetSchnittTriangleWidth write SetSchnittTriangleWidth; // (1);

    property SchnittAlign: TSchnittAlign read GetSchnittAlign write SetSchnittAlign; // (1);

    property SchnittFilledTriangle: boolean read GetSchnittFilledTriangle write SetSchnittFilledTriangle; // (1);

    property TextA: string read GetTextA write SetTextA; // (1);

    property TextB: string read GetTextB write SetTextB; // (1);

    property HintStyle: TCornerStyle read GetHintStyle write SetHintStyle; // (1);

    property KoteTriangleWidth: double read GetKoteTriangleWidth write SetKoteTriangleWidth; // (1);

    property KoteAlign: TSchnittAlign read GetKoteAlign write SetKoteAlign; // (1);

    property KoteFilledTriangle: boolean read GetKoteFilledTriangle write SetKoteFilledTriangle; // (1);

    property AspectRatio: boolean read GetAspectRatio write SetAspectRatio; // (1);

    property ExtraListEnabled: boolean read GetExtraListEnabled write SetExtraListEnabled; // (1); // (3);

    property TopReinforcement: boolean read GetTopReinforcement write SetTopReinforcement; // (3);

    property NEckCount: integer read GetNEckCount write SetNEckCount; // (2);

    property HelpPolygonDistribution: integer read GetHelpPolygonDistribution write SetHelpPolygonDistribution; // (2);

    property StabPunktFilled: boolean read GetStabPunktFilled write SetStabPunktFilled; // (3);

    property NEckScalemA: double read GetNEckScalemA write SetNEckScalemA; // (2);

    property ScalemmFlange: double read GetScalemmFlange write SetScalemmFlange; // (2);

    property ScalemmThickness: double read GetScalemmThickness write SetScalemmThickness; // (2);

    property PropertySelected: boolean read GetPropertySelected write SetPropertySelected; // (0);

    property BrushColor: TColor read GetBrushColor write SetBrushColor; // (1); // (2);

    property BrushStyle: TBrushStyle read GetBrushStyle write SetBrushStyle; // (2);

    property Profil: string read GetProfil write SetProfil; // (2);

    property Scale: TScale read GetScale write SetScale; // (0);

    property BoundRect: TFloatRectEx read GetBoundRect; // (1); // (2); // (3);

    property HaveBoundRect: boolean read GetHaveBoundRect; // (1); // (2); // (3);

    property SimpleMargin: double read GetSimpleMargin; // (0);

    property Margin: TMargin read GetMargin; // (0);

  end;

implementation

end.

Einzelnen Beitrag anzeigen

AW: Setter mehrfach überschreiben.