All pastes #477872 Raw Edit

Untitled

public text v1 · immutable
·published 2007-05-08 21:48 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)<=r then
      ShowMessage(IntToStr(r));
end;