Рисовать на экране с помощью Canvas

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.Button1Click(Sender: TObject);
var
  c: TCanvas;
  i: integer;
begin
  c := TCanvas.Create;
  c.Handle := GetDC(0);
  c.Pen.Mode := pmNotXor;
  for i := 0 to 255 do begin
    c.Pen.Color := RGB(0, 0, i);
    c.MoveTo(50, 50 + i);
    c.LineTo(150, 50 + i);
  end;
  ReleaseDC(0, c.Handle);
end;