All pastes #477927 Raw Edit

Stuff

public text v1 · immutable
·published 2007-05-08 22:12 UTC
rendered paste body
procedure TSDIAppForm.ImageLibMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  midx: Integer;
  midy: Integer;
  r: Integer;
begin
  midx:=28;
  midy:=29;
  r:=24;
  if Sqr(midx-X)+Sqr(midy-Y)<=Sqr(r) then
      ShowMessage('Clicked');
end;