dgalproc.pas

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

  Path.AddLine(0.227 * Width, 0.319 * Height, 0.227 * Width, 0.307 * Height);
  Path.AddLine(0.227 * Width, 0.307 * Height, 0.201 * Width, 0.327 * Height);
  Path.AddLine(0.201 * Width, 0.327 * Height, 0.173 * Width, 0.339 * Height);
  Path.AddLine(0.173 * Width, 0.339 * Height, 0.141 * Width, 0.346 * Height);
  Path.AddLine(0.141 * Width, 0.346 * Height, 0.105 * Width, 0.35 * Height);
  Path.AddLine(0.105 * Width, 0.35 * Height, 0.0831 * Width, 0.35 * Height);
  Path.AddLine(0.0831 * Width, 0.35 * Height, 0.0671 * Width, 0.346 * Height);
  Path.AddLine(0.0671 * Width, 0.346 * Height, 0.0543 * Width, 0.343 * Height);
  Path.AddLine(0.0543 * Width, 0.343 * Height, 0.0479 * Width, 0.339 * Height);
  Path.AddLine(0.0479 * Width, 0.339 * Height, 0.0479 * Width, 0.339 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.383 * Width, 0.382 * Height, 0.383 * Width, 0.26 * Height);
  Path.AddLine(0.383 * Width, 0.26 * Height, 0.342 * Width, 0.26 * Height);
  Path.AddLine(0.342 * Width, 0.26 * Height, 0.342 * Width, 0.382 * Height);
  Path.AddLine(0.342 * Width, 0.382 * Height, 0.22 * Width, 0.614 * Height);
  Path.AddLine(0.22 * Width, 0.614 * Height, 0.201 * Width, 0.657 * Height);
  Path.AddLine(0.201 * Width, 0.657 * Height, 0.185 * Width, 0.693 * Height);
  Path.AddLine(0.185 * Width, 0.693 * Height, 0.173 * Width, 0.724 * Height);
  Path.AddLine(0.173 * Width, 0.724 * Height, 0.166 * Width, 0.744 * Height);
  Path.AddLine(0.166 * Width, 0.744 * Height, 0.163 * Width, 0.764 * Height);
  Path.AddLine(0.163 * Width, 0.764 * Height, 0.16 * Width, 0.791 * Height);
  Path.AddLine(0.16 * Width, 0.791 * Height, 0.157 * Width, 0.823 * Height);
  Path.AddLine(0.157 * Width, 0.823 * Height, 0.157 * Width, 0.862 * Height);
  Path.AddLine(0.157 * Width, 0.862 * Height, 0.157 * Width, 0.945 * Height);
  Path.AddLine(0.157 * Width, 0.945 * Height, 0.843 * Width, 0.945 * Height);
  Path.AddLine(0.843 * Width, 0.945 * Height, 0.843 * Width, 0.862 * Height);
  Path.AddLine(0.843 * Width, 0.862 * Height, 0.843 * Width, 0.819 * Height);
  Path.AddLine(0.843 * Width, 0.819 * Height, 0.843 * Width, 0.787 * Height);
  Path.AddLine(0.843 * Width, 0.787 * Height, 0.84 * Width, 0.764 * Height);
  Path.AddLine(0.84 * Width, 0.764 * Height, 0.837 * Width, 0.748 * Height);
  Path.AddLine(0.837 * Width, 0.748 * Height, 0.831 * Width, 0.728 * Height);
  Path.AddLine(0.831 * Width, 0.728 * Height, 0.821 * Width, 0.705 * Height);
  Path.AddLine(0.821 * Width, 0.705 * Height, 0.802 * Width, 0.669 * Height);
  Path.AddLine(0.802 * Width, 0.669 * Height, 0.783 * Width, 0.626 * Height);
  Path.AddLine(0.783 * Width, 0.626 * Height, 0.658 * Width, 0.378 * Height);
  Path.AddLine(0.658 * Width, 0.378 * Height, 0.658 * Width, 0.26 * Height);
  Path.AddLine(0.658 * Width, 0.26 * Height, 0.613 * Width, 0.26 * Height);
  Path.AddLine(0.613 * Width, 0.26 * Height, 0.613 * Width, 0.382 * Height);
  Path.AddLine(0.613 * Width, 0.382 * Height, 0.383 * Width, 0.382 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.345 * Width, 0.429 * Height, 0.431 * Width, 0.429 * Height);
  Path.AddLine(0.431 * Width, 0.429 * Height, 0.431 * Width, 0.512 * Height);
  Path.AddLine(0.431 * Width, 0.512 * Height, 0.345 * Width, 0.512 * Height);
  Path.AddLine(0.345 * Width, 0.512 * Height, 0.345 * Width, 0.429 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.457 * Width, 0.429 * Height, 0.543 * Width, 0.429 * Height);
  Path.AddLine(0.543 * Width, 0.429 * Height, 0.543 * Width, 0.512 * Height);
  Path.AddLine(0.543 * Width, 0.512 * Height, 0.457 * Width, 0.512 * Height);
  Path.AddLine(0.457 * Width, 0.512 * Height, 0.457 * Width, 0.429 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.565 * Width, 0.429 * Height, 0.652 * Width, 0.429 * Height);
  Path.AddLine(0.652 * Width, 0.429 * Height, 0.652 * Width, 0.512 * Height);
  Path.AddLine(0.652 * Width, 0.512 * Height, 0.565 * Width, 0.512 * Height);
  Path.AddLine(0.565 * Width, 0.512 * Height, 0.565 * Width, 0.429 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.345 * Width, 0.52 * Height, 0.431 * Width, 0.52 * Height);
  Path.AddLine(0.431 * Width, 0.52 * Height, 0.431 * Width, 0.602 * Height);
  Path.AddLine(0.431 * Width, 0.602 * Height, 0.345 * Width, 0.602 * Height);
  Path.AddLine(0.345 * Width, 0.602 * Height, 0.345 * Width, 0.52 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.457 * Width, 0.52 * Height, 0.543 * Width, 0.52 * Height);
  Path.AddLine(0.543 * Width, 0.52 * Height, 0.543 * Width, 0.602 * Height);
  Path.AddLine(0.543 * Width, 0.602 * Height, 0.457 * Width, 0.602 * Height);
  Path.AddLine(0.457 * Width, 0.602 * Height, 0.457 * Width, 0.52 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.565 * Width, 0.52 * Height, 0.652 * Width, 0.52 * Height);
  Path.AddLine(0.652 * Width, 0.52 * Height, 0.652 * Width, 0.602 * Height);
  Path.AddLine(0.652 * Width, 0.602 * Height, 0.565 * Width, 0.602 * Height);
  Path.AddLine(0.565 * Width, 0.602 * Height, 0.565 * Width, 0.52 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.345 * Width, 0.614 * Height, 0.431 * Width, 0.614 * Height);
  Path.AddLine(0.431 * Width, 0.614 * Height, 0.431 * Width, 0.697 * Height);
  Path.AddLine(0.431 * Width, 0.697 * Height, 0.345 * Width, 0.697 * Height);
  Path.AddLine(0.345 * Width, 0.697 * Height, 0.345 * Width, 0.614 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.457 * Width, 0.614 * Height, 0.543 * Width, 0.614 * Height);
  Path.AddLine(0.543 * Width, 0.614 * Height, 0.543 * Width, 0.697 * Height);
  Path.AddLine(0.543 * Width, 0.697 * Height, 0.457 * Width, 0.697 * Height);
  Path.AddLine(0.457 * Width, 0.697 * Height, 0.457 * Width, 0.614 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.565 * Width, 0.614 * Height, 0.652 * Width, 0.614 * Height);
  Path.AddLine(0.652 * Width, 0.614 * Height, 0.652 * Width, 0.697 * Height);
  Path.AddLine(0.652 * Width, 0.697 * Height, 0.565 * Width, 0.697 * Height);
  Path.AddLine(0.565 * Width, 0.697 * Height, 0.565 * Width, 0.614 * Height);
  Path.CloseFigure;
end;

procedure DrawPaper(Path: TGPGraphicsPath; Width, Height: single);
begin
  Path.StartFigure;
  Path.AddLine(0.649 * Width, 0.0924 * Height, 0.649 * Width, 0.353 * Height);
  Path.AddLine(0.649 * Width, 0.353 * Height, 0.903 * Width, 0.353 * Height);
  Path.AddLine(0.903 * Width, 0.353 * Height, 0.649 * Width, 0.0924 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(1 * Width, 0.364 * Height, 1 * Width, 1 * Height);
  Path.AddLine(1 * Width, 1 * Height, 0 * Width, 1 * Height);
  Path.AddLine(0 * Width, 1 * Height, 0 * Width, 0 * Height);
  Path.AddLine(0 * Width, 0 * Height, 0.638 * Width, 0 * Height);
  Path.AddLine(0.638 * Width, 0 * Height, 1 * Width, 0.364 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.568 * Width, 0.429 * Height, 0.568 * Width, 0.0761 * Height);
  Path.AddLine(0.568 * Width, 0.0761 * Height, 0.0811 * Width, 0.0761 * Height);
  Path.AddLine(0.0811 * Width, 0.0761 * Height, 0.0811 * Width, 0.924 * Height);
  Path.AddLine(0.0811 * Width, 0.924 * Height, 0.919 * Width, 0.924 * Height);
  Path.AddLine(0.919 * Width, 0.924 * Height, 0.919 * Width, 0.429 * Height);
  Path.AddLine(0.919 * Width, 0.429 * Height, 0.568 * Width, 0.429 * Height);
  Path.CloseFigure;
end;

procedure DrawRecycled(Path: TGPGraphicsPath; Width, Height: single);
begin
  Path.StartFigure;
  Path.AddLine(0.0479 * Width, 0.25 * Height, 0.0419 * Width, 0.246 * Height);
  Path.AddLine(0.0419 * Width, 0.246 * Height, 0.012 * Width, 0.223 * Height);
  Path.AddLine(0.012 * Width, 0.223 * Height, 0 * Width, 0.192 * Height);
  Path.AddLine(0 * Width, 0.192 * Height, 0 * Width, 0.115 * Height);
  Path.AddLine(0 * Width, 0.115 * Height, 0.00599 * Width, 0.0923 * Height);
  Path.AddLine(0.00599 * Width, 0.0923 * Height, 0.018 * Width, 0.0769 * Height);
  Path.AddLine(0.018 * Width, 0.0769 * Height, 0.0359 * Width, 0.0615 * Height);
  Path.AddLine(0.0359 * Width, 0.0615 * Height, 0.0599 * Width, 0.05 * Height);
  Path.AddLine(0.0599 * Width, 0.05 * Height, 0.138 * Width, 0.0269 * Height);
  Path.AddLine(0.138 * Width, 0.0269 * Height, 0.24 * Width, 0.0115 * Height);
  Path.AddLine(0.24 * Width, 0.0115 * Height, 0.359 * Width, 0.00385 * Height);
  Path.AddLine(0.359 * Width, 0.00385 * Height, 0.497 * Width, 0 * Height);
  Path.AddLine(0.497 * Width, 0 * Height, 0.635 * Width, 0.00385 * Height);
  Path.AddLine(0.635 * Width, 0.00385 * Height, 0.76 * Width, 0.0115 * Height);
  Path.AddLine(0.76 * Width, 0.0115 * Height, 0.856 * Width, 0.0269 * Height);
  Path.AddLine(0.856 * Width, 0.0269 * Height, 0.94 * Width, 0.05 * Height);
  Path.AddLine(0.94 * Width, 0.05 * Height, 0.964 * Width, 0.0615 * Height);
  Path.AddLine(0.964 * Width, 0.0615 * Height, 0.982 * Width, 0.0769 * Height);
  Path.AddLine(0.982 * Width, 0.0769 * Height, 0.994 * Width, 0.0923 * Height);
  Path.AddLine(0.994 * Width, 0.0923 * Height, 1 * Width, 0.115 * Height);
  Path.AddLine(1 * Width, 0.115 * Height, 1 * Width, 0.192 * Height);
  Path.AddLine(1 * Width, 0.192 * Height, 0.988 * Width, 0.219 * Height);
  Path.AddLine(0.988 * Width, 0.219 * Height, 0.958 * Width, 0.246 * Height);
  Path.AddLine(0.958 * Width, 0.246 * Height, 0.952 * Width, 0.246 * Height);
  Path.AddLine(0.952 * Width, 0.246 * Height, 0.952 * Width, 0.846 * Height);
  Path.AddLine(0.952 * Width, 0.846 * Height, 0.952 * Width, 0.881 * Height);
  Path.AddLine(0.952 * Width, 0.881 * Height, 0.94 * Width, 0.904 * Height);
  Path.AddLine(0.94 * Width, 0.904 * Height, 0.928 * Width, 0.923 * Height);
  Path.AddLine(0.928 * Width, 0.923 * Height, 0.904 * Width, 0.935 * Height);
  Path.AddLine(0.904 * Width, 0.935 * Height, 0.826 * Width, 0.962 * Height);
  Path.AddLine(0.826 * Width, 0.962 * Height, 0.731 * Width, 0.985 * Height);
  Path.AddLine(0.731 * Width, 0.985 * Height, 0.623 * Width, 0.996 * Height);
  Path.AddLine(0.623 * Width, 0.996 * Height, 0.497 * Width, 1 * Height);
  Path.AddLine(0.497 * Width, 1 * Height, 0.371 * Width, 0.996 * Height);
  Path.AddLine(0.371 * Width, 0.996 * Height, 0.269 * Width, 0.985 * Height);
  Path.AddLine(0.269 * Width, 0.985 * Height, 0.174 * Width, 0.969 * Height);
  Path.AddLine(0.174 * Width, 0.969 * Height, 0.102 * Width, 0.942 * Height);
  Path.AddLine(0.102 * Width, 0.942 * Height, 0.0778 * Width, 0.927 * Height);
  Path.AddLine(0.0778 * Width, 0.927 * Height, 0.0599 * Width, 0.908 * Height);
  Path.AddLine(0.0599 * Width, 0.908 * Height, 0.0539 * Width, 0.881 * Height);
  Path.AddLine(0.0539 * Width, 0.881 * Height, 0.0479 * Width, 0.846 * Height);
  Path.AddLine(0.0479 * Width, 0.846 * Height, 0.0479 * Width, 0.25 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.497 * Width, 0.162 * Height, 0.581 * Width, 0.162 * Height);
  Path.AddLine(0.581 * Width, 0.162 * Height, 0.659 * Width, 0.158 * Height);
  Path.AddLine(0.659 * Width, 0.158 * Height, 0.731 * Width, 0.154 * Height);
  Path.AddLine(0.731 * Width, 0.154 * Height, 0.79 * Width, 0.146 * Height);
  Path.AddLine(0.79 * Width, 0.146 * Height, 0.844 * Width, 0.135 * Height);
  Path.AddLine(0.844 * Width, 0.135 * Height, 0.88 * Width, 0.127 * Height);
  Path.AddLine(0.88 * Width, 0.127 * Height, 0.904 * Width, 0.119 * Height);
  Path.AddLine(0.904 * Width, 0.119 * Height, 0.91 * Width, 0.112 * Height);
  Path.AddLine(0.91 * Width, 0.112 * Height, 0.904 * Width, 0.1 * Height);
  Path.AddLine(0.904 * Width, 0.1 * Height, 0.88 * Width, 0.0923 * Height);
  Path.AddLine(0.88 * Width, 0.0923 * Height, 0.838 * Width, 0.0846 * Height);
  Path.AddLine(0.838 * Width, 0.0846 * Height, 0.778 * Width, 0.0731 * Height);
  Path.AddLine(0.778 * Width, 0.0731 * Height, 0.647 * Width, 0.0577 * Height);
  Path.AddLine(0.647 * Width, 0.0577 * Height, 0.497 * Width, 0.0538 * Height);
  Path.AddLine(0.497 * Width, 0.0538 * Height, 0.347 * Width, 0.0577 * Height);
  Path.AddLine(0.347 * Width, 0.0577 * Height, 0.216 * Width, 0.0731 * Height);
  Path.AddLine(0.216 * Width, 0.0731 * H