beachte Hintergrund in Andors .sif

1 files changed, 16 insertions, 1 deletions

diff --git a/typenunit.pas b/typenunit.pas
index c17199d..8c04e7a 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -89,7 +89,7 @@ type
     bildBereich,rahmenBereich:            t2x2Longint;
     shutterZeit:                          tExtPoint;
     xAchse:                               array[0..2] of extended;
-    hatHintergrund:                       boolean;
+    hatHintergrund,istHintergrund:        boolean;
     constructor create(vorlage: tGenerischeInputDateiInfo); overload;
     constructor create; overload;
     destructor destroy; override;
@@ -108,6 +108,7 @@ type
       _bytesPerSample,_feldNummer:     longint;
     _analysator:                       string;
     _Kodierung:                        tKodierung;
+    _istHintergrung:                   boolean;
     _params:                           tExtraInfos;
     procedure wFehlerbehebungskommando(f: string);
     procedure wName(n: string);
@@ -126,6 +127,7 @@ type
     procedure wAnalysator(a: string);
     procedure wBytesPerSample(b: longint);
     procedure wKodierung(k: tKodierung);
+    procedure wIstHintergrund(ih: boolean);
     procedure wParams(p: tExtraInfos);
   public
     phaseSpaceVorlage: tPhaseSpaceInputDateiInfo;
@@ -185,6 +187,9 @@ type
     property Kodierung: tKodierung
       read _Kodierung
       write wKodierung;
+    property istHintergrund: boolean
+      read _istHintergrung
+      write wIstHintergrund;
     property params: tExtraInfos
       read _params
       write wParams;
@@ -869,6 +874,7 @@ begin
     bildBereich:=(vorlage as tAndorInputDateiInfo).bildBereich;
     rahmenBereich:=(vorlage as tAndorInputDateiInfo).rahmenBereich;
     hatHintergrund:=(vorlage as tAndorInputDateiInfo).hatHintergrund;
+    istHintergrund:=(vorlage as tAndorInputDateiInfo).istHintergrund;
   end
   else begin
     temperatur:=0;
@@ -891,6 +897,7 @@ begin
     bildBereich:=_2x2Longint(0,0,0,0);
     rahmenBereich:=_2x2Longint(0,0,0,0);
     hatHintergrund:=false;
+    istHintergrund:=false;
   end;
 end;
 
@@ -917,6 +924,7 @@ begin
   bildBereich:=_2x2Longint(0,0,0,0);
   rahmenBereich:=_2x2Longint(0,0,0,0);
   hatHintergrund:=false;
+  istHintergrund:=false;
 end;
 
 destructor tAndorInputDateiInfo.destroy;
@@ -985,6 +993,7 @@ begin
   _xStart:=spaceTimeVorlage.xStart;
   _xStop:=spaceTimeVorlage.xStop;
   _t0abs:=spaceTimeVorlage.t0Abs;
+  _istHintergrung:=andorVorlage.istHintergrund;
 end;
 
 destructor tInputDateiInfoVorlagen.destroy;
@@ -1162,6 +1171,12 @@ begin
   pipeVorlage.Kodierung:=k;
 end;
 
+procedure tInputDateiInfoVorlagen.wIstHintergrund(ih: boolean);
+begin
+  _istHintergrung:=ih;
+  andorVorlage.istHintergrund:=ih;
+end;
+
 function tInputDateiInfoVorlagen.genauigkeitFromStr(s: string): boolean;
 begin
   result:=strToGen(_genauigkeit,s);