diff options
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)); |