⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 dgalproc.pas

📁 KSDev.BlockEngine.v3.03.rar 界面控件
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  Path.AddLine(0.374 * Width, 0.518 * Height, 0.371 * Width, 0.502 * Height);
  Path.AddLine(0.371 * Width, 0.502 * Height, 0.371 * Width, 0.502 * Height);
  Path.CloseFigure;
end;

procedure DrawPhone(Path: TGPGraphicsPath; Width, Height: single);
begin
  Path.StartFigure;
  Path.AddLine(0.939 * Width, 0.0945 * Height, 0.965 * Width, 0.157 * Height);
  Path.AddLine(0.965 * Width, 0.157 * Height, 0.984 * Width, 0.217 * Height);
  Path.AddLine(0.984 * Width, 0.217 * Height, 0.997 * Width, 0.272 * Height);
  Path.AddLine(0.997 * Width, 0.272 * Height, 1 * Width, 0.323 * Height);
  Path.AddLine(1 * Width, 0.323 * Height, 1 * Width, 0.346 * Height);
  Path.AddLine(1 * Width, 0.346 * Height, 1 * Width, 0.378 * Height);
  Path.AddLine(1 * Width, 0.378 * Height, 0.994 * Width, 0.406 * Height);
  Path.AddLine(0.994 * Width, 0.406 * Height, 0.987 * Width, 0.425 * Height);
  Path.AddLine(0.987 * Width, 0.425 * Height, 0.974 * Width, 0.441 * Height);
  Path.AddLine(0.974 * Width, 0.441 * Height, 0.962 * Width, 0.453 * Height);
  Path.AddLine(0.962 * Width, 0.453 * Height, 0.942 * Width, 0.461 * Height);
  Path.AddLine(0.942 * Width, 0.461 * Height, 0.917 * Width, 0.469 * Height);
  Path.AddLine(0.917 * Width, 0.469 * Height, 0.888 * Width, 0.469 * Height);
  Path.AddLine(0.888 * Width, 0.469 * Height, 0.85 * Width, 0.465 * Height);
  Path.AddLine(0.85 * Width, 0.465 * Height, 0.818 * Width, 0.461 * Height);
  Path.AddLine(0.818 * Width, 0.461 * Height, 0.789 * Width, 0.449 * Height);
  Path.AddLine(0.789 * Width, 0.449 * Height, 0.767 * Width, 0.433 * Height);
  Path.AddLine(0.767 * Width, 0.433 * Height, 0.748 * Width, 0.409 * Height);
  Path.AddLine(0.748 * Width, 0.409 * Height, 0.735 * Width, 0.386 * Height);
  Path.AddLine(0.735 * Width, 0.386 * Height, 0.728 * Width, 0.354 * Height);
  Path.AddLine(0.728 * Width, 0.354 * Height, 0.725 * Width, 0.319 * Height);
  Path.AddLine(0.725 * Width, 0.319 * Height, 0.725 * Width, 0.28 * Height);
  Path.AddLine(0.725 * Width, 0.28 * Height, 0.722 * Width, 0.244 * Height);
  Path.AddLine(0.722 * Width, 0.244 * Height, 0.716 * Width, 0.22 * Height);
  Path.AddLine(0.716 * Width, 0.22 * Height, 0.703 * Width, 0.201 * Height);
  Path.AddLine(0.703 * Width, 0.201 * Height, 0.677 * Width, 0.185 * Height);
  Path.AddLine(0.677 * Width, 0.185 * Height, 0.642 * Width, 0.173 * Height);
  Path.AddLine(0.642 * Width, 0.173 * Height, 0.604 * Width, 0.165 * Height);
  Path.AddLine(0.604 * Width, 0.165 * Height, 0.553 * Width, 0.161 * Height);
  Path.AddLine(0.553 * Width, 0.161 * Height, 0.498 * Width, 0.157 * Height);
  Path.AddLine(0.498 * Width, 0.157 * Height, 0.441 * Width, 0.161 * Height);
  Path.AddLine(0.441 * Width, 0.161 * Height, 0.393 * Width, 0.165 * Height);
  Path.AddLine(0.393 * Width, 0.165 * Height, 0.351 * Width, 0.173 * Height);
  Path.AddLine(0.351 * Width, 0.173 * Height, 0.319 * Width, 0.189 * Height);
  Path.AddLine(0.319 * Width, 0.189 * Height, 0.3 * Width, 0.205 * Height);
  Path.AddLine(0.3 * Width, 0.205 * Height, 0.288 * Width, 0.224 * Height);
  Path.AddLine(0.288 * Width, 0.224 * Height, 0.278 * Width, 0.248 * Height);
  Path.AddLine(0.278 * Width, 0.248 * Height, 0.275 * Width, 0.28 * Height);
  Path.AddLine(0.275 * Width, 0.28 * Height, 0.275 * Width, 0.315 * Height);
  Path.AddLine(0.275 * Width, 0.315 * Height, 0.272 * Width, 0.35 * Height);
  Path.AddLine(0.272 * Width, 0.35 * Height, 0.265 * Width, 0.382 * Height);
  Path.AddLine(0.265 * Width, 0.382 * Height, 0.252 * Width, 0.409 * Height);
  Path.AddLine(0.252 * Width, 0.409 * Height, 0.233 * Width, 0.429 * Height);
  Path.AddLine(0.233 * Width, 0.429 * Height, 0.208 * Width, 0.449 * Height);
  Path.AddLine(0.208 * Width, 0.449 * Height, 0.179 * Width, 0.461 * Height);
  Path.AddLine(0.179 * Width, 0.461 * Height, 0.144 * Width, 0.465 * Height);
  Path.AddLine(0.144 * Width, 0.465 * Height, 0.105 * Width, 0.469 * Height);
  Path.AddLine(0.105 * Width, 0.469 * Height, 0.0799 * Width, 0.469 * Height);
  Path.AddLine(0.0799 * Width, 0.469 * Height, 0.0575 * Width, 0.461 * Height);
  Path.AddLine(0.0575 * Width, 0.461 * Height, 0.0383 * Width, 0.453 * Height);
  Path.AddLine(0.0383 * Width, 0.453 * Height, 0.0256 * Width, 0.445 * Height);
  Path.AddLine(0.0256 * Width, 0.445 * Height, 0.0128 * Width, 0.429 * Height);
  Path.AddLine(0.0128 * Width, 0.429 * Height, 0.00639 * Width, 0.409 * Height);
  Path.AddLine(0.00639 * Width, 0.409 * Height, 0.00319 * Width, 0.386 * Height);
  Path.AddLine(0.00319 * Width, 0.386 * Height, 0 * Width, 0.358 * Height);
  Path.AddLine(0 * Width, 0.358 * Height, 0 * Width, 0.327 * Height);
  Path.AddLine(0 * Width, 0.327 * Height, 0.00319 * Width, 0.276 * Height);
  Path.AddLine(0.00319 * Width, 0.276 * Height, 0.016 * Width, 0.22 * Height);
  Path.AddLine(0.016 * Width, 0.22 * Height, 0.0351 * Width, 0.157 * Height);
  Path.AddLine(0.0351 * Width, 0.157 * Height, 0.0607 * Width, 0.0906 * Height);
  Path.AddLine(0.0607 * Width, 0.0906 * Height, 0.157 * Width, 0.0512 * Height);
  Path.AddLine(0.157 * Width, 0.0512 * Height, 0.262 * Width, 0.0236 * Height);
  Path.AddLine(0.262 * Width, 0.0236 * Height, 0.374 * Width, 0.00787 * Height);
  Path.AddLine(0.374 * Width, 0.00787 * Height, 0.495 * Width, 0 * Height);
  Path.AddLine(0.495 * Width, 0 * Height, 0.617 * Width, 0.00787 * Height);
  Path.AddLine(0.617 * Width, 0.00787 * Height, 0.732 * Width, 0.0236 * Height);
  Path.AddLine(0.732 * Width, 0.0236 * Height, 0.84 * Width, 0.0512 * Height);
  Path.AddLine(0.84 * Width, 0.0512 * Height, 0.939 * Width, 0.0945 * Height);
  Path.AddLine(0.939 * Width, 0.0945 * Height, 0.939 * Width, 0.0945 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.431 * Width, 0.327 * Height, 0.565 * Width, 0.327 * Height);
  Path.AddLine(0.565 * Width, 0.327 * Height, 0.565 * Width, 0.205 * Height);
  Path.AddLine(0.565 * Width, 0.205 * Height, 0.706 * Width, 0.205 * Height);
  Path.AddLine(0.706 * Width, 0.205 * Height, 0.706 * Width, 0.37 * Height);
  Path.AddLine(0.706 * Width, 0.37 * Height, 0.831 * Width, 0.614 * Height);
  Path.AddLine(0.831 * Width, 0.614 * Height, 0.85 * Width, 0.654 * Height);
  Path.AddLine(0.85 * Width, 0.654 * Height, 0.866 * Width, 0.685 * Height);
  Path.AddLine(0.866 * Width, 0.685 * Height, 0.875 * Width, 0.713 * Height);
  Path.AddLine(0.875 * Width, 0.713 * Height, 0.882 * Width, 0.736 * Height);
  Path.AddLine(0.882 * Width, 0.736 * Height, 0.888 * Width, 0.756 * Height);
  Path.AddLine(0.888 * Width, 0.756 * Height, 0.888 * Width, 0.783 * Height);
  Path.AddLine(0.888 * Width, 0.783 * Height, 0.891 * Width, 0.819 * Height);
  Path.AddLine(0.891 * Width, 0.819 * Height, 0.891 * Width, 0.862 * Height);
  Path.AddLine(0.891 * Width, 0.862 * Height, 0.891 * Width, 1 * Height);
  Path.AddLine(0.891 * Width, 1 * Height, 0.109 * Width, 1 * Height);
  Path.AddLine(0.109 * Width, 1 * Height, 0.109 * Width, 0.862 * Height);
  Path.AddLine(0.109 * Width, 0.862 * Height, 0.112 * Width, 0.787 * Height);
  Path.AddLine(0.112 * Width, 0.787 * Height, 0.121 * Width, 0.732 * Height);
  Path.AddLine(0.121 * Width, 0.732 * Height, 0.137 * Width, 0.677 * Height);
  Path.AddLine(0.137 * Width, 0.677 * Height, 0.169 * Width, 0.61 * Height);
  Path.AddLine(0.169 * Width, 0.61 * Height, 0.294 * Width, 0.366 * Height);
  Path.AddLine(0.294 * Width, 0.366 * Height, 0.294 * Width, 0.205 * Height);
  Path.AddLine(0.294 * Width, 0.205 * Height, 0.431 * Width, 0.205 * Height);
  Path.AddLine(0.431 * Width, 0.205 * Height, 0.431 * Width, 0.327 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.907 * Width, 0.138 * Height, 0.815 * Width, 0.102 * Height);
  Path.AddLine(0.815 * Width, 0.102 * Height, 0.716 * Width, 0.0748 * Height);
  Path.AddLine(0.716 * Width, 0.0748 * Height, 0.607 * Width, 0.0591 * Height);
  Path.AddLine(0.607 * Width, 0.0591 * Height, 0.495 * Width, 0.0551 * Height);
  Path.AddLine(0.495 * Width, 0.0551 * Height, 0.38 * Width, 0.0591 * Height);
  Path.AddLine(0.38 * Width, 0.0591 * Height, 0.275 * Width, 0.0748 * Height);
  Path.AddLine(0.275 * Width, 0.0748 * Height, 0.179 * Width, 0.102 * Height);
  Path.AddLine(0.179 * Width, 0.102 * Height, 0.0927 * Width, 0.138 * Height);
  Path.AddLine(0.0927 * Width, 0.138 * Height, 0.0671 * Width, 0.213 * Height);
  Path.AddLine(0.0671 * Width, 0.213 * Height, 0.0511 * Width, 0.287 * Height);
  Path.AddLine(0.0511 * Width, 0.287 * Height, 0.0735 * Width, 0.295 * Height);
  Path.AddLine(0.0735 * Width, 0.295 * Height, 0.0958 * Width, 0.295 * Height);
  Path.AddLine(0.0958 * Width, 0.295 * Height, 0.128 * Width, 0.291 * Height);
  Path.AddLine(0.128 * Width, 0.291 * Height, 0.16 * Width, 0.283 * Height);
  Path.AddLine(0.16 * Width, 0.283 * Height, 0.192 * Width, 0.272 * Height);
  Path.AddLine(0.192 * Width, 0.272 * Height, 0.227 * Width, 0.252 * Height);
  Path.AddLine(0.227 * Width, 0.252 * Height, 0.227 * Width, 0.248 * Height);
  Path.AddLine(0.227 * Width, 0.248 * Height, 0.23 * Width, 0.217 * Height);
  Path.AddLine(0.23 * Width, 0.217 * Height, 0.243 * Width, 0.185 * Height);
  Path.AddLine(0.243 * Width, 0.185 * Height, 0.265 * Width, 0.161 * Height);
  Path.AddLine(0.265 * Width, 0.161 * Height, 0.294 * Width, 0.138 * Height);
  Path.AddLine(0.294 * Width, 0.138 * Height, 0.332 * Width, 0.122 * Height);
  Path.AddLine(0.332 * Width, 0.122 * Height, 0.377 * Width, 0.11 * Height);
  Path.AddLine(0.377 * Width, 0.11 * Height, 0.431 * Width, 0.106 * Height);
  Path.AddLine(0.431 * Width, 0.106 * Height, 0.495 * Width, 0.102 * Height);
  Path.AddLine(0.495 * Width, 0.102 * Height, 0.559 * Width, 0.106 * Height);
  Path.AddLine(0.559 * Width, 0.106 * Height, 0.617 * Width, 0.11 * Height);
  Path.AddLine(0.617 * Width, 0.11 * Height, 0.665 * Width, 0.122 * Height);
  Path.AddLine(0.665 * Width, 0.122 * Height, 0.703 * Width, 0.138 * Height);
  Path.AddLine(0.703 * Width, 0.138 * Height, 0.735 * Width, 0.161 * Height);
  Path.AddLine(0.735 * Width, 0.161 * Height, 0.757 * Width, 0.185 * Height);
  Path.AddLine(0.757 * Width, 0.185 * Height, 0.77 * Width, 0.217 * Height);
  Path.AddLine(0.77 * Width, 0.217 * Height, 0.773 * Width, 0.248 * Height);
  Path.AddLine(0.773 * Width, 0.248 * Height, 0.773 * Width, 0.252 * Height);
  Path.AddLine(0.773 * Width, 0.252 * Height, 0.808 * Width, 0.272 * Height);
  Path.AddLine(0.808 * Width, 0.272 * Height, 0.84 * Width, 0.283 * Height);
  Path.AddLine(0.84 * Width, 0.283 * Height, 0.872 * Width, 0.291 * Height);
  Path.AddLine(0.872 * Width, 0.291 * Height, 0.901 * Width, 0.295 * Height);
  Path.AddLine(0.901 * Width, 0.295 * Height, 0.93 * Width, 0.295 * Height);
  Path.AddLine(0.93 * Width, 0.295 * Height, 0.949 * Width, 0.287 * Height);
  Path.AddLine(0.949 * Width, 0.287 * Height, 0.93 * Width, 0.209 * Height);
  Path.AddLine(0.93 * Width, 0.209 * Height, 0.907 * Width, 0.138 * Height);
  Path.AddLine(0.907 * Width, 0.138 * Height, 0.907 * Width, 0.138 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.952 * Width, 0.339 * Height, 0.946 * Width, 0.343 * Height);
  Path.AddLine(0.946 * Width, 0.343 * Height, 0.936 * Width, 0.346 * Height);
  Path.AddLine(0.936 * Width, 0.346 * Height, 0.923 * Width, 0.35 * Height);
  Path.AddLine(0.923 * Width, 0.35 * Height, 0.904 * Width, 0.35 * Height);
  Path.AddLine(0.904 * Width, 0.35 * Height, 0.866 * Width, 0.346 * Height);
  Path.AddLine(0.866 * Width, 0.346 * Height, 0.831 * Width, 0.339 * Height);
  Path.AddLine(0.831 * Width, 0.339 * Height, 0.799 * Width, 0.327 * Height);
  Path.AddLine(0.799 * Width, 0.327 * Height, 0.773 * Width, 0.307 * Height);
  Path.AddLine(0.773 * Width, 0.307 * Height, 0.773 * Width, 0.335 * Height);
  Path.AddLine(0.773 * Width, 0.335 * Height, 0.776 * Width, 0.35 * Height);
  Path.AddLine(0.776 * Width, 0.35 * Height, 0.783 * Width, 0.362 * Height);
  Path.AddLine(0.783 * Width, 0.362 * Height, 0.792 * Width, 0.374 * Height);
  Path.AddLine(0.792 * Width, 0.374 * Height, 0.805 * Width, 0.386 * Height);
  Path.AddLine(0.805 * Width, 0.386 * Height, 0.843 * Width, 0.402 * Height);
  Path.AddLine(0.843 * Width, 0.402 * Height, 0.891 * Width, 0.406 * Height);
  Path.AddLine(0.891 * Width, 0.406 * Height, 0.911 * Width, 0.406 * Height);
  Path.AddLine(0.911 * Width, 0.406 * Height, 0.923 * Width, 0.402 * Height);
  Path.AddLine(0.923 * Width, 0.402 * Height, 0.933 * Width, 0.398 * Height);
  Path.AddLine(0.933 * Width, 0.398 * Height, 0.942 * Width, 0.394 * Height);
  Path.AddLine(0.942 * Width, 0.394 * Height, 0.949 * Width, 0.378 * Height);
  Path.AddLine(0.949 * Width, 0.378 * Height, 0.952 * Width, 0.346 * Height);
  Path.AddLine(0.952 * Width, 0.346 * Height, 0.952 * Width, 0.339 * Height);
  Path.CloseFigure;
  Path.StartFigure;
  Path.AddLine(0.0479 * Width, 0.339 * Height, 0.0479 * Width, 0.346 * Height);
  Path.AddLine(0.0479 * Width, 0.346 * Height, 0.0511 * Width, 0.378 * Height);
  Path.AddLine(0.0511 * Width, 0.378 * Height, 0.0607 * Width, 0.398 * Height);
  Path.AddLine(0.0607 * Width, 0.398 * Height, 0.0799 * Width, 0.409 * Height);
  Path.AddLine(0.0799 * Width, 0.409 * Height, 0.105 * Width, 0.413 * Height);
  Path.AddLine(0.105 * Width, 0.413 * Height, 0.16 * Width, 0.406 * Height);
  Path.AddLine(0.16 * Width, 0.406 * Height, 0.201 * Width, 0.386 * Height);
  Path.AddLine(0.201 * Width, 0.386 * Height, 0.211 * Width, 0.374 * Height);
  Path.AddLine(0.211 * Width, 0.374 * Height, 0.22 * Width, 0.362 * Height);
  Path.AddLine(0.22 * Width, 0.362 * Height, 0.227 * Width, 0.343 * Height);
  Path.AddLine(0.227 * Width, 0.343 * Height, 0.227 * Width, 0.319 * Height);
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -