im= Import["C:\Research\Pictures\FloridaPowerGrid.jpg"];
Module[{picturesize,i,bigger,imagesizes},
picturesize={1038, 1386};
values={};
i=1;
imagesizes=ImageDimensions[im];bigger=1;
DynamicModule[{pt={0,0}},
If[imagesizes[[1]]<imagesizes[[2]], bigger=2];
TableForm@{
	Button["Record!",AppendTo[values,{i,pt}];i++;],
	LocatorPane[
		Dynamic@pt,
		Dynamic@Graphics[
			Join[
				{Inset[im,{0,0},{0,0},{1,1}]}
				,Flatten[{Blue,Disk[#[[2]],.01],White,Text[#[[1]],#[[2]]]}&/@values]
			],
			PlotRange->{{0,imagesizes[[1]]/imagesizes[[bigger]]},{0,imagesizes[[2]]/imagesizes[[bigger]]}},
			ImageSize->picturesize]
	],
	Dynamic[N@pt],
	Dynamic[MatrixForm@values]
}]
]