位图局部拉伸问题，高手请进！

Delphi > GAME，图形处理/多媒体
收藏 回复
[问题点数：0分]
更多帖子
私信 空间 博客
zhourongbiao
等级
本版专家分：1129
结帖率 100%
怎样将位图的一个圆形区域拉伸成圆角矩形，要能朝各个方向拉伸？
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
mqjshanghai
等级
本版专家分：624
帮你顶下，大哥给我5分，我要求不高
只看TA 引用 举报 #1得分 0
更多帖子
私信 空间 博客
aiirii
等级
本版专家分：181754
勋章
Blank
进士 2004年 总版技术专家分年内排行榜第六
Blank
银牌 2004年4月 总版技术专家分月排行榜第二
Blank
红花 2006年1月 Delphi大版内专家分月排行榜第一
2005年12月 Delphi大版内专家分月排行榜第一
2005年11月 Delphi大版内专家分月排行榜第一
2005年10月 Delphi大版内专家分月排行榜第一
2005年6月 Delphi大版内专家分月排行榜第一
2004年10月 Delphi大版内专家分月排行榜第一
2004年9月 Delphi大版内专家分月排行榜第一
2004年8月 Delphi大版内专家分月排行榜第一
2004年7月 Delphi大版内专家分月排行榜第一
2004年6月 Delphi大版内专家分月排行榜第一
2004年5月 Delphi大版内专家分月排行榜第一
2004年4月 Delphi大版内专家分月排行榜第一
2004年3月 Delphi大版内专家分月排行榜第一
2003年12月 Delphi大版内专家分月排行榜第一
2003年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2006年4月 Delphi大版内专家分月排行榜第二
2005年5月 Delphi大版内专家分月排行榜第二
2005年4月 Delphi大版内专家分月排行榜第二
2005年3月 Delphi大版内专家分月排行榜第二
2005年2月 Delphi大版内专家分月排行榜第二
2004年12月 Delphi大版内专家分月排行榜第二
2004年2月 Delphi大版内专家分月排行榜第二
>>将位图的一个圆形区域拉伸成圆角矩形

估计比较难,涉及你如何定义拉伸规则的算法
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
redmoon_line
等级
本版专家分：2947
关注
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
chijingde
等级
本版专家分：5499
简单写了一下
自己改进吧


type
  TMyRect=class
  DC:HDC;
  public
    left,right,top,bottom:integer;
    width,height:integer;
    procedure draw;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    MB:boolean;
    MX,MY:integer;
  public
    MYRGN:TMyRect;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with MYRGN do
  begin
    DC:=getdc(handle);
    left:=100;right:=300;top:=100;bottom:=300;
    width:=200;height:=200;
    draw;
  end;
end;
{ TMyRect }

procedure TMyRect.draw;
begin
  RoundRect(DC,left,top,right,bottom,width,height);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 MB:=True;
 MX:=X;
 MY:=Y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 MB:=false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 subX,SubY:integer;
begin
 if MB then
 begin
   subX:=X-MX;
   subY:=Y-MY;
   if X<=MYRGN.left then
   begin
     MYRGN.left:=x;
     MYRGN.width:=MYRGN.width+subX;
   end;
   if X>=MYRGN.right then
   begin
     MYRGN.right:=x;
     MYRGN.width:=MYRGN.width+subX;
   end;
   if Y<=MYRGN.top then
   begin
      MYRGN.top:=Y;
     MYRGN.height:=MYRGN.height+subY;
   end;
   if Y>=MYRGN.bottom then
   begin
     MYRGN.bottom:=Y;
     MYRGN.height:=MYRGN.height+subY;
   end;
   Canvas.Pen.Color:=color;
   Canvas.Brush.Color:=color;
   Canvas.FillRect(self.ClientRect);
   MYRGN.draw;

   MX:=X;
   MY:=Y;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MYRGN:=TMyRect.Create;
  DoubleBuffered:=True;
end;

end.
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
wintergoes
等级
本版专家分：12090
勋章
Blank
红花 2009年11月 Delphi大版内专家分月排行榜第一
Blank
蓝花 2009年9月 Delphi大版内专家分月排行榜第三
很难哦！
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
jadeluo
等级
本版专家分：20454
勋章
Blank
红花 2007年3月 VB大版内专家分月排行榜第一
2007年3月 Delphi大版内专家分月排行榜第一
Blank
黄花 2008年2月 Delphi大版内专家分月排行榜第二
很难的, 关键在于如何插值，即因拉伸而扩展出的部分用原来位图的哪部分填充？

To chijingde(AD): 没看明白你的代码。
只看TA 引用 举报 #6得分 0
收起
收藏 回复
zhourongbiao

等级：

关注 私信 TA的帖子
WPF开发教程

------WPF开发教程 目录 WPF基础入门....... 1. WPF基础之体系结构......2. WPF基础之XAML....3. WPF基础之基元素......4. WPF基础之属性系统......5. WPF基础之路由事件......6. WPF基础之布局系统......7. WPF基础之样式设置和模板...

iOS端矢量图解决方案汇总

Python实战社群Java实战社群长按识别下方二维码，按需求添加扫码关注添加客服进Python社群▲扫码关注添加客服进Java社群▲作者 | 小猪来源 | 小猪的博客https://...

android安卓源码海量项目合集打包-1

下载地址 最后更新共计113个分类5177套源码29.2 GB。 卷 新加卷 的文件夹 PATH 列表 卷序列号为 00000200 5E7A:7F30 F:. ├─前台界面 │ ├─3D标签云卡片热门 │ │ Android TagCloudView云标签的灵活运用.rar ...

前端面试问题答案汇总--基础版

一、HTML、HTTP、web综合问题 1 前端需要注意哪些SEO 合理的title、description、keywords：搜索对着三项的权重逐个减小，title值强调重点即可，重要关键词出现不要超过2次，而且要靠前，不同页...

我的C语言学习历程：GUI篇

此 CSDN 博客不再更新，如需了解 GUI 项目开发状况，可前往项目主页：https://lcui.lc-soft.io ... 编写自己的GUI图形库 游戏的编写已经在数月前暂停，因为我又有了个想法：自己写个GUI库，这样，以后写图形界...

OpenGL纹理映射总结

大概步骤: 1.创建纹理对象,并为他指定一个纹理. 2.确定纹理如何应用到每个像素上. ...过滤:由于我们提供的纹理图像很少能和最终的屏幕坐标形成对应,大小不同,所以需要设置过滤项目.允许我们进行插值或者匀和,...

Tssd2019最新版下载地址和更新说明

★★ 下载地址 1. 百度网盘提取码j48p 2. 官网下载 ★★ Tssd 2019版 更新说明(2019.4.24)1....2.软件安装的默认路径改成了操作系统当前登录用户的用户目录下；...，cad06下批注设置中的选项不能操作的问题...

MATLAB图像处理（包括图像类型转换）

第一章　绪论 图形图像处理起源于20世纪20年代，当时通过海底电缆从英国伦敦到美国纽约采用数字压缩技术传输了第一幅数字照片，用来改善图像的质量。此后由于遥感等领域的应用，使得图形图像处理技术逐步得到...

前端面试题目（都是一些总结的，从各处摘抄的题目）

前端遇到哪些兼容性问题，怎么解决？ 答：（1）不同浏览器margin和padding不同，解决方法：*{margin:0;padding:0}统一格式 （2）ie6中，父级元素浮动以后，内部元素内容撑不开宽度。解决方法：元素内部的块级元素也...

《windows程序设计(C语言版)》笔记

《1》的笔记 ...这代表了Windows的三个主要子系统，它们被称作Kernel、User和GDI。当子系统的数目在Windows最近版本中增多时，大多数典型的Windows程序产生的函数呼叫仍对应到这三个模块之一。...

HTML及css疑问解答题前端面试题

1. 什么是盒模型 盒模型 margin(外边距)- 清除边框外的区域，外边距是透明的。 border(边框)- 围绕在内边距和内容外的边框。 padding(内边距)- 清除内容周围的区域，内边距是透明的。 content(内容)- 盒子的内容，...

孙鑫 VC++深入详解——学习笔记

原文地址：... ...1.MFC生成的C++ 源文件中都有 StdAfx.h，此文件包含了常用的AFX函数的声明，其中有 afxwin.h,此文件包含了CRECT,CPoint， CWnd等许多类及其方

利用VC实现图像的特殊显示效果

经常看电视的朋友们不知注意到没有，最近的电视连续剧在每集片头或片尾部分都有显示一些特殊效果的图像，比如前一阵子中央一套放的《长征》、目前中央八套正在播放的《康熙王朝》，这些特效称为"图像的浮雕效果"和...

VC图像编程

VC图像编程 分类： MFC编程 2013-09-15 13:08 114人阅读 评论(0) ... 图象拼接是在全景视频系统、地理信息系统等应用中经常遇到的一个问题，本文基于网格匹配的方法对边界部分有重叠的图象提出了一

前端面试-基础篇

#一、HTML、HTTP、web综合问题 #1 前端需要注意哪些SEO 合理的title、description、keywords：搜索对着三项的权重逐个减小，title值强调重点即可，重要关键词出现不要超过2次，而且要靠前，不同页面title要有所...

基于C#的波形显示控件的实现[附完整源码下载]

2019独角兽企业重金招聘Python工程师标准>>> ...

ArcGIS教程 - 6 空间数据获取

第6章 空间数据获取 空间数据获取是指利用CAD数据、遥感影像、纸质地图、外业观测数据等不同来源的数据进行处理，转换成为GIS软件能够识别和分析的数据格式。随着测绘技术的进步，尽管遥感和数字化地形图的成果...

第一部分：基础篇（一）

HTML、HTTP、web综合问题 1.前端需要注意哪些SEO 合理的title、description、keywords：搜索对着三项的权重逐个减小，title值强调重点即可，重要关键词出现不要超过2次，而且要靠前，不同页面title要有所不同；...

VC多媒体编程

admin -- 发布时间：2006-8-11 16:05:00 -- Visual C++中基于多文档视窗模型的重叠图象拼接技术摘要 图象拼接是在全景视频系统、地理信息系统等应用中经常遇到的一个问题，本文基于网格匹配的方法对边

基于 HTML5 结合互联网 的电力接线图

前言 “互联网+”思维让数据的搜集和获取更加便捷，并且随着大数据的深度开发和应用，数据分析预测对于提升用户体验有非常重要的价值，同时也为不同行业、不同领域的合作提供了更广阔的空间。传统的发电企业是一个.....

基于 HTML5 的电力接线图 SCADA 应用

2019独角兽企业重金招聘Python工程师标准>>> ...

前端面试题大全

1、什么是盒子模型？ 由margin、padding、border、content 四部分组成 2、分别说出行内元素、块级元素、 空(void)元素有那些？ (1)、行内元素：a、span、img、input、strong、select、label、em、button、textarea等...

图像处理

图像处理 分类： VC++ C++语言 C语言 2013-10-18 10:27 ...经常看电视的朋友们不知注意到没有，最近的电视连续剧在每集片头或片尾部分都有显示一些特殊效果的图像，比如前一阵子中央一套放的《长征》、目前...

[转] 基于C#的波形显示控件的实现

转自 基于C#的波形显示控件的实现[附完整源码下载]   编者记： 09年暑假正好在学院实验室呆了一段时间，做了个完整的上位机软件（具体实现：根据下位机的指令，实现通过串口来操纵下位机进行实验，并将采集的...

波士顿房价预测数据及代码

本资源包含数据，代码，解释，相应的文件。代码是练习用的，文章中的代码都可以运行出来，是很好的一个练手项目。

ARIMA模型-matlab代码

ARIMA模型-matlab代码，可以根据自己的实际情况进行参数调节，实现所需要的效果。

以太坊ETH挖矿图文教程2.0

本教程页数不多，7页，主要描述如何使用以太坊ETH挖矿，图文并茂的展示和流程细节的体现，基本看了一遍就肯定能够学会了。

基于Java的WebSocket的聊天室

HTML5中定义了WebSocket规范，该规范使得能够实现在浏览器端和服务器端通过WebSocket协议进行双向通信，运用Java语言和Tomcat的WebSocket实现作为服务端，实现一个聊天室的搭建。 运用Java语言和Tomcat的WebSocket实现作为服务端，快速实现一个聊天室的搭建。

python大作业--爬虫（完美应付大作业）.zip

python大作业分享--30多个项目任你选（由于上传大小限制分多个文件上传。爬虫：https://download.csdn.net/download/weixin_43960044/12533382小游戏：https://download.csdn.net/download/weixin_43960044/12533379），应付大作业完全没问题。内涵30多个项目，随意挑选。爬虫（爬抖音视频、下载B站视频、怕天气预报等）小游戏（五子棋、坦克大战、贪吃蛇、拼图等）。

2020五一建模A题解题思路.zip

2020年五一数学建模A题解题思路 最容易建模的是秦皇岛港动力煤价格的主要因素的影响，分别统计2019年5月1日至2020年4月30日一年内影响煤炭价格数据变化，（主要因素包括气候变化、出行方式、能源消耗方式、国际煤炭市场）。建立预测模型（时间序列预测模型， Elman神经网络预测模型等），预测煤炭价格变化。

相关热词 c#编程培训 c# 打开一个文件流 c#实现队列的操作 c# 遍历文件夹下的文件 c#控制键盘 c#opc编程 c# cs文件 c# 加锁 编程c# c# 计算字节单位