From 050aebdca4f1de336f1cce8203ff251742066d42 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sat, 11 Sep 2010 20:42:33 +0000
Subject: * GetModeName fixed to work with the 'old' mode numbers also

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15970 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/graph/src/inc/modes.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'packages/graph')

diff --git a/packages/graph/src/inc/modes.inc b/packages/graph/src/inc/modes.inc
index 651104a5fe..dbd03850ed 100644
--- a/packages/graph/src/inc/modes.inc
+++ b/packages/graph/src/inc/modes.inc
@@ -316,7 +316,10 @@ end;
       mode:=nil;
       GetModeName:='';
       { only search in the current driver modes ... }
-      mode:=SearchMode(IntCurrentNewDriver,ModeNumber);
+      if (ModeNumber >= lowNewMode) and (ModeNumber <= highNewMode) then
+          mode:=SearchMode(IntCurrentNewDriver,ModeNumber)
+      else
+          mode:=SearchMode(IntCurrentDriver,ModeNumber);
       if assigned(mode) then
           GetModeName:=Mode^.ModeName
       else
-- 
cgit v1.2.1