Canvas - desenhando no canvas quando tem scrollbars

Top  Previous  Next

// 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(3030);

  Canvas.LineTo(19701970);

end;