← Back to branch summary

~ubuntu-branches/ubuntu/precise/mricron/precise

« back to all changes in this revision

Viewing changes to common/define_types.pas

  • Committer: Bazaar Package Importer
  • Author(s): Michael Hanke
  • Date: 2010-11-08 07:55:47 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20101108075547-g99ufaelkf17kiss
Tags: 0.20101102.1~dfsg.1-1
* New upstream code.
* Changed get-orig-src to get-orig-source target in debian/rules for policy
  compliance.
* Added patch for compatibility with Lazarus version in Debian.
* Added patch for Ubuntu lucid backports that can be automatically applied
  by backport-dsc.

Show diffs side-by-side

added added

removed removed

Lines of Context:
common/define_types.pas
17
17
        SysUtils,classes,IniFiles,
18
18
        {$IFDEF GUI} forms,userdir,dialogs;{$ELSE} dialogsx;{$ENDIF}
19
19
const
20
 
     kMRIcronVers = '20 August 2010 (Debian)';
 
20
     kMRIcronVers = '2 November 2010 (Debian)';
21
21
     NaN : double = 1/0;
22
22
     kMagicDouble : double = -111666222;
23
23
     kTxtFilter = 'Text (*.txt)|*.txt;*.csv|Comma Separated (*.csv)|*.csv';
75
75
 //TLUTtype = DWORD;
76
76
 TLUT = array[0..255] of TRGBQuad;
77
77
   kStr20 = string[20];
 
78
   kStr50 = string[50];
 
79
 
78
80
   kStr255 = string[255];
79
81
 
80
82
  TCutout =  RECORD
1159
1161
begin
1160
1162
    result := ChangeFileExt(lFilename,lExt);
1161
1163
end;      *)
1162
 
function ChangeFileExtX( var lFilename: string; lExt: string): string;
 
1164
 
 
1165
function ChangeFileExtX(var  lFilename: string; lExt: string): string; overload;
1163
1166
//sees .nii.gz as single extension
1164
1167
var
1165
1168
   lPath,lName,lOrigExt: string;