Q&A

  • 스피드버튼 모양 바꾸기
안녕하세요!
폼을 디자인 하면서....
스피드 버튼의 모양은 사각형인데 이것을 모서리가 둥글게 할순 없나요?
어떻게 하는지 부탁합니다.
1  COMMENTS
  • Profile
    nilriri™ 2003.04.03 08:31
    TSpeedButton이 정의 되어있는
    Buttons.pas파일에 보시면

    procedure TSpeedButton.Paint;프로시져가 있습니다.

    그중에..

          DrawEdge(Canvas.Handle, PaintRect, DownStyles[FState in [bsDown, bsExclusive]],FillStyles[Transparent] or BF_RECT);

    라는게 있습니다.

    이렇게 수정했더니..^^;
          Canvas.Pen.Color := clGray;
          Canvas.RoundRect(1,1,width+1,height+1,10,10);
          Canvas.Pen.Color := clWhite;
          Canvas.RoundRect(0,0,width,height,10,10);

    원하시는모양엔 안 미치겠지만..

    암튼 이부분을 수정해서 사용하시면 될거 같습니다.

    물로 기존 컴포넌트를 상속받아서 새로운 컴포넌트를 만드셔서
    Edge를 그리는 부분을 수정하시면 되겠져..

    머..더 좋은 방법이 있을런지도..^^;

    그럼 즐프~