小白請教！在矩形圖片上畫圓！-有解無憂

在矩形圖片上，以同一個點（矩形對角線的交點）為圓形，畫出多個相同半徑差的同心圓！該怎么編程實作。

uj5u.com熱心網友回復：

可以用 TImage 作為畫布，在表單上放個 TImage控制元件，設定Image為矩形。
繪圖代碼如下：





procedure TFmMain.btnDrawClick(Sender: TObject);

var

  i,r: integer;

begin

  //繪制矩形

  imgCanvas.Canvas.Pen.Color := clBlack;

  imgCanvas.Canvas.MoveTo(0,0);

  imgCanvas.Canvas.LineTo(imgCanvas.Width-1,0);

  imgCanvas.Canvas.LineTo(imgCanvas.Width-1,imgCanvas.Height-1);

  imgCanvas.Canvas.LineTo(0,imgCanvas.Height-1);

  imgCanvas.Canvas.LineTo(0,0);

  //繪制圓

  r := imgCanvas.Height div 2-2;

  for i:=10 downto 1 do

  begin

    //采用隨機色畫圓

    imgCanvas.Canvas.Pen.Color := Random($FFFFFF);

    imgCanvas.Canvas.Ellipse(imgCanvas.Width div 2-r,

                             imgCanvas.Height div 2-r,

                             imgCanvas.Width div 2+r,

                             imgCanvas.Height div 2+r);

    r := r-10;

  end;

end;

把繪圖代碼放在定時器里執行，還會有影片效果

uj5u.com熱心網友回復：

參考 1 樓天行歸來的回復：

可以用 TImage 作為畫布，在表單上放個 TImage控制元件，設定Image為矩形。
繪圖代碼如下：





procedure TFmMain.btnDrawClick(Sender: TObject);

var

  i,r: integer;

begin

  //繪制矩形

  imgCanvas.Canvas.Pen.Color := clBlack;

  imgCanvas.Canvas.MoveTo(0,0);

  imgCanvas.Canvas.LineTo(imgCanvas.Width-1,0);

  imgCanvas.Canvas.LineTo(imgCanvas.Width-1,imgCanvas.Height-1);

  imgCanvas.Canvas.LineTo(0,imgCanvas.Height-1);

  imgCanvas.Canvas.LineTo(0,0);

  //繪制圓

  r := imgCanvas.Height div 2-2;

  for i:=10 downto 1 do

  begin

    //采用隨機色畫圓

    imgCanvas.Canvas.Pen.Color := Random($FFFFFF);

    imgCanvas.Canvas.Ellipse(imgCanvas.Width div 2-r,

                             imgCanvas.Height div 2-r,

                             imgCanvas.Width div 2+r,

                             imgCanvas.Height div 2+r);

    r := r-10;

  end;

end;

把繪圖代碼放在定時器里執行，還會有影片效果

大神，這個是可以在給定的一張矩形圖片上實作嘛？

uj5u.com熱心網友回復：

參考 2 樓 weixin_45453416 的回復:

Quote: 參考 1 樓天行歸來的回復：

可以用 TImage 作為畫布，在表單上放個 TImage控制元件，設定Image為矩形。
繪圖代碼如下：





procedure TFmMain.btnDrawClick(Sender: TObject);

var

  i,r: integer;

begin

  //繪制矩形

  imgCanvas.Canvas.Pen.Color := clBlack;

  imgCanvas.Canvas.MoveTo(0,0);

  imgCanvas.Canvas.LineTo(imgCanvas.Width-1,0);

  imgCanvas.Canvas.LineTo(imgCanvas.Width-1,imgCanvas.Height-1);

  imgCanvas.Canvas.LineTo(0,imgCanvas.Height-1);

  imgCanvas.Canvas.LineTo(0,0);

  //繪制圓

  r := imgCanvas.Height div 2-2;

  for i:=10 downto 1 do

  begin

    //采用隨機色畫圓

    imgCanvas.Canvas.Pen.Color := Random($FFFFFF);

    imgCanvas.Canvas.Ellipse(imgCanvas.Width div 2-r,

                             imgCanvas.Height div 2-r,

                             imgCanvas.Width div 2+r,

                             imgCanvas.Height div 2+r);

    r := r-10;

  end;

end;

把繪圖代碼放在定時器里執行，還會有影片效果

大神，這個是可以在給定的一張矩形圖片上實作嘛？

估計你都沒有看完我寫的程式，程式里已經做了畫矩形，你需要多大矩形，修改下相關引數就可以。

uj5u.com熱心網友回復：

不好意思啊大神我的意思是說是需要在一張我自己匯入的有色彩的寫真照片上畫圓不是讓程式生成一個矩形

uj5u.com熱心網友回復：

上面代碼都給出來了
樓主連Ctrl+C和Ctrl+V都懶得做么？
去CV一下吧，直接運行看效果的

uj5u.com熱心網友回復：

參考 4 樓 weixin_45453416 的回復:

不好意思啊大神我的意思是說是需要在一張我自己匯入的有色彩的寫真照片上畫圓不是讓程式生成一個矩形

放一個TImage，假設名字叫Image1:
Image1.Picture.LoadFromFile('xxx');
Image1.Canvas.Ellipse(...);

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/20797.html

標籤：GAME 圖形處理/多媒體

上一篇：delphi問題

下一篇：5.C語言入門 Hello World