Q&A

  • 폼에 그라이데이션효과를 주려면???
폼에 그라이데이션효과를 주려면 어떻게 해야하나요???



1  COMMENTS
  • Profile
    안치봉 1999.02.10 19:03
    구민오 wrote:

    > 폼에 그라이데이션효과를 주려면 어떻게 해야하나요???

    >



    procedure TForm1.FormPaint(Sender: TObject);

    var

    gap, i: integer;

    begin

    gap := (ClientHeight + 256) div 255;



    for i := 0 to 254 do

    begin

    Canvas.Brush.Color := RGB(0, 0, i);

    Canvas.FillRect(Rect(0, i*gap, ClientWidth, i*gap+gap));

    end;

    end;



    처럼하면 됩니다. RGB 값은 말그대로 레드,그린,블루를 의미합니다.

    위예에선 레드와 그린값이 0 이므로 값이 변하는건 블루값이라서 파란색으로

    그라이데션이 됩니다.



    RGB(i, 0, 0) 하면 빨간색으로 그라이데션이...

    RGB(0, i, 0) 하면 그린색으로...



    RGB(i, i, i) 하면 검은색에 가까운 그라이데션이...