TPoint

Declaration

TPoint = record

Description

VCL TPoint record representing a point:
◼X: Integer;
◼Y: Integer;

Related ImageEn type: TDPoint.

See Also

◼VCL TPoint Documentation

Example

// Show cursor as horizontal and vertical lines
procedure TForm1.ImageEnView1DrawCanvas(Sender: TObject; ACanvas: TCanvas; ARect: TRect);
var
  pt: TPoint;
begin
  GetCursorPos( pt );
  pt := ImageEnView1.ScreenToClient( pt );

  ACanvas.Pen.Color := clYellow;
  ACanvas.MoveTo( pt.X, 0 );
  ACanvas.LineTo( pt.X, ImageEnView1.ClientHeight - 1 );
  ACanvas.MoveTo( 0, pt.Y );
  ACanvas.LineTo( ImageEnView1.ClientWidth - 1, pt.Y );
end;

---