|
@@ -156,6 +156,9 @@
|
|
|
i : integer;
|
|
i : integer;
|
|
|
mode : PModeInfo;
|
|
mode : PModeInfo;
|
|
|
begin
|
|
begin
|
|
|
|
|
+ {$ifdef logging}
|
|
|
|
|
+ LogLn('GetModeRange : Enter ('+strf(GraphDriver)+')');
|
|
|
|
|
+ {$endif}
|
|
|
LoMode:=-1;
|
|
LoMode:=-1;
|
|
|
HiMode:=-1;
|
|
HiMode:=-1;
|
|
|
mode := nil;
|
|
mode := nil;
|
|
@@ -165,6 +168,9 @@
|
|
|
mode := SearchMode(GraphDriver, 0);
|
|
mode := SearchMode(GraphDriver, 0);
|
|
|
{ driver not supported...}
|
|
{ driver not supported...}
|
|
|
if not assigned(mode) then exit;
|
|
if not assigned(mode) then exit;
|
|
|
|
|
+ {$ifdef logging}
|
|
|
|
|
+ LogLn('GetModeRange : Mode 0 found');
|
|
|
|
|
+ {$endif}
|
|
|
{ now it exists... find highest available mode... }
|
|
{ now it exists... find highest available mode... }
|
|
|
LoMode := 0;
|
|
LoMode := 0;
|
|
|
mode:=nil;
|
|
mode:=nil;
|
|
@@ -172,6 +178,9 @@
|
|
|
repeat
|
|
repeat
|
|
|
inc(i);
|
|
inc(i);
|
|
|
{ start search at 0.. }
|
|
{ start search at 0.. }
|
|
|
|
|
+ {$ifdef logging}
|
|
|
|
|
+ LogLn('GetModeRange : Searching Mode '+strf(i));
|
|
|
|
|
+ {$endif}
|
|
|
mode:=SearchMode(GraphDriver,i);
|
|
mode:=SearchMode(GraphDriver,i);
|
|
|
until not assigned(mode);
|
|
until not assigned(mode);
|
|
|
HiMode := i-1;
|
|
HiMode := i-1;
|
|
@@ -332,7 +341,10 @@
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
-Revision 1.13 1999-11-28 16:13:55 jonas
|
|
|
|
|
|
|
+Revision 1.14 1999-12-04 21:20:04 michael
|
|
|
|
|
++ Additional logging
|
|
|
|
|
+
|
|
|
|
|
+Revision 1.13 1999/11/28 16:13:55 jonas
|
|
|
* corrected misplacement of call to initvars in initgraph
|
|
* corrected misplacement of call to initvars in initgraph
|
|
|
+ some extra debugging commands (for -dlogging) in the mode functions
|
|
+ some extra debugging commands (for -dlogging) in the mode functions
|
|
|
|
|
|
michael