Q&A

  • 그림지우기
Canvas.LineTo를 이용하여 선을 그렸습니다.

선을 지우고 새로운 선을 그리려는데 어떻게 지워야 합니까?



1  COMMENTS
  • Profile
    타락천사 2000.06.19 20:35
    안녕하세여.. 타락임다..^^



    전 좀 코딩이 많긴하지만 전통적인 방법을 씀다..^^;;;



    procedure CleanCanvas;

    var

    Rec : TRect;

    begin

    with Canvas do

    begin

    Brush.Style := bsSolid;

    Brush.Color := clWhite;

    GetWindowsRect(Handle, Rec);

    R := ScreenToClient(ClientRect);

    FillRect(Rec);

    end;

    with Canvas.Pen do

    begin

    Width := 1;

    Mode := pmCopy;

    Style := psSolid;

    Color := clBlack;

    end;

    end;



    즐푸 하세여..^^



    왕초보 타락천사..^_____^