epostunit.pas: erzeugeLinearesBild(): "leer ist (nicht) in Ordnung" für Konturen neu

1 files changed, 15 insertions, 4 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 8f44c5e..39decce 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -232,9 +232,10 @@ type
     linear:     boolean;
   end;
   tZuZeichnendeKontur = class
-    farbe:           tRGB;
-    deckKraft,dicke: extended;
-    kontur:          tKontur;
+    farbe:            tRGB;
+    deckKraft,dicke:  extended;
+    kontur:           tKontur;
+    leerIstInOrdnung: boolean;
     constructor create; overload;
     constructor create(original: tZuZeichnendeKontur; kont: tKontur); overload;
     destructor destroy; override;
@@ -6308,6 +6309,14 @@ begin
           musterKontur.deckKraft:=exprToFloat(sT,s);
           continue;
         end;
+        if istDasBefehl('leer ist in Ordnung',s,bekannteBefehle,false) then begin
+          musterKontur.leerIstInOrdnung:=true;
+          continue;
+        end;
+        if istDasBefehl('leer ist nicht in Ordnung',s,bekannteBefehle,false) then begin
+          musterKontur.leerIstInOrdnung:=false;
+          continue;
+        end;
         if istDasBefehl('Farbe:',s,bekannteBefehle,true) then begin
           if strToTRGB(s,musterKontur.farbe) then continue;
           gibAus(''''+s+''' ist keine gültige Farbe!',3);
@@ -6497,7 +6506,7 @@ begin
   until fertig;
   gibAus('Alle Threads beendet, Konturen einfügen ...',1);
   for i:=0 to length(verwKonturen)-1 do begin
-    etwasGezeichnet:=false;
+    etwasGezeichnet:=verwKonturen[i].leerIstInOrdnung;
     for j:=0 to length(bilderThreads)-1 do
       bilderThreads[j].initAnzahlensFuerKontur;
     for j:=0 to length(verwKonturen[i].kontur.orte)-1 do begin
@@ -7661,6 +7670,7 @@ begin
   deckKraft:=1;
   dicke:=1;
   kontur:=nil;
+  leerIstInOrdnung:=false;
 end;
 
 constructor tZuZeichnendeKontur.create(original: tZuZeichnendeKontur; kont: tKontur);
@@ -7670,6 +7680,7 @@ begin
   deckKraft:=original.deckKraft;
   dicke:=original.dicke;
   kontur:=kont;
+  leerIstInOrdnung:=original.leerIstInOrdnung;
 end;
 
 destructor tZuZeichnendeKontur.destroy;