dgalproc.pas

KSDev.BlockEngine.v3.03.rar 界面控件

unit dgalproc;

{$I be_define.inc}

interface

uses Windows, Classes, Controls, Contnrs, Graphics, SysUtils, GdipObj,
  Gdipapi, GdipUtil, ddoc;

procedure DrawBrush(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawPen(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawShears(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawPhone(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawPaper(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawRecycled(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawMouse(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawPrinter(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawHand(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawKeyboard(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawComputer(Path: TGPGraphicsPath; Width, Height: single);

{ Geometric }
procedure DrawHalfCircle(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawPentagon(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawHexagon(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawHeptagon(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawCross1(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawCross2(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawLineStar(Path: TGPGraphicsPath; Width, Height: single);
procedure Draw3Star(Path: TGPGraphicsPath; Width, Height: single);
procedure Draw4Star(Path: TGPGraphicsPath; Width, Height: single);
procedure Draw5Star(Path: TGPGraphicsPath; Width, Height: single);
procedure Draw6Star(Path: TGPGraphicsPath; Width, Height: single);
procedure Draw8Star(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawManyStar(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawRound4Star(Path: TGPGraphicsPath; Width, Height: single);

{ Arrows }

procedure DrawArrow1(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawArrow2(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawArrow3(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawArrow4(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawArrow5(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawArrowCurve(Path: TGPGraphicsPath; Width, Height: single);

{ 3D }

procedure DrawPyramid(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawLadder(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawHex3D(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawMailbox(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawTriangle3D(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawSector3D(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawCube(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawTorus(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawCylinder(Path: TGPGraphicsPath; Width, Height: single);

{ Charting }

procedure DrawDocument(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawData(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawDirectData(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawSequentialData(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawManualInput(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawManualOperation(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawOffPageRef(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawDisplay(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawStoredData(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawPaperTape(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawPreparation(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawCard(Path: TGPGraphicsPath; Width, Height: single);
procedure DrawTerminator(Path: TGPGraphicsPath; Width, Height: single);

implementation {===============================================================}

procedure DrawBrush(Path: TGPGraphicsPath; Width, Height: single);
begin
  Path.StartFigure;
  Path.AddLine(0.304 * Width, 0.75 * Height, 0.295 * Width, 0.792 * Height);
  Path.AddLine(0.295 * Width, 0.792 * Height, 0.283 * Width, 0.827 * Height);
  Path.AddLine(0.283 * Width, 0.827 * Height, 0.267 * Width, 0.858 * Height);
  Path.AddLine(0.267 * Width, 0.858 * Height, 0.248 * Width, 0.885 * Height);
  Path.AddLine(0.248 * Width, 0.885 * Height, 0.227 * Width, 0.904 * Height);
  Path.AddLine(0.227 * Width, 0.904 * Height, 0.199 * Width, 0.915 * Height);
  Path.AddLine(0.199 * Width, 0.915 * Height, 0.168 * Width, 0.923 * Height);
  Path.AddLine(0.168 * Width, 0.923 * Height, 0.134 * Width, 0.927 * Height);
  Path.AddLine(0.134 * Width, 0.927 * Height, 0.118 * Width, 0.927 * Height);
  Path.AddLine(0.118 * Width, 0.927 * Height, 0.087 * Width, 0.931 * Height);
  Path.AddLine(0.087 * Width, 0.931 * Height, 0.0559 * Width, 0.946 * Height);
  Path.AddLine(0.0559 * Width, 0.946 * Height, 0.028 * Width, 0.969 * Height);
  Path.AddLine(0.028 * Width, 0.969 * Height, 0 * Width, 1 * Height);
  Path.AddLine(0 * Width, 1 * Height, 0.00621 * Width, 0.923 * Height);
  Path.AddLine(0.00621 * Width, 0.923 * Height, 0.0217 * Width, 0.858 * Height);
  Path.AddLine(0.0217 * Width, 0.858 * Height, 0.0435 * Width, 0.8 * Height);
  Path.AddLine(0.0435 * Width, 0.8 * Height, 0.0714 * Width, 0.75 * Height);
  Path.AddLine(0.0714 * Width, 0.75 * Height, 0.106 * Width, 0.712 * Height);
  Path.AddLine(0.106 * Width, 0.712 * Height, 0.146 * Width, 0.685 * Height);
  Path.AddLine(0.146 * Width, 0.685 * Height, 0.193 * Width, 0.665 * Height);
  Path.AddLine(0.193 * Width, 0.665 * Height, 0.242 * Width, 0.658 * Height);
  Path.AddLine(0.242 * Width, 0.658 * Height, 0.401 * Width, 0.415 * Height);
  Path.AddLine(0.401 * Width, 0.415 * Height, 0.438 * Width, 0.365 * Height);
  Path.AddLine(0.438 * Width, 0.365 * Height, 0.488 * Width, 0.315 * Height);
  Path.AddLine(0.488 * Width, 0.315 * Height, 0.55 * Width, 0.262 * Height);
  Path.AddLine(0.55 * Width, 0.262 * Height, 0.618 * Width, 0.212 * Height);
  Path.AddLine(0.618 * Width, 0.212 * Height, 0.814 * Width, 0.0846 * Height);
  Path.AddLine(0.814 * Width, 0.0846 * Height, 0.842 * Width, 0.0654 * Height);
  Path.AddLine(0.842 * Width, 0.0654 * Height, 0.87 * Width, 0.05 * Height);
  Path.AddLine(0.87 * Width, 0.05 * Height, 0.894 * Width, 0.0346 * Height);
  Path.AddLine(0.894 * Width, 0.0346 * Height, 0.913 * Width, 0.0231 * Height);
  Path.AddLine(0.913 * Width, 0.0231 * Height, 0.932 * Width, 0.0115 * Height);
  Path.AddLine(0.932 * Width, 0.0115 * Height, 0.944 * Width, 0.00385 * Height);
  Path.AddLine(0.944 * Width, 0.00385 * Height, 0.953 * Width, 0 * Height);
  Path.AddLine(0.953 * Width, 0 * Height, 0.96 * Width, 0 * Height);
  Path.AddLine(0.96 * Width, 0 * Height, 0.978 * Width, 0.00385 * Height);
  Path.AddLine(0.978 * Width, 0.00385 * Height, 0.991 * Width, 0.0115 * Height);
  Path.AddLine(0.991 * Width, 0.0115 * Height, 0.997 * Width, 0.0231 * Height);
  Path.AddLine(0.997 * Width, 0.0231 * Height, 1 * Width, 0.0423 * Height);
  Path.AddLine(1 * Width, 0.0423 * Height, 0.997 * Width, 0.0615 * Height);
  Path.AddLine(0.997 * Width, 0.0615 * Height, 0.988 * Width, 0.0808 * Height);
  Path.AddLine(0.988 * Width, 0.0808 * Height, 0.975 * Width, 0.108 * Height);
  Path.AddLine(0.975 * Width, 0.108 * Height, 0.953 * Width, 0.135 * Height);
  Path.AddLine(0.953 * Width, 0.135 * Height, 0.916 * Width, 0.192 * Height);
  Path.AddLine(0.916 * Width, 0.192 * Height, 0.894 * Width, 0.215 * Height);
  Path.AddLine(0.894 * Width, 0.215 * Height, 0.87 * Width, 0.235 * Height);
  Path.AddLine(0.87 * Width, 0.235 * Height, 0.742 * Width, 0.408 * Height);
  Path.AddLine(0.742 * Width, 0.408 * Height, 0.689 * Width, 0.481 * Height);
  Path.AddLine(0.689 * Width, 0.481 * Height, 0.637 * Width, 0.538 * Height);
  Path.AddLine(0.637 * Width, 0.538 * Height, 0.584 * Width, 0.588 * Height);
  Path.AddLine(0.584 * Width, 0.588 * Height, 0.534 * Width, 0.619 * Height);
  Path.AddLine(0.534 * Width, 0.619 * Height, 0.304 * Width, 0.75 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.506 * Width, 0.585 * Height, 0.503 * Width, 0.581 * Height);
  Path.AddLine(0.503 * Width, 0.581 * Height, 0.528 * Width, 0.565 * Height);
  Path.AddLine(0.528 * Width, 0.565 * Height, 0.556 * Width, 0.546 * Height);
  Path.AddLine(0.556 * Width, 0.546 * Height, 0.584 * Width, 0.523 * Height);
  Path.AddLine(0.584 * Width, 0.523 * Height, 0.612 * Width, 0.492 * Height);
  Path.AddLine(0.612 * Width, 0.492 * Height, 0.646 * Width, 0.458 * Height);
  Path.AddLine(0.646 * Width, 0.458 * Height, 0.677 * Width, 0.419 * Height);
  Path.AddLine(0.677 * Width, 0.419 * Height, 0.714 * Width, 0.377 * Height);
  Path.AddLine(0.714 * Width, 0.377 * Height, 0.752 * Width, 0.327 * Height);
  Path.AddLine(0.752 * Width, 0.327 * Height, 0.863 * Width, 0.181 * Height);
  Path.AddLine(0.863 * Width, 0.181 * Height, 0.904 * Width, 0.127 * Height);
  Path.AddLine(0.904 * Width, 0.127 * Height, 0.944 * Width, 0.0654 * Height);
  Path.AddLine(0.944 * Width, 0.0654 * Height, 0.957 * Width, 0.0538 * Height);
  Path.AddLine(0.957 * Width, 0.0538 * Height, 0.953 * Width, 0.0538 * Height);
  Path.AddLine(0.953 * Width, 0.0538 * Height, 0.935 * Width, 0.0654 * Height);
  Path.AddLine(0.935 * Width, 0.0654 * Height, 0.907 * Width, 0.0846 * Height);
  Path.AddLine(0.907 * Width, 0.0846 * Height, 0.879 * Width, 0.104 * Height);
  Path.AddLine(0.879 * Width, 0.104 * Height, 0.848 * Width, 0.127 * Height);
  Path.AddLine(0.848 * Width, 0.127 * Height, 0.705 * Width, 0.219 * Height);
  Path.AddLine(0.705 * Width, 0.219 * Height, 0.652 * Width, 0.254 * Height);
  Path.AddLine(0.652 * Width, 0.254 * Height, 0.606 * Width, 0.288 * Height);
  Path.AddLine(0.606 * Width, 0.288 * Height, 0.565 * Width, 0.319 * Height);
  Path.AddLine(0.565 * Width, 0.319 * Height, 0.528 * Width, 0.35 * Height);
  Path.AddLine(0.528 * Width, 0.35 * Height, 0.497 * Width, 0.381 * Height);
  Path.AddLine(0.497 * Width, 0.381 * Height, 0.469 * Width, 0.408 * Height);
  Path.AddLine(0.469 * Width, 0.408 * Height, 0.447 * Width, 0.435 * Height);
  Path.AddLine(0.447 * Width, 0.435 * Height, 0.429 * Width, 0.458 * Height);
  Path.AddLine(0.429 * Width, 0.458 * Height, 0.429 * Width, 0.458 * Height);
  Path.AddLine(0.429 * Width, 0.458 * Height, 0.457 * Width, 0.485 * Height);
  Path.AddLine(0.457 * Width, 0.485 * Height, 0.478 * Width, 0.512 * Height);
  Path.AddLine(0.478 * Width, 0.512 * Height, 0.497 * Width, 0.546 * Height);
  Path.AddLine(0.497 * Width, 0.546 * Height, 0.506 * Width, 0.585 * Height);
  Path.AddLine(0.506 * Width, 0.585 * Height, 0.506 * Width, 0.585 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.419 * Width, 0.623 * Height, 0.401 * Width, 0.585 * Height);
  Path.AddLine(0.401 * Width, 0.585 * Height, 0.37 * Width, 0.546 * Height);
  Path.AddLine(0.37 * Width, 0.546 * Height, 0.28 * Width, 0.681 * Height);
  Path.AddLine(0.28 * Width, 0.681 * Height, 0.289 * Width, 0.688 * Height);
  Path.AddLine(0.289 * Width, 0.688 * Height, 0.295 * Width, 0.7 * Height);
  Path.AddLine(0.295 * Width, 0.7 * Height, 0.419 * Width, 0.623 * Height);
  Path.CloseFigure;
end;

procedure DrawPen(Path: TGPGraphicsPath; Width, Height: single);
begin
  Path.StartFigure;
  Path.AddLine(0.0309 * Width, 1 * Height, 0 * Width, 0.95 * Height);
  Path.AddLine(0 * Width, 0.95 * Height, 0.142 * Width, 0.735 * Height);
  Path.AddLine(0.142 * Width, 0.735 * Height, 0.123 * Width, 0.7 * Height);
  Path.AddLine(0.123 * Width, 0.7 * Height, 0.861 * Width, 0 * Height);
  Path.AddLine(0.861 * Width, 0 * Height, 0.892 * Width, 0.0154 * Height);