← Back to branch summary

~ubuntu-branches/ubuntu/vivid/mricron/vivid

« back to all changes in this revision

Viewing changes to nifti_hdr_view.pas

  • Committer: Package Import Robot
  • Author(s): Michael Hanke
  • Date: 2012-05-15 08:59:27 UTC
  • mfrom: (1.1.5)
  • Revision ID: package-import@ubuntu.com-20120515085927-l0zoatiwial8v8o1
Tags: 0.20120505.1~dfsg.1-1
http://bugs.debian.org/671365
* New upstream code (Closes: #671365).
* Update upstream source URL.
* Bumped Standards-version to 3.9.3, no changes necessary.

Show diffs side-by-side

added added

removed removed

Lines of Context:
nifti_hdr_view.pas
155
155
    Label38: TLabel;
156
156
    Label47: TLabel;
157
157
    //procedure FormShow(Sender: TObject);
 
158
    procedure FormShow(Sender: TObject);
158
159
    procedure SaveHdrDlgClose(Sender: TObject);
159
160
    procedure WriteHdrForm (var lHdr: TMRIcroHdr);
160
161
    procedure ReadHdrDimensionsOnly (var lHdr: TMRIcroHdr); //reads only size dimensions: useful for computing estimated filesize
482
483
  ApplySaveDlgFilter(SaveHdrDlg);
483
484
end;
484
485
 
 
486
procedure THdrForm.FormShow(Sender: TObject);
 
487
begin
 
488
      // ImgForm.OnLaunch;
 
489
end;
 
490
 
485
491
procedure THdrForm.ReadHdrDimensionsOnly (var lHdr: TMRIcroHdr); //reads only size dimensions: useful for computing estimated filesize
486
492
var
487
493
    lInc: Integer;
693
699
{$ENDIF}
694
700
         NIFTIhdr_ClearHdr(lHdr);
695
701
         HdrForm.WriteHdrForm (lHdr); //show default header
 
702
 
696
703
end;
697
704
 
698
705
procedure THdrForm.ImageSzChange(Sender: TObject); //report size of image data