From 85fdee3fc3c15bdbb4862e0559ce50ab4a1c2f9b Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 1 Oct 2019 09:43:20 +0200
Subject: epostunit.pas: erzeugeLinearesBild(): "leer ist (nicht) in Ordnung"
 für Konturen neu
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 epostunit.pas | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

(limited to 'epostunit.pas')

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;
-- 
cgit v1.2.3-70-g09d2