diff options
| author | Erich Eckner <git@eckner.net> | 2015-11-17 16:00:49 +0100 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-11-17 16:00:49 +0100 |
| commit | e76fc83959686d0a77343dd29371a232d1973a1e (patch) | |
| tree | e4499fd349f8b6093e52900762eac69ec3dd31d7 /pegelunit.pas | |
| parent | b80559044ffc627e897bba6df2c15c1b28d732de (diff) | |
| download | FH-Wetter-e76fc83959686d0a77343dd29371a232d1973a1e.tar.xz | |
lauffähig mit trayIcon und trayIconHint
Diffstat (limited to 'pegelunit.pas')
| -rw-r--r-- | pegelunit.pas | 6 |
1 files changed, 6 insertions, 0 deletions
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. |