From e76fc83959686d0a77343dd29371a232d1973a1e Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 17 Nov 2015 16:00:49 +0100
Subject: lauffähig mit trayIcon und trayIconHint
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 pegelunit.pas | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'pegelunit.pas')

diff --git a/pegelunit.pas b/pegelunit.pas
index 033ea3d..f5951b6 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -78,6 +78,7 @@ type
     procedure achsenZeichnen(zuZeichnen: tPegelStationsSet; startZeit,stopZeit: extended);
     procedure graphenZeichnen(zuZeichnen: tPegelStationsSet; startZeit,stopZeit: extended);
     procedure putBeenden;
+    function hintInfo: string;
   end;
 
 implementation
@@ -548,5 +549,10 @@ begin
   put.beenden:=true;
 end;
 
+function tPegelStaende.hintInfo: string;
+begin
+  result:=inttostr(werte[psRothenstein].last.hoehe)+'cm';
+end;
+
 end.
 
-- 
cgit v1.2.3-70-g09d2