erzeugeLegende(): "Beschriftung exportieren nach:" neu

1 files changed, 13 insertions, 1 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 1b91760..78394ff 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -9993,7 +9993,7 @@ end;
 
 function erzeugeLegende(sT: boolean; f: tMyStringList; datei: string; qu: tWerte; minDichte,maxDichte: extended; nB: tTransformation; pal: tPalette): boolean;
 var
-  s:                                  string;
+  s,achsenDatei:                      string;
   breite,hoehe,i,j,k,lO,rO,oO,uO,
   schriftgroesze:                     longint;
   img:                                file;
@@ -10008,6 +10008,7 @@ var
   bekannteBefehle:                    tMyStringList;
 begin
   result:=false;
+  achsenDatei:='';
   breite:=100;
   hoehe:=100;
   waagerecht:=false;
@@ -10066,6 +10067,10 @@ begin
       setLength(beschriftungsschritte,0);
       continue;
     end;
+    if istDasBefehl('Beschriftung exportieren nach:',s,bekannteBefehle,true) then begin
+      achsenDatei:=s;
+      continue;
+    end;
     if istDasBefehl('Beschriftungen:',s,bekannteBefehle,false) then begin
       setLength(beschriftungsschritte,1);
       beschriftungsschritte[0].schritte:=0;
@@ -10171,6 +10176,13 @@ begin
     end;
   end;
 
+  if achsenDatei<>'' then begin
+    if waagerecht then
+      exportiereAchsen(achsenDatei,_2x2Extended(minDichte,maxDichte,0,0),breite,0)
+    else
+      exportiereAchsen(achsenDatei,_2x2Extended(0,0,minDichte,maxDichte),0,hoehe);
+  end;
+
   if lineareFarbe then
     for i:=0 to length(beschriftungen)-1 do
       beschriftungen[i].position:=nB.transformiereWert(beschriftungen[i].position);