Delphi GDI+ 드로잉(1)

그림을 그리려면 종이, 붓, 브러시가 필요하다.Delphi에는 Canvas, Pen, Brush가 있습니다.Canvas: 바로 화포입니다. 예를 들어 창의 Canvas 속성은 바로 창의 화포입니다.Pen: 펜입니다. 펜 색상, 펜 폭 등을 설정할 수 있습니다.Brush: 브러시입니다. 채움 색상 등을 설정할 수 있습니다.

//  : {    }

procedure TForm1.Button1Click(Sender: TObject);

begin

  Canvas.Pen.Color := clRed; {      }

  Canvas.Pen.Width := 2;     {      }



  Canvas.MoveTo(10,10);      {    }

  Canvas.LineTo(100,100);    {    }



{    Canvas    ,      : Self.Canvas   Form1.Canvas }

end;



{    }

procedure TForm1.Button2Click(Sender: TObject);

begin

  Canvas.Brush.Color := clYellow; {      ,       }

  Canvas.FillRect(ClientRect);    {       }

end;

 
TpaintBox를 사용하여 OnPaint 이벤트에 그리는 것이 좋습니다.Image 컨트롤이 아닌 Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Timage,TpaintBox,Tpicture,TBitmap,Tcanvas,TGraphic의 관계와 차이
TGraphic은 TBitmap의 부류로 많은 그림 함수의 매개 변수가 TGraphic이지만 우리가 자주 함수를 주는 것은 TBitmap이다.TBitmap의 많은 기능은 TGraphic에서 계승된 것이다. 예를 들어 Width, Height,LoadFromFile,SaveToFile,LoadFromStream,SaveToStream;팔레트, Transparent(투명 여부) 등도 있습니다.TGraphic의 유용한 예:

var

  g: TGraphic;

begin

  g := TBitmap.Create;

  g.LoadFromFile('c:\temp\test.bmp');

  Self.Canvas.StretchDraw(ClientRect, g);

  g.Free;

end;

Tcanvas는 그림 표면으로 동그라미, 네모, 붓, 브러시 등이 모두 그의 기능이다.컨트롤의 Canvas 속성은 다음과 같은 Tcanvas입니다.

var

  cvs: TCanvas;

begin

  cvs := Self.Canvas;

  cvs.Brush.Color := clYellow;

  cvs.Font.Color := clRed;

  cvs.Font.Name := '  ';

  cvs.Font.Style := [fsBold];

  cvs.Font.Size := 24;

  cvs.TextOut(10, 10, '    Delphi   ');

end;

일부 컨트롤은 Canvas 속성을 직접 주지 않고 Tcanvas를 통해 그림 표면을 얻을 수 있습니다.모든 보이는 컨트롤러는 그림 표면을 그려야 한다. 그렇지 않으면 시스템은 어떻게 그렸을까?예를 들어 Tpanel과 TButton은 Canvas 속성이 없고 자주 사용되지 않기 때문에 필요하면 다음과 같이 할 수 있습니다.

var

  cvs: TCanvas;

begin

  cvs := TCanvas.Create;

  cvs.Handle := GetDC(Panel1.Handle);

  cvs.Pen.Width := 2;

  cvs.Pen.Color := clRed;

  cvs.Brush.Color := clYellow;

  cvs.Rectangle(5, 5, 50, 30);

  cvs.Free;

end;

그리고 TBitmap은 TGraphic에서 계승하는 동시에 Tcanvas를 자신의 속성으로 받아들인다.그래서 그림과 그림을 처리하는 이중 기능이 생겼어요!TBitmap에도 예를 들어 보십시오.

var

  bit: TBitmap;

begin

  bit := TBitmap.Create;

  bit.LoadFromFile('c:\temp\test.bmp');

  bit.Canvas.Brush.Style := bsClear;

  bit.Canvas.Pen.Color := clRed;

  bit.Canvas.Pen.Width := 2;

  bit.Canvas.Ellipse(2, 2, 88, 66);

  Self.Canvas.Draw(0, 0, bit);

  bit.Free;

end;

Tpicture는 더욱 다양한 형식의 그림(예를 들어 ico,wmf 등)을 처리하기 위해 존재한다.그러나 TGraphic, Tcanvas, TBitmap의 기능을 모두 빌려 쓰기 때문에 기능이 더욱 강하다.Tpicture와 TGraphic이 중복되는 기능(예를 들어 LoadFromFile)은 모두 내부에서 호출된 TGraphic이다.그러나 드로잉을 그리려면 Tpicture를 호출해야 합니다.Bitmap.Canvas. 다음 예제에서는 Tpicture를 사용하여 십자형 아이콘(표시 및 저장)을 그렸습니다.

var

  pic: TPicture;

begin

  pic := TPicture.Create;

  pic.Bitmap.SetSize(32, 32);

  pic.Bitmap.Canvas.Pen.Color := clRed;

  pic.Bitmap.Canvas.Pen.Width := 8;

  pic.Bitmap.Canvas.MoveTo(0, 16);

  pic.Bitmap.Canvas.LineTo(32, 16);

  pic.Bitmap.Canvas.MoveTo(16, 0);

  pic.Bitmap.Canvas.LineTo(16, 32);



  Self.Canvas.Draw(4, 4, pic.Graphic);

  pic.SaveToFile('c:\temp\test.ico');

  pic.Free;

end;

Timage는 주로 그림을 보여주기 위해서인데 이것은Tpicture를 포함하고 Tpicture가 있으면 위의 모든 것이 있다.그러나 Tcontrol->TGraphicControl에서 계승된 것이기 때문에 컨트롤의 기본 능력(사건, 메시지 등)을 갖추고 있다.TpaintBox는 주로 그림을 그리는 데 사용되며 그림을 처리하는 능력이 없기 때문에 Tcanvas만 포함됩니다.그것 또한 Tcontrol->TGraphicControl에서 계승되어 상호작용을 할 수 있는 컨트롤러입니다.Timage가 TPaintBox보다 능력이 강한 것은 분명하다.그러나 그림만 그리면 TPaintBox가 가볍다.