diff options
author | Erich Eckner <git@eckner.net> | 2018-01-16 06:34:22 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2018-01-16 06:34:22 +0100 |
commit | 455b77720b5b91eca684ad128c8eb3ab928ecce5 (patch) | |
tree | b063a03444c8144312014a27c1a5782a8617c5e9 /pegelunit.pas | |
parent | f6e3bbf4cdbc0b8e46fae8fa31df5d4f83a73a75 (diff) | |
download | FH-Wetter-455b77720b5b91eca684ad128c8eb3ab928ecce5.tar.xz |
neue Pegelwarnstufe in Rothenstein "Radweg unter Wasser"
Diffstat (limited to 'pegelunit.pas')
-rw-r--r-- | pegelunit.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/pegelunit.pas b/pegelunit.pas index 77fb546..c2e4066 100644 --- a/pegelunit.pas +++ b/pegelunit.pas @@ -107,10 +107,10 @@ const ('Freienorla','','')); pegelStationsNummern: array[tPegelstation] of extended = (57021,57025,57026,57027,57028,57033,57170,57200,57201,57211,57211.5,57240); - pegelGrenzen: array[tPegelstation,0..3] of longint = - ((210,230,270,310),(195,210,225,240),(200,230,260,290),(150,180,210,240), - (250,290,330,370),(280,330,380,430),(180,200,220,240),(0,0,0,0), - (130,170,210,230),(200,230,260,290),(130,150,170,190),(0,0,0,0)); + pegelGrenzen: array[tPegelstation,0..4] of longint = + ((0,210,230,270,310),(0,195,210,225,240),(0,200,230,260,290),(0,150,180,210,240), + (160,250,290,330,370),(0,280,330,380,430),(0,180,200,220,240),(0,0,0,0,0), + (0,130,170,210,230),(0,200,230,260,290),(0,130,150,170,190),(0,0,0,0,0)); pegelFarben: array[tPegelstation] of tColor = ($000000,$000000,$000000,$FF0000,$7F0000,$000000,$000000,$000000,$000000,$000000,$000000,$000000); @@ -629,7 +629,7 @@ begin for pS:=low(pS) to high(pS) do if pS in zuZeichnen then begin miMa:=werte[pS].minMaxY(startZeit,stopZeit); - for i:=0 to 3 do + for i:=0 to length(pegelGrenzen[pS])-1 do if (pegelGrenzen[pS,i]>=miMa.x) and (pegelGrenzen[pS,i]<=miMa.y) then begin bild.canvas.pen.color:=pegelFarben[pS]; bild.canvas.moveTo(-10,wertZuY(pegelGrenzen[pS,i],miMa,bild.height)); |