Canvas - desenhando no canvas quando tem scrollbars

// desenhando no canvas quando tem scrollbars

// modo tradicional

procedure Form.Paint;

var 

  X1, Y1: Integer;

begin

  X1 := HorzScrollBar.Position;

  Y1 := VertScrollBar.Position;

  // desenha uma linha

  Canvas.Pen.Width := 30;

  Canvas.Pen.Color := clRed;

  Canvas.MoveTo(30-X1, 30-Y1);

  Canvas.LineTo(1970-X1, 1970-Y1);

end;

// modo com API

procedure Form.Paint;

begin

  SetWindowOrgEx(Canvas.Handle, HorzScrollBar.Position, VertScrollBar.Position, nil);

  // desenha uma linha

  Canvas.Pen.Width := 30;

  Canvas.Pen.Color := clRed;

  Canvas.MoveTo(30, 30);

  Canvas.LineTo(1970, 1970);

end;