gib bekannte Paletten bei nicht auffindbarer Palette aus

1 files changed, 12 insertions, 1 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 64afc65..d39cf04 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -387,6 +387,7 @@ function neuePalette(f: tMyStringList): boolean;
 function initBmpHeader(w,h: longint): tBmpHeader;
 procedure schreibeBmpHeader(var f: file; w,h: longint);
 function findePalette(out palette: tPalette; name: string): boolean;
+function dumpPalettenNamen: string;
 function erzeugeLegende(sT: boolean; f: tMyStringList; datei: string; qu: tWerte; minDichte,maxDichte: extended; nB: tTransformation; pal: tPalette): boolean;
 function findeWerte(s: string; f: tMyStringList; pws: pTWerteArray; kont: pTKonturenArray; darfErstellen: boolean): integer;
 function findeKontur(s: string; f: tMyStringList; pws: pTWerteArray; pks: pTKonturenArray; darfErstellen: boolean): integer;
@@ -4346,7 +4347,7 @@ begin
         paletten[length(paletten)-1]:=nil;
       end;
       if not findePalette(paletten[i],s) then begin
-        gibAus('Kenne Palette '''+s+''' nicht!',3);
+        gibAus('Kenne Palette '''+s+''' nicht!'#10'Ich kenne nur:'#10+dumpPalettenNamen,3);
         aufraeumen;
         exit;
       end;
@@ -7046,6 +7047,16 @@ begin
   result:=false;
 end;
 
+function dumpPalettenNamen: string;
+var
+  i: longint;
+begin
+  result:='';
+  for i:=0 to length(allePaletten)-1 do
+    result:=result+#10''''+allePaletten[i].name+'''';
+  delete(result,1,1);
+end;
+
 function erzeugeLegende(sT: boolean; f: tMyStringList; datei: string; qu: tWerte; minDichte,maxDichte: extended; nB: tTransformation; pal: tPalette): boolean;
 var
   s:                                  string;