ein paar Warnungen bei leeren / nicht gezeichneten Konturen

1 files changed, 11 insertions, 1 deletions

diff --git a/epostunit.pas b/epostunit.pas
index ce44469..9421527 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -5471,7 +5471,7 @@ var
   nachbearbeitungen:                     tTransformationArray;
   Ausschnitt:                            tTransformation;
   bilderThreads:                         array of tBilderThread;
-  fertig,rahmen,modulo:                  boolean;
+  fertig,rahmen,modulo,etwasGezeichnet:  boolean;
   img:                                   file;
   achsen:                                array of tAchse;
   fontRenderer:                          tFontRenderer;
@@ -5849,6 +5849,7 @@ begin
   until fertig;
   gibAus('Alle Threads beendet, Konturen einfügen ...',1);
   for i:=0 to length(verwKonturen)-1 do begin
+    etwasGezeichnet:=false;
     for j:=0 to length(bilderThreads)-1 do
       bilderThreads[j].initAnzahlensFuerKontur;
     for j:=0 to length(verwKonturen[i].kontur.orte)-1 do begin
@@ -5858,6 +5859,7 @@ begin
       for xp:=ceil(xp0-verwKonturen[i].dicke/2) to floor(xp0+verwKonturen[i].dicke/2) do
         for tp:=ceil(tp0-verwKonturen[i].dicke/2) to floor(tp0+verwKonturen[i].dicke/2) do
           if (0<=xp) and (xp<breite) and (0<=tp) and (tp<hoehe) and (sqr(xp-xp0)+sqr(tp-tp0)<=sqr(verwKonturen[i].dicke/2)) then begin
+            etwasGezeichnet:=true;
             k:=0;
             while (k<length(bilderThreads)-1) and (xp>=bilderThreads[k+1].xPMi) do
               inc(k);
@@ -5872,6 +5874,10 @@ begin
             end;
           end;
     end;
+    if not etwasGezeichnet then begin
+      gibAus('erzeugeLinearesBild: Für Kontur '''+verwKonturen[i].kontur.bezeichner+''' wurden keine Punkte innerhalb des aktuellen Rahmens von '''+bezeichner+''' gezeichnet.',3);
+      exit;
+    end;
   end;
   gibAus('fertig, speichere Bild ...',1);
   assign(img,datei);
@@ -7891,6 +7897,10 @@ begin
     k:=k+length(konturThreads[j].punkte);
     konturThreads[j].free;
   end;
+  if length(orte)=0 then begin
+    gibAus('Fehler: erzeugte Kontur enthält keine Werte!',3);
+    exit;
+  end;
   result:=true;
 end;