초보자 께서 말씀하시기를...

> 안녕하세요.

>

> 판넬에 line, polyline 등을 그리는 방법을 가르쳐 주세요.

>



초보자님 안녕하세요?

TPanel에는 Canvas가 없죠?

그러니 아래처럼 새로운 판넬을 상속하고,

사용하면 나머지는 Canvas 속성을 그대로

이용하실수 있습니다.



type

TGPanel = class(TPanel);



type

TForm1 = class(TForm)

Button1: TButton;

Panel1: TPanel;

...

...

...



implementation



{$R *.DFM}



//이렇게 써보세요.

procedure TForm1.Button1Click(Sender: TObject);

begin

with TGPanel(Panel1).Canvas do

begin

//먼저, 라인을 그립니다.

Pen.Color:= clRed;

MoveTo(200, 30);

LineTo(500, 30);



//PolyLine을 그립니다.

Pen.Width := 3;

Pen.Color := clBlack;

PolyLine([Point(10,20),Point(100,50),Point(110,120),

Point(160,60),Point(200,150),Point(130,140)]);



//참고로 원을 몇개 그리는 것을 해보죠.

//둥근 원 네개가 좌에서 우로 쭈욱 생깁니다.

Pen.Width := 2;

Pen.Color := clBlack;

Brush.Color := clFuchsia;

Ellipse(100, 50, 200, 200);

Brush.Color := clRed;

Ellipse(200, 50, 300, 200);

Brush.Color := clPurple;

Ellipse(300, 50, 400, 200);

Brush.Color := clBlue;

Ellipse(400, 50, 500, 200);

end;

end;

그럼 즐거운 프로래밍 되세요~~