paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ functional screen mode switching added

Browse Source
This commit is contained in:
florian 1999-03-21 22:51:35 +00:00
parent a9dcc269c9
commit fafb271270
3 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/text/fp.pas
View File

@ -64,7 +64,7 @@ begin
end end
else else
if not BeforeINI then if not BeforeINI then
TryToOpenFile(nil,Param,0,0,true); TryToOpenFile(nil,Param,0,0,false);
end; end;
end; end;
@ -119,7 +119,10 @@ BEGIN
END. END.
{ {
$Log$ $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 * tools macro fixes
+ tph writer + tph writer
+ first things for resource files + first things for resource files

14
ide/text/fpmopts.inc
View File

@ -538,7 +538,14 @@ begin
{ change video mode ? } { change video mode ? }
if rb1^.value<>modevalue then if rb1^.value<>modevalue then
begin 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;
end; end;
Dispose(D, Done); Dispose(D, Done);
@ -923,7 +930,10 @@ end;
{ {
$Log$ $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 * tools macro fixes
+ tph writer + tph writer
+ first things for resource files + first things for resource files

7
ide/text/fpviews.pas
View File

@ -728,12 +728,14 @@ end;
constructor TFPHeapView.Init(var Bounds: TRect); constructor TFPHeapView.Init(var Bounds: TRect);
begin begin
inherited Init(Bounds); inherited Init(Bounds);
Options:=Options or gfGrowHiX or gfGrowHiY;
EventMask:=EventMask or evIdle; EventMask:=EventMask or evIdle;
end; end;
constructor TFPHeapView.InitKb(var Bounds: TRect); constructor TFPHeapView.InitKb(var Bounds: TRect);
begin begin
inherited InitKb(Bounds); inherited InitKb(Bounds);
Options:=Options or gfGrowHiX or gfGrowHiY;
EventMask:=EventMask or evIdle; EventMask:=EventMask or evIdle;
end; end;
@ -2437,7 +2439,10 @@ end;
END. END.
{ {
$Log$ $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 * new compiler dialog
Revision 1.22 1999/03/16 00:44:45 peter Revision 1.22 1999/03/16 00:44:45 peter