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

[zhourongbiao]

怎样将位图的一个圆形区域拉伸成圆角矩形，要能朝各个方向拉伸？

[mqjshanghai]

帮你顶下，大哥给我5分，我要求不高

[aiirii]

>>将位图的一个圆形区域拉伸成圆角矩形

估计比较难,涉及你如何定义拉伸规则的算法

[chijingde]

简单写了一下
自己改进吧


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.

[wintergoes]

很难哦！

[jadeluo]

很难的, 关键在于如何插值，即因拉伸而扩展出的部分用原来位图的哪部分填充？

To chijingde(AD): 没看明白你的代码。

[redmoon_line]

关注