{

INCLUSION COUNTER: Help With Paths v1.0
Jeremy Brown 1997


---------------------------------------------------------

You must run this macro when you first install Inclusion Counter on this Mac or Inclusion Counter WILL NOT RUN!

After you have run this macro dispose of the file named "ROI" in the "ROI folder" supplied with Inclusion Counter.

This macro-file must be loaded into NIH Image to run.

To Load "Help With Paths v1.0" choose "Load Macros From Window" from the "Special" menu. Alternatively press Apple-9.

Choose "Help With Paths v1.0" from the "Special" menu and follow the instructions.

When you are finished close this window. You will never need to use this macro again, unless bad things happen.

---------------------------------------------------------




}


Macro 'Help With Paths';
var
  wPath, sPath, pPath: string;
  name, FullPath, FileType, folder: string;
  FileSize: integer;
begin
  PutMessage('Open the ROI file within the ROI folder supplied with Inclusion Counter');
  Open('');
  name := WindowTitle; 
  wPath := GetPath('window');
  SetFont('Geneva');
  SetFontSize(12);
  NewTextWindow('Inclusion Counter Help File');
  if wPath = '' then begin
  write('Please open the ROI text file in the ROI folder!');
end else begin
     FullPath := concat(wPath, name);
     writeLn('I am afraid this is absolutely necessary, it tells the Inclusion Counter where to find the ROI file. Inclusion Counter will not work without it!');
     writeLn('');
     writeLn('Copy the Path at the bottom of this page, then open the macro files "Batch Count Inclusions", "Manual Density Slice Inclusions", "No Background Subtraction v1.0" and "Photoshop Helper v1.0" and paste it into the following lines.');
     writeLn('');
     writeLn('In "Batch Count Inclusions v1.0" go to line 40 ( located in the procedure "ApplyROI" ), double click on "PasteHere" then choose paste from the "Edit" menu.'); 
     writeLn('Do exactly the same at line 643 ( Located in the macro "[1] Set Region of Interest" approximately half way down the page).');
     writeLn('THEN SAVE THE CHANGES TO THE MACRO');
     writeLn('');     
     writeLn('In "Manual Density Slice Inclusions v1.0" go to line 40 ( located in the procedure "ApplyROI" ), double click on "PasteHere" then choose paste from the "Edit" menu.'); 
     writeLn('Do exactly the same at line 658 ( Located in the macro "[1] Set Region of Interest" approximately half way down the page).');
     writeLn('THEN SAVE THE CHANGES TO THE MACRO');
     writeLn('');     
     writeLn('In "No Background Subtraction v1.0" go to line 40 ( located in the procedure "ApplyROI" ), double click on "PasteHere" then choose paste from the "Edit" menu.'); 
     writeLn('Do exactly the same at line 645 ( Located in the macro "[1] Set Region of Interest" approximately half way down the page).');
     writeLn('THEN SAVE THE CHANGES TO THE MACRO');
     writeLn('');     
     writeLn('In "Photoshop Helper v1.0" go to line 40 ( located in the procedure "ApplyROI" ), double click on "PasteHere" then choose paste from the "Edit" menu.'); 
     writeLn('Do exactly the same at line 127 ( Located in the macro "[1] Set Region of Interest" approximately half way down the page).');
     writeLn('');
     writeLn('This process is much easier if you are using Object-Image! Use the find text command to find "PasteHere" then paste the path name from the bottom of this page over the top as described above.');
     writeLn('');
     writeLn('THEN SAVE THE CHANGES TO THE MACRO');
     writeLn('NOW MOVE THE CURRENT ROI FILE TO THE WASTEBASKET!');
     writeLn('');      
     writeLn(FullPath);
     SaveAs('Inclusion Counter Help File');
  end;
  end;