dgalproc.pas

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

  Path.AddLine(0.892 * Width, 0.0154 * Height, 0.917 * Width, 0.0346 * Height);
  Path.AddLine(0.917 * Width, 0.0346 * Height, 0.941 * Width, 0.0577 * Height);
  Path.AddLine(0.941 * Width, 0.0577 * Height, 0.96 * Width, 0.0846 * Height);
  Path.AddLine(0.96 * Width, 0.0846 * Height, 0.975 * Width, 0.115 * Height);
  Path.AddLine(0.975 * Width, 0.115 * Height, 0.988 * Width, 0.15 * Height);
  Path.AddLine(0.988 * Width, 0.15 * Height, 0.997 * Width, 0.188 * Height);
  Path.AddLine(0.997 * Width, 0.188 * Height, 1 * Width, 0.227 * Height);
  Path.AddLine(1 * Width, 0.227 * Height, 0.259 * Width, 0.923 * Height);
  Path.AddLine(0.259 * Width, 0.923 * Height, 0.238 * Width, 0.892 * Height);
  Path.AddLine(0.238 * Width, 0.892 * Height, 0.0309 * Width, 1 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.932 * Width, 0.219 * Height, 0.923 * Width, 0.173 * Height);
  Path.AddLine(0.923 * Width, 0.173 * Height, 0.904 * Width, 0.135 * Height);
  Path.AddLine(0.904 * Width, 0.135 * Height, 0.88 * Width, 0.104 * Height);
  Path.AddLine(0.88 * Width, 0.104 * Height, 0.849 * Width, 0.0769 * Height);
  Path.AddLine(0.849 * Width, 0.0769 * Height, 0.778 * Width, 0.142 * Height);
  Path.AddLine(0.778 * Width, 0.142 * Height, 0.815 * Width, 0.165 * Height);
  Path.AddLine(0.815 * Width, 0.165 * Height, 0.84 * Width, 0.2 * Height);
  Path.AddLine(0.84 * Width, 0.2 * Height, 0.861 * Width, 0.242 * Height);
  Path.AddLine(0.861 * Width, 0.242 * Height, 0.87 * Width, 0.288 * Height);
  Path.AddLine(0.87 * Width, 0.288 * Height, 0.932 * Width, 0.219 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.775 * Width, 0.373 * Height, 0.762 * Width, 0.327 * Height);
  Path.AddLine(0.762 * Width, 0.327 * Height, 0.744 * Width, 0.285 * Height);
  Path.AddLine(0.744 * Width, 0.285 * Height, 0.719 * Width, 0.254 * Height);
  Path.AddLine(0.719 * Width, 0.254 * Height, 0.688 * Width, 0.231 * Height);
  Path.AddLine(0.688 * Width, 0.231 * Height, 0.355 * Width, 0.538 * Height);
  Path.AddLine(0.355 * Width, 0.538 * Height, 0.392 * Width, 0.565 * Height);
  Path.AddLine(0.392 * Width, 0.565 * Height, 0.42 * Width, 0.6 * Height);
  Path.AddLine(0.42 * Width, 0.6 * Height, 0.438 * Width, 0.642 * Height);
  Path.AddLine(0.438 * Width, 0.642 * Height, 0.448 * Width, 0.692 * Height);
  Path.AddLine(0.448 * Width, 0.692 * Height, 0.475 * Width, 0.654 * Height);
  Path.AddLine(0.475 * Width, 0.654 * Height, 0.485 * Width, 0.612 * Height);
  Path.AddLine(0.485 * Width, 0.612 * Height, 0.503 * Width, 0.573 * Height);
  Path.AddLine(0.503 * Width, 0.573 * Height, 0.531 * Width, 0.531 * Height);
  Path.AddLine(0.531 * Width, 0.531 * Height, 0.565 * Width, 0.488 * Height);
  Path.AddLine(0.565 * Width, 0.488 * Height, 0.605 * Width, 0.454 * Height);
  Path.AddLine(0.605 * Width, 0.454 * Height, 0.645 * Width, 0.427 * Height);
  Path.AddLine(0.645 * Width, 0.427 * Height, 0.682 * Width, 0.412 * Height);
  Path.AddLine(0.682 * Width, 0.412 * Height, 0.719 * Width, 0.408 * Height);
  Path.AddLine(0.719 * Width, 0.408 * Height, 0.735 * Width, 0.412 * Height);
  Path.AddLine(0.735 * Width, 0.412 * Height, 0.775 * Width, 0.373 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.352 * Width, 0.773 * Height, 0.34 * Width, 0.727 * Height);
  Path.AddLine(0.34 * Width, 0.727 * Height, 0.324 * Width, 0.685 * Height);
  Path.AddLine(0.324 * Width, 0.685 * Height, 0.299 * Width, 0.654 * Height);
  Path.AddLine(0.299 * Width, 0.654 * Height, 0.265 * Width, 0.627 * Height);
  Path.AddLine(0.265 * Width, 0.627 * Height, 0.198 * Width, 0.688 * Height);
  Path.AddLine(0.198 * Width, 0.688 * Height, 0.231 * Width, 0.712 * Height);
  Path.AddLine(0.231 * Width, 0.712 * Height, 0.259 * Width, 0.746 * Height);
  Path.AddLine(0.259 * Width, 0.746 * Height, 0.278 * Width, 0.788 * Height);
  Path.AddLine(0.278 * Width, 0.788 * Height, 0.29 * Width, 0.838 * Height);
  Path.AddLine(0.29 * Width, 0.838 * Height, 0.352 * Width, 0.773 * Height);
  Path.CloseFigure;
end;

procedure DrawShears(Path: TGPGraphicsPath; Width, Height: single);
begin
  Path.StartFigure;
  Path.AddLine(0.401 * Width, 0.607 * Height, 0.357 * Width, 0.644 * Height);
  Path.AddLine(0.357 * Width, 0.644 * Height, 0.339 * Width, 0.66 * Height);
  Path.AddLine(0.339 * Width, 0.66 * Height, 0.325 * Width, 0.676 * Height);
  Path.AddLine(0.325 * Width, 0.676 * Height, 0.316 * Width, 0.692 * Height);
  Path.AddLine(0.316 * Width, 0.692 * Height, 0.313 * Width, 0.704 * Height);
  Path.AddLine(0.313 * Width, 0.704 * Height, 0.316 * Width, 0.733 * Height);
  Path.AddLine(0.316 * Width, 0.733 * Height, 0.316 * Width, 0.749 * Height);
  Path.AddLine(0.316 * Width, 0.749 * Height, 0.313 * Width, 0.802 * Height);
  Path.AddLine(0.313 * Width, 0.802 * Height, 0.304 * Width, 0.85 * Height);
  Path.AddLine(0.304 * Width, 0.85 * Height, 0.287 * Width, 0.891 * Height);
  Path.AddLine(0.287 * Width, 0.891 * Height, 0.266 * Width, 0.931 * Height);
  Path.AddLine(0.266 * Width, 0.931 * Height, 0.24 * Width, 0.96 * Height);
  Path.AddLine(0.24 * Width, 0.96 * Height, 0.211 * Width, 0.984 * Height);
  Path.AddLine(0.211 * Width, 0.984 * Height, 0.175 * Width, 0.996 * Height);
  Path.AddLine(0.175 * Width, 0.996 * Height, 0.137 * Width, 1 * Height);
  Path.AddLine(0.137 * Width, 1 * Height, 0.108 * Width, 0.996 * Height);
  Path.AddLine(0.108 * Width, 0.996 * Height, 0.0848 * Width, 0.988 * Height);
  Path.AddLine(0.0848 * Width, 0.988 * Height, 0.0614 * Width, 0.972 * Height);
  Path.AddLine(0.0614 * Width, 0.972 * Height, 0.0409 * Width, 0.947 * Height);
  Path.AddLine(0.0409 * Width, 0.947 * Height, 0.0234 * Width, 0.919 * Height);
  Path.AddLine(0.0234 * Width, 0.919 * Height, 0.00877 * Width, 0.887 * Height);
  Path.AddLine(0.00877 * Width, 0.887 * Height, 0.00292 * Width, 0.854 * Height);
  Path.AddLine(0.00292 * Width, 0.854 * Height, 0 * Width, 0.818 * Height);
  Path.AddLine(0 * Width, 0.818 * Height, 0.00292 * Width, 0.781 * Height);
  Path.AddLine(0.00292 * Width, 0.781 * Height, 0.00877 * Width, 0.749 * Height);
  Path.AddLine(0.00877 * Width, 0.749 * Height, 0.0205 * Width, 0.717 * Height);
  Path.AddLine(0.0205 * Width, 0.717 * Height, 0.038 * Width, 0.692 * Height);
  Path.AddLine(0.038 * Width, 0.692 * Height, 0.0614 * Width, 0.664 * Height);
  Path.AddLine(0.0614 * Width, 0.664 * Height, 0.0877 * Width, 0.644 * Height);
  Path.AddLine(0.0877 * Width, 0.644 * Height, 0.117 * Width, 0.623 * Height);
  Path.AddLine(0.117 * Width, 0.623 * Height, 0.155 * Width, 0.603 * Height);
  Path.AddLine(0.155 * Width, 0.603 * Height, 0.219 * Width, 0.579 * Height);
  Path.AddLine(0.219 * Width, 0.579 * Height, 0.24 * Width, 0.571 * Height);
  Path.AddLine(0.24 * Width, 0.571 * Height, 0.254 * Width, 0.563 * Height);
  Path.AddLine(0.254 * Width, 0.563 * Height, 0.266 * Width, 0.555 * Height);
  Path.AddLine(0.266 * Width, 0.555 * Height, 0.275 * Width, 0.547 * Height);
  Path.AddLine(0.275 * Width, 0.547 * Height, 0.284 * Width, 0.526 * Height);
  Path.AddLine(0.284 * Width, 0.526 * Height, 0.287 * Width, 0.498 * Height);
  Path.AddLine(0.287 * Width, 0.498 * Height, 0.284 * Width, 0.478 * Height);
  Path.AddLine(0.284 * Width, 0.478 * Height, 0.272 * Width, 0.457 * Height);
  Path.AddLine(0.272 * Width, 0.457 * Height, 0.254 * Width, 0.441 * Height);
  Path.AddLine(0.254 * Width, 0.441 * Height, 0.228 * Width, 0.429 * Height);
  Path.AddLine(0.228 * Width, 0.429 * Height, 0.161 * Width, 0.401 * Height);
  Path.AddLine(0.161 * Width, 0.401 * Height, 0.123 * Width, 0.385 * Height);
  Path.AddLine(0.123 * Width, 0.385 * Height, 0.0906 * Width, 0.364 * Height);
  Path.AddLine(0.0906 * Width, 0.364 * Height, 0.0614 * Width, 0.34 * Height);
  Path.AddLine(0.0614 * Width, 0.34 * Height, 0.0409 * Width, 0.316 * Height);
  Path.AddLine(0.0409 * Width, 0.316 * Height, 0.0234 * Width, 0.287 * Height);
  Path.AddLine(0.0234 * Width, 0.287 * Height, 0.00877 * Width, 0.255 * Height);
  Path.AddLine(0.00877 * Width, 0.255 * Height, 0.00292 * Width, 0.219 * Height);
  Path.AddLine(0.00292 * Width, 0.219 * Height, 0 * Width, 0.182 * Height);
  Path.AddLine(0 * Width, 0.182 * Height, 0.00292 * Width, 0.146 * Height);
  Path.AddLine(0.00292 * Width, 0.146 * Height, 0.0117 * Width, 0.113 * Height);
  Path.AddLine(0.0117 * Width, 0.113 * Height, 0.0234 * Width, 0.081 * Height);
  Path.AddLine(0.0234 * Width, 0.081 * Height, 0.0409 * Width, 0.0526 * Height);
  Path.AddLine(0.0409 * Width, 0.0526 * Height, 0.0614 * Width, 0.0283 * Height);
  Path.AddLine(0.0614 * Width, 0.0283 * Height, 0.0848 * Width, 0.0121 * Height);
  Path.AddLine(0.0848 * Width, 0.0121 * Height, 0.111 * Width, 0.00405 * Height);
  Path.AddLine(0.111 * Width, 0.00405 * Height, 0.14 * Width, 0 * Height);
  Path.AddLine(0.14 * Width, 0 * Height, 0.175 * Width, 0.00405 * Height);
  Path.AddLine(0.175 * Width, 0.00405 * Height, 0.208 * Width, 0.0202 * Height);
  Path.AddLine(0.208 * Width, 0.0202 * Height, 0.237 * Width, 0.0405 * Height);
  Path.AddLine(0.237 * Width, 0.0405 * Height, 0.263 * Width, 0.0729 * Height);
  Path.AddLine(0.263 * Width, 0.0729 * Height, 0.287 * Width, 0.109 * Height);
  Path.AddLine(0.287 * Width, 0.109 * Height, 0.304 * Width, 0.154 * Height);
  Path.AddLine(0.304 * Width, 0.154 * Height, 0.313 * Width, 0.198 * Height);
  Path.AddLine(0.313 * Width, 0.198 * Height, 0.316 * Width, 0.243 * Height);
  Path.AddLine(0.316 * Width, 0.243 * Height, 0.316 * Width, 0.296 * Height);
  Path.AddLine(0.316 * Width, 0.296 * Height, 0.316 * Width, 0.308 * Height);
  Path.AddLine(0.316 * Width, 0.308 * Height, 0.322 * Width, 0.32 * Height);
  Path.AddLine(0.322 * Width, 0.32 * Height, 0.333 * Width, 0.332 * Height);
  Path.AddLine(0.333 * Width, 0.332 * Height, 0.351 * Width, 0.348 * Height);
  Path.AddLine(0.351 * Width, 0.348 * Height, 0.404 * Width, 0.393 * Height);
  Path.AddLine(0.404 * Width, 0.393 * Height, 0.807 * Width, 0.0405 * Height);
  Path.AddLine(0.807 * Width, 0.0405 * Height, 0.819 * Width, 0.0405 * Height);
  Path.AddLine(0.819 * Width, 0.0405 * Height, 0.868 * Width, 0.0486 * Height);
  Path.AddLine(0.868 * Width, 0.0486 * Height, 0.915 * Width, 0.0648 * Height);
  Path.AddLine(0.915 * Width, 0.0648 * Height, 0.959 * Width, 0.0972 * Height);
  Path.AddLine(0.959 * Width, 0.0972 * Height, 1 * Width, 0.138 * Height);
  Path.AddLine(1 * Width, 0.138 * Height, 0.538 * Width, 0.502 * Height);
  Path.AddLine(0.538 * Width, 0.502 * Height, 1 * Width, 0.866 * Height);
  Path.AddLine(1 * Width, 0.866 * Height, 0.959 * Width, 0.911 * Height);
  Path.AddLine(0.959 * Width, 0.911 * Height, 0.915 * Width, 0.939 * Height);
  Path.AddLine(0.915 * Width, 0.939 * Height, 0.874 * Width, 0.96 * Height);
  Path.AddLine(0.874 * Width, 0.96 * Height, 0.83 * Width, 0.964 * Height);
  Path.AddLine(0.83 * Width, 0.964 * Height, 0.822 * Width, 0.964 * Height);
  Path.AddLine(0.822 * Width, 0.964 * Height, 0.807 * Width, 0.964 * Height);
  Path.AddLine(0.807 * Width, 0.964 * Height, 0.401 * Width, 0.607 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.365 * Width, 0.425 * Height, 0.339 * Width, 0.413 * Height);
  Path.AddLine(0.339 * Width, 0.413 * Height, 0.31 * Width, 0.385 * Height);
  Path.AddLine(0.31 * Width, 0.385 * Height, 0.289 * Width, 0.356 * Height);
  Path.AddLine(0.289 * Width, 0.356 * Height, 0.275 * Width, 0.328 * Height);
  Path.AddLine(0.275 * Width, 0.328 * Height, 0.272 * Width, 0.3 * Height);
  Path.AddLine(0.272 * Width, 0.3 * Height, 0.272 * Width, 0.279 * Height);
  Path.AddLine(0.272 * Width, 0.279 * Height, 0.272 * Width, 0.255 * Height);
  Path.AddLine(0.272 * Width, 0.255 * Height, 0.269 * Width, 0.215 * Height);
  Path.AddLine(0.269 * Width, 0.215 * Height, 0.263 * Width, 0.178 * Height);
  Path.AddLine(0.263 * Width, 0.178 * Height, 0.251 * Width, 0.142 * Height);
  Path.AddLine(0.251 * Width, 0.142 * Height, 0.234 * Width, 0.113 * Height);
  Path.AddLine(0.234 * Width, 0.113 * Height, 0.213 * Width, 0.0891 * Height);
  Path.AddLine(0.213 * Width, 0.0891 * Height, 0.19 * Width, 0.0729 * Height);
  Path.AddLine(0.19 * Width, 0.0729 * Height, 0.164 * Width, 0.0607 * Height);
  Path.AddLine(0.164 * Width, 0.0607 * Height, 0.137 * Width, 0.0567 * Height);
  Path.AddLine(0.137 * Width, 0.0567 * Height, 0.12 * Width, 0.0607 * Height);
  Path.AddLine(0.12 * Width, 0.0607 * Height, 0.102 * Width, 0.0648 * Height);
  Path.AddLine(0.102 * Width, 0.0648 * Height, 0.0877 * Width, 0.0769 * Height);
  Path.AddLine(0.0877 * Width, 0.0769 * Height, 0.0731 * Width, 0.0931 * Height);
  Path.AddLine(0.0731 * Width, 0.0931 * Height, 0.0614 * Width, 0.113 * Height);
  Path.AddLine(0.0614 * Width, 0.113 * Height, 0.0526 * Width, 0.138 * Height);
  Path.AddLine(0.0526 * Width, 0.138 * Height, 0.0468 * Width, 0.158 * Height);
  Path.AddLine(0.0468 * Width, 0.158 * Height, 0.0439 * Width, 0.182 * Height);
  Path.AddLine(0.0439 * Width, 0.182 * Height, 0.0468 * Width, 0.211 * Height);
  Path.AddLine(0.0468 * Width, 0.211 * Height, 0.0526 * Width, 0.235 * Height);
  Path.AddLine(0.0526 * Width, 0.235 * Height, 0.0643 * Width, 0.259 * Height);
  Path.AddLine(0.0643 * Width, 0.259 * Height, 0.0789 * Width, 0.279 * Height);
  Path.AddLine(0.0789 * Width, 0.279 * Height, 0.0994 * Width, 0.3 * Height);
  Path.AddLine(0.0994 * Width, 0.3 * Height, 0.123 * Width, 0.32 * Height);
  Path.AddLine(0.123 * Width, 0.32 * Height, 0.152 * Width, 0.336 * Height);
  Path.AddLine(0.152 * Width, 0.336 * Height, 0.184 * Width, 0.348 * Height);
  Path.AddLine(0.184 * Width, 0.348 * Height, 0.237 * Width, 0.372 * Height);
  Path.AddLine(0.237 * Width, 0.372 * Height, 0.26 * Width, 0.381 * Height);