안녕 하세요?

BacTeria 박종민 입니다.

오늘은 투명한 브러쉬를 이용한 그림 그리기입니다.
(투명한 브러쉬 => 바탕에 영향을 주지않고 그림을 그릴수 있음)

아래의 소스를 참고 하시고... 전 이만 물러 갑니다.

수고하세요~~

procedure TForm1.Button1Click(Sender: TObject);
var
  hNewBrush: HBrush;
  hOldBrush: HBrush;
  lplb: TLogBrush;
begin
  lplb.lbStyle := BS_NULL;
  hNewBrush := CreateBrushIndirect(lplb);
  hOldBrush := SelectObject(Canvas.Handle, hNewBrush);
  Canvas.Brush.Handle := hNewBrush;
  Canvas.Ellipse(100, 100, 200, 200);
  SelectObject(Canvas.Handle, hOldBrush);
  DeleteObject(hNewBrush);
end;