+ functional screen mode switching added

ide/text/fp.pas

@@ -64,7 +64,7 @@ begin
       end
     else
       if not BeforeINI then
-        TryToOpenFile(nil,Param,0,0,true);
+        TryToOpenFile(nil,Param,0,0,false);
   end;
 end;
 
@@ -119,7 +119,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.17  1999-03-16 12:38:06  peter
+  Revision 1.18  1999-03-21 22:51:35  florian
+    + functional screen mode switching added
+
+  Revision 1.17  1999/03/16 12:38:06  peter
     * tools macro fixes
     + tph writer
     + first things for resource files

ide/text/fpmopts.inc

@@ -538,7 +538,14 @@ begin
       { change video mode ? }
       if rb1^.value<>modevalue then
         begin
-
+           modevalue:=CountModes-rb1^.value-1;
+           hp:=video.modes;
+           for i:=1 to modevalue do
+             hp:=hp^.next;
+           videomode.col:=hp^.col;
+           videomode.row:=hp^.row;
+           videomode.color:=hp^.color;
+           SetScreenVideoMode(videomode);
         end;
    end;
   Dispose(D, Done);
@@ -923,7 +930,10 @@ end;
 
 {
   $Log$
-  Revision 1.21  1999-03-16 12:38:12  peter
+  Revision 1.22  1999-03-21 22:51:36  florian
+    + functional screen mode switching added
+
+  Revision 1.21  1999/03/16 12:38:12  peter
     * tools macro fixes
     + tph writer
     + first things for resource files

ide/text/fpviews.pas

@@ -728,12 +728,14 @@ end;
 constructor TFPHeapView.Init(var Bounds: TRect);
 begin
   inherited Init(Bounds);
+  Options:=Options or gfGrowHiX or gfGrowHiY;
   EventMask:=EventMask or evIdle;
 end;
 
 constructor TFPHeapView.InitKb(var Bounds: TRect);
 begin
   inherited InitKb(Bounds);
+  Options:=Options or gfGrowHiX or gfGrowHiY;
   EventMask:=EventMask or evIdle;
 end;
 
@@ -2437,7 +2439,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.23  1999-03-19 16:04:33  peter
+  Revision 1.24  1999-03-21 22:51:37  florian
+    + functional screen mode switching added
+
+  Revision 1.23  1999/03/19 16:04:33  peter
     * new compiler dialog
 
   Revision 1.22  1999/03/16 00:44:45  peter