網路城邦
上一篇 回創作列表 下一篇   字體:
delphi bmp
2019/05/15 15:44:03瀏覽37|回應0|推薦0
var

  bmp1:TBitmap;

begin

  bmp1:=TBitmap.create;

  bmp1.Width:=Image1.Width;

  bmp1.Height:=Image1.Height;

  bmp1.PixelFormat:=pf24bit;

  bmp1.Canvas.Pen.Color:=clBlack;

//  bmp1.Canvas.MoveTo(0,0);

//  bmp1.Canvas.LineTo(0,Image1.Height-1);

//  bmp1.Canvas.LineTo(Image1.Width-1,Image1.Height-1);

//  bmp1.Canvas.LineTo(Image1.Width-1,0);

//  bmp1.Canvas.LineTo(0,0);

  bmp1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);

  Image1.Picture.Bitmap.Assign(bmp1);

end;
( 心情隨筆心情日記 )
回應 列印 加入我的文摘
上一篇 回創作列表 下一篇

引用
引用網址:https://classic-blog.udn.com/article/trackback.jsp?uid=greatcat&aid=126709867