Beschreibung | uses | Klassen, Schnittstellen und Objekte | Funktionen und Prozeduren | Typen | Konstanten | Variablen |
procedure Paint2HeadArrow(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintBarbadosTrident(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintBigI(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintBoldArrow(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintCanadianMaple(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintChevronArrow(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintFivePointStar(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintHexagon(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintNotchedArrow(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintOctogon(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintPentagon(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintPlus(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintQuadrangle(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
Procedure PaintRightTriangle(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintSwastika(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintTriangle(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintTriangular(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0; RightLeftFactor:extended=0.5); |
procedure PaintValve(Canvas: TCanvas; const PaintRect: TRect; RadAngle: Extended = 0.0); |
procedure PaintVArrow(Canvas: TCanvas; const PaintRect : TRect; RadAngle :Extended=0.0); |
procedure PaintCross(Canvas: TCanvas; XLeft,YUp,XRight,YLow, CrossX1,CrossX2,CrossY1,CrossY2:integer); |
procedure PaintHalfEllipse(Canvas: TCanvas; Const PaintRect: TRect; AHalfEllipseDirection: TShapeDirection); |
procedure PaintFivePointLineStar(Canvas: TCanvas; const PaintRect: TRect); |
procedure PaintStarN(Canvas: TCanvas;cx,cy,r,n,a:Integer); |
procedure InitPolygon(Canvas: TCanvas;PaintRect: TRect;RadAngle: Extended; InitShapeProc: TInitShapeProc); |
procedure CalculatePentagonPoints (const PentagonRect:TRect; var P1,P2,P3,P4,P5:TPoint); |
function LinesPointOfIntersection (const Line1a,Line1b,Line2a,line2b:TPoint):TPoint; |
TShapeDirection = (...); |
TInitShapeProc = procedure(var P: array of TPoint;const R: TRect; var NumPts: Integer); |
procedure Paint2HeadArrow(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintBarbadosTrident(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintBigI(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintBoldArrow(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintCanadianMaple(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintChevronArrow(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintFivePointStar(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintHexagon(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintNotchedArrow(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintOctogon(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintPentagon(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintPlus(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintQuadrangle(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
Procedure PaintRightTriangle(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintSwastika(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintTriangle(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0); |
procedure PaintTriangular(Canvas: TCanvas; const PaintRect: TRect; RadAngle :Extended=0.0; RightLeftFactor:extended=0.5); |
procedure PaintValve(Canvas: TCanvas; const PaintRect: TRect; RadAngle: Extended = 0.0); |
procedure PaintVArrow(Canvas: TCanvas; const PaintRect : TRect; RadAngle :Extended=0.0); |
procedure PaintCross(Canvas: TCanvas; XLeft,YUp,XRight,YLow, CrossX1,CrossX2,CrossY1,CrossY2:integer); |
procedure PaintHalfEllipse(Canvas: TCanvas; Const PaintRect: TRect; AHalfEllipseDirection: TShapeDirection); |
procedure PaintFivePointLineStar(Canvas: TCanvas; const PaintRect: TRect); |
procedure PaintStarN(Canvas: TCanvas;cx,cy,r,n,a:Integer); |
procedure InitPolygon(Canvas: TCanvas;PaintRect: TRect;RadAngle: Extended; InitShapeProc: TInitShapeProc); |
procedure CalculatePentagonPoints (const PentagonRect:TRect; var P1,P2,P3,P4,P5:TPoint); |
function LinesPointOfIntersection (const Line1a,Line1b,Line2a,line2b:TPoint):TPoint; |
TShapeDirection = (...); |
Values
|
TInitShapeProc = procedure(var P: array of TPoint;const R: TRect; var NumPts: Integer); |