Unit extgraphics

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Funktionen und Prozeduren

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;

Typen

TShapeDirection = (...);
TInitShapeProc = procedure(var P: array of TPoint;const R: TRect; var NumPts: Integer);

Beschreibung

Funktionen und Prozeduren

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;
 

Typen

TShapeDirection = (...);
 
Values
  • atUp:
  • atDown:
  • atLeft:
  • atRight:
TInitShapeProc = procedure(var P: array of TPoint;const R: TRect; var NumPts: Integer);
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:02:57