Delphi-OpenCV/samples/MouseCallback/MouseCallback.dpr

program MouseCallback;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  Core.types_c in '..\..\include\ñore\Core.types_c.pas',
  core_c in '..\..\include\ñore\core_c.pas',
  highgui_c in '..\..\include\highgui\highgui_c.pas';

Const
  // èìÿ êàðòèíêè
  filename = 'opencv_logo_with_text.png';

Var
  image: PIplImage = nil;
  c: Integer;

  // ðèñóåì öåëåóêàçàòåëü
procedure drawTarget(img: PIplImage; x, y, radius: Integer); cdecl;
begin
  cvCircle(img, cvPoint(x, y), radius, CV_RGB(250, 0, 0), 1, 8);
  cvLine(img, cvPoint(x - radius div 2, y - radius div 2), cvPoint(x + radius div 2, y + radius div 2),
    CV_RGB(250, 0, 0), 1, 8);
  cvLine(img, cvPoint(x - radius div 2, y + radius div 2), cvPoint(x + radius div 2, y - radius div 2),
    CV_RGB(250, 0, 0), 1, 8);
end;

// îáðàáîò÷èê ñîáûòèé îò ìûøêè
procedure myMouseCallback(event: Integer; x: Integer; y: Integer; flags: Integer;
  param: Pointer); cdecl;
Var
  img: PIplImage;
begin
  img := PIplImage(param);
  if event = CV_EVENT_LBUTTONDOWN then
  begin
    Writeln(Format('%d x %d', [x, y]));
    drawTarget(img, x, y, 10);
  end;
end;

begin
  try
    // ïîëó÷àåì êàðòèíêó
    image := cvLoadImage(filename, 1);
    Writeln('[i] image: ', filename);
    if not Assigned(image) then
      Halt;
    // îêíî äëÿ îòîáðàæåíèÿ êàðòèíêè
    cvNamedWindow('original', CV_WINDOW_AUTOSIZE);
    // âåøàåì îáðàáîò÷èê ìûøêè
    cvSetMouseCallback('original', myMouseCallback, image);

    while True do
    begin
      // ïîêàçûâàåì êàðòèíêó
      cvShowImage('original', image);
      c := cvWaitKey(33);
      if (c = 27) then
        break;
    end;

    // îñâîáîæäàåì ðåñóðñû
    cvReleaseImage(image);
    // óäàëÿåì îêíî
    cvDestroyWindow('original');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.