WinAPI: SetPixel 和 SetPixelV - 设置设备环境中指定位置的颜色

//声明:

SetPixel(

  DC: HDC;        {设备环境句柄}

  X, Y: Integer;  {坐标}

  Color: COLORREF {颜色值}

): COLORREF;      {返回颜色值}



SetPixelV(

  DC: HDC;        {设备环境句柄}

  X, Y: Integer;  {坐标}

  Color: COLORREF {颜色值}

): BOOL;



{SetPixel 与 SetPixelV 功能一致, 但返回值不一样; 书上说 SetPixelV 更快.}


 
   




//举例:

procedure TForm1.FormPaint(Sender: TObject);

var

  c: TColor;

  x,y: Integer;

begin

  Self.Color := clWhite;

  c := clRed;

  x := 1;

  y := 1;



  while x < ClientWidth do

  begin

    while y < ClientHeight do

    begin

      SetPixel(Canvas.Handle, x, y, c);

      Inc(y,4);

    end;

    Inc(x,4);

    y := 0;

  end;

end;


 
   




//效果图:

---